Salve a tutti!
Ho un piccolo problema con questo codice:
Private Sub Comando28_Click()
With Form_Maschera1
.Filter = "COGNOME Like '" & .txtCognomeRicerca & "*'"
.FilterOn = True
.Refresh
.txtCognomeRicerca.SetFocus
End With
End Sub
In parole povere mi filtra i record del campo COGNOME in base a quello che scrivo in txtCognomeRicerca.
Fin qui tutto bene ma se c'è un cognome che ha un apostrofo (ad esempio scrivo nella TextBox "D'AM") mi fa i capricci.
Ricevo il messaggio di errore:
Errore di run-time '3075':
Errore di sintassi (operatore mancante) nell'espressione della query 'COGNOME Like 'D'AM*"
Sono sicuro che l'apostrofo del cognome incasina la sintassi della Query quindi mi vien da pensare di fare un Replace, ovvero di sostituire l'apostrofo con altro, ma cosa?
Oppure c'è un altro modo?
Grazie a tutti per il supporto!!!!