bonjour, j'aimerais transféré tous les celulle du formulaire "equipement modal" vers la table "arch_affectation" quand je sélectionne une case option voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
If 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, 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, Commentaire, Auteur, Date_Maj, ""Remplacement Cause Panne - Materiel Retourné"""
    RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].EMEI =" & EMEI & ";"
        DoCmd.RunSQL RunMySQL
 
End If