Discussion :

[snaxisnake]

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

[Maxence HUBICHE]

NumCli est de type texte ?
Parce que tu mets tout entre ''
Si tu as du texte, il faut les ''
sinon, il n'en faut pas.

[snaxisnake]

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

Comme cela? si oui ça ne fonctionne toujours pas

[snaxisnake]

a non, c'est bon, exact ,merci