Discussion :

[Montagna73]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        'Adr1_Post => Loc_Adresse1
        A = "Adr1_Post"
        B = Loc_Adresse1
    MAJ_Req = "update Postulent set " & A & " = '" & CStr(WksOwc.Cells(Wlgn, B)) & "'where Id_Post =" & Id_Post & ";"
    DoCmd.RunSQL (MAJ_Req)

SI WksOwc.Cells(Wlgn, B) est une valeur avec un apostrophe le processus me renvois l'erreur ci-jointe. Comment Faire ?

[Tofalu]

Bonjour,

Utilisez la fonction replace pour doubler l'apostrophe dans la valeur du champ

CStr(WksOwc.Cells(Wlgn, B))

Devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(CStr(WksOwc.Cells(Wlgn, B)),chr(39),chr(39) & chr(39))

[Montagna73]

Je valide cela marche nickel.