1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub AjouterFournisseur_Click()
Dim MonSQL As String
Dim Controle As Control
Dim f As Form
Set f = Forms!F_AjoutFournisseur
MonSQL = "INSERT INTO [T-Fournisseur] (Fournisseur, Pays, Adresse, Tel, [Site Web])"
MonSQL = MonSQL & "VALUES ('" & f!NomFournisseur & "', '" & f!Pays & "','" & f!Adresse & "','" & f!Tel & "', '" & f!Web & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL MonSQL
DoCmd.SetWarnings True
MsgBox "La société " & f!NomFournisseur & " a bien été ajouté à votre liste de fournisseurs!", vbInformation, "Transfert réussi"
For Each Controle In f.Controls
If Controle.ControlType = acTextBox Then
Controle = Null
End If
Next Controle
Me.NomFournisseur = Null
f!NomFournisseur.SetFocus
End Sub |
Partager