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
| If Sagit_il_dune_panne.Value = True Then
DoCmd.RunSQL " UPDATE [Equipement] INNER JOIN [Affectation] ON [Equipement].Num_EMEI = [Affectation].Num_EMEI SET [Equipement].Statut_Equipement =""Panne""" _
& " WHERE Equipement.Num_EMEI='" & EMEI & "'"
DoCmd.RunSQL " UPDATE [Affectation] INNER JOIN [Equipement] ON [Affectation].Num_EMEI = [Equipement].Num_EMEI SET [Affectation].Statut =""Attente Retour""" _
& " WHERE Affectation.Num_EMEI='" & EMEI & "'"
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, "
RunMySQL = RunMySQL & " 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 =" & Me.Liste_EMEI.Column(3) & ";"
DoCmd.RunSQL RunMySQL
ElseIf Me.Estce_que_léquipement_est_déjà_retourné.Value = True Then
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, "
RunMySQL = RunMySQL & " 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, Date_Fin, Actif, Statut_Affectation, "
RunMySQL = RunMySQL & " Commentaire, Auteur, Date_Maj, ""Remplacement Equipement - Attente Retour """
RunMySQL = RunMySQL & " FROM [Affectation]"
RunMySQL = RunMySQL & " WHERE [Affectation].[Num_EMEI] ='" & EMEI & "';"
DoCmd.RunSQL RunMySQL |
Partager