Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Πρόβλημα με την αναζήτηση εγγραφών στην ms access 2007-2010 (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1665-problima-me-tin-anazitisi-eggrafon-stin-ms-access-2007-2010-a.html)

lefterisg 22-02-12 13:25

Πρόβλημα με την αναζήτηση εγγραφών στην ms access 2007-2010
 
1 Συνημμένο(α)
Καλημέρα σε όλους.
Έχω μια ΒΔ στην 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

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

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

Λευτέρης

ΥΓ. Συνημμένα ανέβασα την ΒΔ.

Tasos 22-02-12 14:30

1 Συνημμένο(α)
Καλησπέρα σε όλους!

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

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

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

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

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

Φιλικά

Τάσος

lefterisg 23-02-12 08:36

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


Η ώρα είναι 08:49.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2