[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


Ευχαρηστώ εκ των προτέρων !!!!!!!!!!!!!!!!