22-02-12, 14:25
|
Όνομα: Λευτέρης Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-02-2012
Μηνύματα: 20
| |
Πρόβλημα με την αναζήτηση εγγραφών στην ms access 2007-2010
Καλημέρα σε όλους.
Έχω μια ΒΔ στην access 2003.
Δημιούργησα ένα ερωτημα, το GetByPerigrafi το οποίο το σύνδεσα με το πλαίσιο κειμένου txtfilter
και αναζητώ εγγραφές, αφού τσεκάρω στην φόρμα το <Ευρεση με βάση την περιγραφή>.
Δουλεύει μια χαρά στην Access 2003. ¨Όταν όμως το τρέχω από acces 2007-2010, δεν κάνει αναζήτηση και μου βγάζει και τα γράμματα από δεξιά προς τα αριστερά.
Το πρόβλημα με τα γράμματα το έλυσα αντικαθιστώντας το
'Me.TxtFilter.SelStart = Len(Me.TxtFilter)
με
Me.TxtFilter.SelStart = Len(Nz(Me.TxtFilter.Text, "")) + 1
στο πλαίσιο κειμένου.
Private Sub TxtFilter_Change()
'Requery the form so we can "see" the search text.
Me.Requery
'Is anything entered in the search textbox?
If IsNull(Me.TxtFilter) Then
'No, so clear the list and then leave.
SetListDefaultRowSource
Exit Sub
Else
'Yes, so add a space (the Requery removes it)
'if the user entered it.
If blnSpaceBar = True Then
Me.TxtFilter = Me.TxtFilter & " "
'Reset space bar indicator.
blnSpaceBar = False
End If
'Re-position the cursor in the search textbox.
'Me.TxtFilter.SelStart = Len(Me.TxtFilter)
Me.TxtFilter.SelStart = Len(Nz(Me.TxtFilter.Text, "")) + 1
End If
Όμως δεν μπορώ να λύσω το θέμα της αναζήτησης.
Όταν πρόσθεσα ενα κουμπί εντολής δούλεψε, αλλά μου είναι απαραίτητο να δουλεύει
με το συμβάν <Με την αλλαγή>
Σας παρακαλώ για την βοήθειά σας.
Λευτέρης
ΥΓ. Συνημμένα ανέβασα την ΒΔ.
|