[kapetang]

Καλησπέρα

Στέλιο, δες και την επισυναπτόμενη ΒΔ.

Η φόρμα «Form1» περιέχει ένα πλαίσιο λίστας (lstFilter) και ένα πλαίσιο κειμένου (txtFilter), που χρησιμοποιείται για το φιλτράρισμα της λίστας.

Όταν πληκτρολογούμε κείμενο στο πλαίσιο κειμένου το ερώτημα το οποίο γεμίζει τη λίστα φιλτράρεται και εμφανίζει μόνο τις εγγραφές που ταιριάζουν στο περιεχόμενο του πλαισίου κειμένου.

Συγκεκριμένα εμφανίζονται μόνο οι εγγραφές στις οποίες το κείμενο, που προκύπτει από την ένωση (concatanate) με τη σειρά όλων των πεδίων, περιέχει το κείμενο του πλαισίου κειμένου.

Το ερώτημα και ο σχετικός κώδικας φαίνονται παρακάτω:

SELECT Table1.ID, Table1.LastName, Table1.FirstName, Table1.MiddleName, Table1.bDate
FROM Table1
WHERE (((CStr([ID]) & CStr([LastName]) & CStr([FirstName]) & CStr([MiddleName]) & CStr([bDate]) 
 Like "*" & nz([Forms]![Form1]![txtFilter]) & "*"));

Private Sub txtFilter_Change()
    Me.lstFilter.SetFocus
    Me.lstFilter.Requery
    Me.txtFilter.SetFocus
    Me.txtFilter.SelStart = Len(Nz(Me.txtFilter))
End Sub

Φιλικά/Γιώργος