[ Συναρτήσεις ] Εύρεση με ερωτηματικό σύμβολο

[artchrist73]

ΚΑΛΗ ΧΡΟΝΙΑ ΣΕ ΟΛΟΥΣ.ΕΥΧΟΜΑΙ ΕΥΤΥΧΙΑ ΧΑΡΑ ΥΓΕΙΑ !!!!!!!

έχω ανεβάσει ένα κώδικα που αναζητώντας από ένα πεδίο θα ήθελα να μου δείξει κάποιος με ποιο τρόπο θα μπορώ να κάνω αναζήτηση με ερωτηματικό.

π.χ. palmolive 400 ml σαμπουαν
αναζήτηση: palmolive?400
ή σαμουαν?palmolive
είδη κάνω αναζήτηση με αστεράκι απλά η αντιστοιχία να είναι στο σύμβολο --> *
-----------------------------------------------------------------------------------
εδώ έχω τον κώδικα από το πεδίο---->

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

[Tasos]

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

Αντώνη δοκίμασε:

Private Sub TxtSearch_Change()
    XS = txtSearch.Text
    If Right(XS, 1) = " " Then Exit Sub
    If InStr(1, XS, " ") Then
        XS = Replace(XS, " ", "*")
    End If
    On Error Resume Next
    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

Δεν θα χρειαστείς ερωτηματικό. Απλά πληκτρολογείς palmolive 4,

Αν πληκτρολογήσεις palmolive και κενό η αναζήτηση δεν θα εφαρμοστεί.
Αν πληκτρολογήσεις palmolive-κενό και έναν χαρακτήρα, η αναζήτηση συνεχίζεται κανονικά.

Καλή συνέχεια!

Τάσος

[artchrist73]

Τάσο για άλλη μια φορα με ξελάσπωσες !
Η λέξη ευχαριστώ είναι πολύ μικρή.
Αυτό θα με βοηθήσει διότι κάνω μια βάση απογραφής για την εταιρία που εργάζομαι.