Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub modifier_Click()
Dim sql
Set mabase = CurrentDb
sql = "Update Client set NomCli='" & Nom & "',PrenomCli='" & Prenom & "',RueCli='" & Rue & "',CP='" & CP & "',VilleCli='" & Ville & "',TelCli='" & Tel & "' where NumCli='" & Num & "' "
DoCmd.RunSQL (sql)
MsgBox "Le client a bien été modifier!", vbOKOnly
End Sub
A l'execution, il ya a une erreur me disant "Type incompatible dans l'expression du critère" sur la ligne DoCmd. Ma requete serait-elle fausse?
merci