1 2 3 4 5 6 7
| If enregistrement.RecordCount = 0 Then
If cmbMODEREGL = "" Then
DoCmd.RunSQL "INSERT INTO FACTURATION (NumClient, NumSortie, DateFacturation, MotifReduction, Reduction, NomVendeur, Commentaire) VALUES (" & numcli & "," & numsor & ",'" & DateIns & "','" & TxtMotif & "'," & TxtReduc & ",'" & TxtContact & "','" & TxtObs & "');"
Else
DoCmd.RunSQL "INSERT INTO FACTURATION (NumClient, NumSortie, NumModePaiement, DateFacturation, MotifReduction, Reduction, NomVendeur, Commentaire) VALUES (" & numcli & "," & numsor & "," & cmbMODEREGL & ",'" & DateIns & "','" & TxtMotif & "'," & TxtReduc & ",'" & TxtContact & "','" & TxtObs & "');"
End If
End If |
Partager