Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Συναρτήσεις ] ευρεση (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3497-eyresi.html)

artchrist73 01-01-15 12:57

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

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


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 05-01-15 09:21

Καλημέρα

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

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

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


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

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


Search Engine Optimization by vBSEO 3.3.2