Citation :
Private Sub cmdValidContact_Click()
Dim chSQL As String
Dim Nom, Prenom, Tel, Port As String
Dim cli As Integer
Nom = Forms!frmAddContact!NomContact
Prenom = Forms!frmAddContact!PrenContact
Tel = Forms!frmAddContact!TelDirect
Port = Forms!frmAddContact!Portable
cli = varMod.paramInt
chSQL = " INSERT INTO CONTACT ( NomContact, PrenContact, TelDirect, Portable, NumCli) VALUES ('" & Nom & "','" & Prenom & "','" & Tel & "','" & Port & "'," & cli & " );"
DoCmd.RunSQL (chSQL)
Form_frmCLIENT.Refresh
DoCmd.Close
End Sub
|