Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 22-02-12, 14:25
lefterisg Ο χρήστης lefterisg δεν είναι συνδεδεμένος
Όνομα: Λευτέρης
Έκδοση λογισμικού 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

Όμως δεν μπορώ να λύσω το θέμα της αναζήτησης.
Όταν πρόσθεσα ενα κουμπί εντολής δούλεψε, αλλά μου είναι απαραίτητο να δουλεύει
με το συμβάν <Με την αλλαγή>

Σας παρακαλώ για την βοήθειά σας.

Λευτέρης

ΥΓ. Συνημμένα ανέβασα την ΒΔ.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb Data.mdb (404,0 KB, 35 εμφανίσεις)
Απάντηση με παράθεση