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/2889-eiresi-me-erotimatiko-simbolo.html)

Εύρεση με ερωτηματικό σύμβολο

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

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

π.χ. 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

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

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

Κώδικας:

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-κενό και έναν χαρακτήρα, η αναζήτηση συνεχίζεται κανονικά.

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

Τάσος

Εύρεση με ερωτηματικό σύμβολο

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