Salut,
le seul moyen de faire ça proprement, c'est de d'abord passer ta string par une petite fonction qui permet de remplacer les ' par des ''
Et comme je suis généreux , voilà le code de cette fonction:
Code :
- Public Function FormatSQL(strValue As String) As String
- FormatSQL = Replace(strValue, "'", "''" )
- End Function
|
Donc ensuite ton code devient:
Code :
- partie_where = partie_where & " nom_employeur = " & "'" & FormatSQL(Combo_nom_employeur.Text) & "'"
|
Voilà ça devrait fonctionner