[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