1 2 3 4 5 6 7 8 9 10 11
| EMEI = AffectationNumEMEI
RunMySQL = "INSERT INTO [Arch_Affectation] (Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM, Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire, Auteur, Date_Maj, Desc_Action )"
RunMySQL = RunMySQL & " select Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, #"
RunMySQL = RunMySQL & MyDate
RunMySQL = RunMySQL & "#, Actif, Statut_Affectation, Commentaire,"""
RunMySQL = RunMySQL & User
RunMySQL = RunMySQL & """, #"
RunMySQL = RunMySQL & MyDate
RunMySQL = RunMySQL & "#, ""Remplacement Cause Panne"""
RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].Or_Affectation =" & EMEI & ";"
DoCmd.RunSQL RunMySQL |
Partager