Problème avec un combobox

Question

Bonjour

J’ai un problème dans un code en VB

Lorsque je clique sur un Combo Box le system plan car le contenu du texte contient une apostrophe que le système considère comme une simple côte et met donc fin à ma chaîne de caractère.  J’aimerait savoir comme lui dire qu’il s’agit bien d’une apostrophe faisant partie intégrante de ma chaîne de caractère.

Ci joint le code sur le clique du combo box

Private Sub CmbBoxFilm_Click()

 RsFilm.FindFirst "TitreFilm='" & CmbBoxFilm.Text & "'"
 CmbBoxFilm.Tag = RsFilm("NumFilm")

End Sub

où

CmbBoxFilm : Combobox
RsFilm : Recordset

Merci d’avance.

crenaud76 · Answer

Utilise la fonction Replace() pour "doubler tes simple quote dans ta chaine de caractère : Replace(MaChaine,"'","''")
Ce qui donne ceci :

Private Sub CmbBoxFilm_Click()

RsFilm.FindFirst "TitreFilm='" & Replace(CmbBoxFilm.Text,"'","''") & "'"
CmbBoxFilm.Tag = RsFilm("NumFilm")

End Sub

Christophe R.

Problème avec un combobox

1 réponse

Discussions similaires