![]() |
ευρεση Καλή χρονιά και χρόνια πολλά σε όλες και όλους !!!!!!!!!! Θα μπορούσα να τροποποιήσω το κώδικα στο να κάνω αναζήτηση με μπαλαντέρ (?) ερωτηματικό αγγλικό? 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 |
Καλημέρα Αντώνη, όταν στην αναζήτηση προσπαθούμε να εντοπίσουμε μια συμβολοσειρά σε οποιαδήποτε θέση μιας άλλης, χρησιμοποιούμε τον αστερίσκο (*) και όχι το αγγλικό ερωτηματικό (?). Στην περίπτωσή σου, η αντικατάσταση του * με το ? δεν είναι καλή ιδέα. Φιλικά/Γιώργος |
Η ώρα είναι 02:36. |
Ms-Office.gr - ©2000 - 2025, Jelsoft Enterprises Ltd.