Discussion :

[Tristan33000]

Alors voila mon code qui me donne cette erreur ....

Code :

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

1
2
3
4
 
If enregistrement.RecordCount = 1 Then
             DoCmd.RunSQL "UPDATE FACTURATION SET NumClient=" & numcli & ", NumSortie= " & numsor & ", NumModePaiement=" & cmbMODEREGL & ", DateFacturation='" & DateIns & "', MotifReduction='" & TxtMotif & "', Reduction=" & TxtReduc & ", NomVendeur='" & TxtContact & "', Commentaire='" &  TxtObs  & "' WHERE NumFacture=" & TxtNumIns & " ;"
        End If

J'ai beau chercher je vois pas ou se situe l'erreur ...


Cordialement

Tristan

[Tristan33000]

Code :

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

1
2
3
4
 
If enregistrement.RecordCount = 1 Then
             DoCmd.RunSQL "UPDATE FACTURATION SET NumClient=" & numcli & ", NumSortie= " & numsor & ", NumModePaiement=" & cmbMODEREGL & ", DateFacturation='" & DateIns & "', MotifReduction='" & TxtMotif & "', Reduction='" & TxtReduc & "', NomVendeur='" & TxtContact & "', Commentaire='" &  TxtObs  & "' WHERE NumFacture=" & TxtNumIns & " ;"
        End If

Voila et la sa marche mon erreur venait de

Code :

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

Reduction=" & TxtReduc & "

Qui est maintenant

Code :

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

Reduction='" & TxtReduc & "'

Avec les cotes il acceptes les virgules qui ne prenait pas avant !

Cordialement


Tristan.