1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Private Sub BTN_VALIDER_AJOUT_Click()
Me.Requery
Dim req1 As String
req1 = "INSERT INTO SUIVI_EQUIPEMENT (Zone, FIN, Description, Code, PN, CMS, SN, MOD, CROQUIS, ATA, MODELE, Vendor )" _
& "VALUES (" & txt_ZONE.Text & "," & txt_FIN.Text & "," & txt_DESCRIPTION.Text & "," & LST_FOURNISSEUR.Text & "," & txt_PN.Text & "
," & txt_CMS.Text & "," & txt_SN.Text & "," & txt_MOD.Text & "," & txt_CROQUIS.Text & "," & txt_ATA.Text & "," & txt_AVION.Text & "," & txt.VENDOR.Text & ");"
DoCmd.RunSQL req1
BTN_VALIDER_AJOUT.Enabled = False
EQUIPEMENT_AJOUT.Visible = False
End Sub |
Partager