Bonjour, voici les instruction donnée:
Si la case à cocher « « Est-ce que l’équipement est déjà retourné ?» est cochée
Si la case à cocher « S’agit il d’une panne ? » est cochée
Modifier le Statut de l’Equipement ancien à <Panne>
Transférer la ligne dans <Arch_Affectation> : Desc_Action = « Remplacement Cause Panne»
Sinon
Modifier le Statut de l’Equipement ancien à <Non Affecté>
Transférer la ligne dans <Arch_Affectation> : Desc_Action = « Remplacement Equipement»
Supprimer l’Ancienne Affectation (jusqu'ici tout va bien mais 5 dernière ligne avant le code, je vois pas comment les incorporé au code)
Fsi
Sinon
Modifier le Statut de l’Affectation (Statut_Affectation) à <Attente Retour>
Transférer la ligne dans <Arch_Affectation> : Desc_Action = « Supprimer Affectation – Attente Retour »
ainsi que le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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