Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Πρόβλημα με την αναζήτηση εγγραφών στην ms access 2007-2010

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 22-02-12, 13:25
Όνομα: Λευτέρης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού 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, 32 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 22-02-12, 14:30
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.234
Προεπιλογή

Καλησπέρα σε όλους!

Αγαπητέ Λευτέρη, θα σου πρότεινα να δοκιμάσεις τη μέθοδο που περιέχεται στο συνημμένο του μηνύματος.

Οι εγγραφές φιλτράρονται αυτόματα όσο πληκτρολογείς στο πεδίο αναζήτησης.

Η αναζήτηση με χρήση του ερωτήματος "QryCapCustomers" συμπεριλαμβάνει όλα τα πεδία της φόρμας.

Επίσης επιστρέφει εγγραφές ακόμα και αν στο πεδίο αναζήτησης δεν τηρηθούν οι κανόνες τονισμού των λέξεων.

Δοκίμασε το και τα λέμε..

Φιλικά

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb accSearchForm.mdb (300,0 KB, 89 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 23-02-12, 08:36
Όνομα: Λευτέρης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-02-2012
Μηνύματα: 20
Προεπιλογή

Καλημέρα σε όλους.
Τάσο σε ευχαριστώ πολύ για την άμεση ανταπόκριση.
Πολύ έξυπνο τρόπο αναζήτησης περιέχει η ΒΔ που ανέβασες.
Την προσαρμόζω στην δική μου ΒΔ.
Στη δική μου, τα αποτελέσματα προβάλλονται σε πλαίσιο λίστας, την τροποποίησα και προβάλονται απευθειας στη φόρμα.
Επίσης πρόσθεσα στο ερώτημα και το πεδίο ID (ΑΑ το δικό μου) για το οποίο πρέπει να γίνεται αναζήτηση.
Με λίγα λόγια, όλα είναι εντάξει.
Σε ευχαριστώ για άλλη μια φορά για την πολύτιμη βοήθειά σου.
Με εκτίμηση,
Λευτέρης
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Μενου στην Access 2010 naxos Access - Ερωτήσεις / Απαντήσεις 2 07-10-12 17:50
Πρόβλημα μετατροπής από access 2010 σε Access 2000 xristosss20 Access - Ερωτήσεις / Απαντήσεις 1 05-06-12 12:56
ACCESS 2007 ΣΕ ACCESS 2010 deminio Access - Ερωτήσεις / Απαντήσεις 5 25-10-10 21:09
[ Φόρμες ] Φιλτράρισμα εγγραφών σε Access 2007 dimitris p Access - Ερωτήσεις / Απαντήσεις 5 01-04-10 16:44
Προχειρο στην Access 2007 Deminio Access - Ερωτήσεις / Απαντήσεις 1 08-04-09 07:21


Η ώρα είναι 22:02.