1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Private Sub BTN_VALIDER_AJOUT_Click()
Me.Requery
Dim req1 As String
ZONE = Forms("F_QUALITE").txt_ZONE.Form
FIN = Forms("F_QUALITE").txt_FIN.Form
CMS = Forms("F_QUALITE").txt_CMS.Form
ATA = Forms("F_QUALITE").LST_ATA.Form
PN = Forms("F_QUALITE").txt_PN.Form
SN = Forms("F_QUALITE").txt_SN.Form
MODIF = Forms("F_QUALITE").txt_MOD.Form
CROQUIS = Forms("F_QUALITE").txt_CROQUIS.Form
MODELE = Forms("F_QUALITE").txt_MODELE.Form
AVION = Forms("F_QUALITE").txt_AVION.Form
DESCRIPTION = Forms("F_QUALITE").txt_DESCRIPTION.Form
CODE = Forms("F_QUALITE").LST_CODE.Form
VENDOR = Forms("F_QUALITE").LST_CODE.Form
req1 = "INSERT INTO SUIVI_EQUIPEMENT (Zone, FIN, Description, Code, PN, CMS, SN, MOD, CROQUIS, ATA, MODELE, Vendor, AVION ) VALUES ('" & ZONE & "','" & FIN & "','" & DESCRIPTION & "','" & CODE & "','" & PN & "','" & CMS & "','" & SN & "','" & MODIF & "','" & CROQUIS & "','" & ATA & "','" & MODELE & "','" & VENDOR & "','" & AVION & "',);"
DoCmd.RunSQL req1
BTN_VALIDER_AJOUT.Enabled = False
AJOUT_EQUIPEMENT.Visible = False
End Sub |
Partager