1 2 3 4 5
| Dim SQL1 As String
SQL1 = "INSERT INTO Collaborateurs (Identifiant, Nom, Prénom, Fonction, Date_entrée_dans_l'entreprise, Date_prise_de_fonction, Secteur, Missions_et_Objectifs, FichedePoste) " & _
"VALUES ('" & CtrlCote(Me.ZTX_Identifiant) & "', '" & CtrlCote(Me.ZTX_Nom) & "', '" & CtrlCote(Me.ZTX_Prénom) & "', '" & CtrlCote(Me.ZTX_Fonction) & "', '" & CtrlCote(Me.ZTX_DateEntreeEntreprise) & "', '" & CtrlCote(Me.ZTX_DatePriseFonction) & "', '" & CtrlCote(Me.ZTX_Secteur) & "', '" & CtrlCote(Me.ZTX_MissionsetObjectifs) & "', '" & CtrlCote(Me.CMB_FichedePoste) & "');"
MsgBox (SQL1)
DoCmd.RunSQL SQL1 |
Partager