Buonasera a tutti , ho una tabella "Dichiarazione" con due campi da poter cercare il contenuto dei record. I due campi su cui fare la ricerca sono "ID" e "Cognome", il tutto su vba con select e su maschera singola.
il codice :
Private Sub Comando161_Click()
Dim z As String
z = "SELECT * FROM Dichiarazione Where Cognome Like '*" & Ricerca.Value & "*' OR ID Like '*" & Ricerca.Value & "*'"
Me.RecordSource = z
Me.Requery
Ricerca=""
End Sub
con questo codice sopra access resitituisce un errore per i cognomi che contengono apostrofo (') , ad esempio D'Apice , D'Amico ecc....
allora ho modificato la stringa con Replace cosi :
Private Sub Comando161_Click()
Dim z As String
z = "SELECT * FROM Dichiarazione Where Cognome Like '*" & Replace(Ricerca.Value, "'", "''") & "*'"
Me.RecordSource = z
Me.Requery
Ricerca=""
End Sub
e per fare in modo che funzioni ho impostato il Tipo di Recordset su snapshot invece che dynaset e funziona.
la mia richiesta di aiuto arriva dal fatto che con questa nuova stringa con replace riesco a cercare solo il cognome e non anche l'ID come nella prima sub da me postata, qualcuno può aiutarmi a riscriverla ?