[ Συναρτήσεις ] ευρεση

[artchrist73]

Καλή χρονιά και χρόνια πολλά σε όλες και όλους !!!!!!!!!!

Θα μπορούσα να τροποποιήσω το κώδικα στο να κάνω αναζήτηση με μπαλαντέρ (?) ερωτηματικό αγγλικό?


Private Sub TxtSearch_Change()
XS = TxtSearch.Text
sqlStr = "[Conc] Like '" & "*" & XS & "*" & "'"
If DCount("*", Me.Recordset.Name, sqlStr) = 0 Then
Me.TxtSearch = strAlt
Else
Me.Filter = sqlStr
Me.FilterOn = True
strAlt = XS
End If
If XS = vbNullString Then Me.FilterOn = False
Me.TxtSearch.SetFocus
Me.TxtSearch.SelStart = Nz(Len(XS))

End Sub

[kapetang]

Καλημέρα

Αντώνη, όταν στην αναζήτηση προσπαθούμε να εντοπίσουμε μια συμβολοσειρά σε οποιαδήποτε θέση μιας άλλης, χρησιμοποιούμε τον αστερίσκο (*) και όχι το αγγλικό ερωτηματικό (?).

Στην περίπτωσή σου, η αντικατάσταση του * με το ? δεν είναι καλή ιδέα.

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