Discussion :

[vinkey_33]

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

[madefemere]

Bonjour,

Quand on utilise les valeurs des contrôles d'un formulaire, il faut les "sortir" de l'expression SQL et on utilise l'instruction VALUES avec des parenthèses au lieu de SELECT qui sélectionne plutôt les valeurs d'une table ou requête.
Ensuite, il faut les "quoter" correctement : les dates entre # (et utiliser le format US pour les dates) et les variables string entre guillemets ou apostrophes.

En prenant, une partie de ton code, cela devrait être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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" _
    RunMySQL = RunMySQL & " VALUES ('" & Me.Or_Affectation & "'," &  Me.USER_ID & ",'" & Me.PIN_Terminal & "','" & Me.PIN_SIM & "','" & Me.Coque & "','" & Me.Vitre & "','" & Me.Support_Vehicule & "'," & Me.Num_EMEI & "," & Me.Num_SIM & ",# " & Format(Me.Date_Début,"yyyy/mm/dd") & "#,#" & Format(Me.Date_Fin,"yyyy/mm/dd") & "#)"
    RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].EMEI =" & EMEI & ";"
        DoCmd.RunSQL RunMySQL
 
End If

Attention code non testé (il se peut que des espaces sont manquants).

Cordialement,

[vinkey_33]

j'ai inséré le code et modifié, il m'affiche maintenant "attendu: fin introduction", j'ai vérifié et revérifié je trouve pas l'erreur code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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, Date_Fin, Actif, Statut_Affectation, Commentaire, Auteur, Date_Maj, Desc_Action) _
    RunMySQL = " VALUES ('" & Me.Or_Affectation & "','" & Me.USER_ID & "','" & Me.PIN_Terminal & "','" & Me.PIN_SIM & "','" & Me.Coque & "','" & Me.Vitre & "','" & Me.Support_Vehicule & "','" & Me.Num_EMEI & "','" & Me.Num_SIM & "',# " & Format(Me.Date_Début, "yyyy/mm/dd") & "#,#" & Format(Me.Date_Fin, "yyyy/mm/dd") & "#,'" & Me.Actif "','" & Me.Statut_Affectation "','" & Me.Commentaire "','" & me.Auteur "','" & me.Date_Maj '","""Remplacement Cause Panne - Materiel Retourné""") _
    RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].EMEI =" & EMEI & ";" _
    RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].EMEI =" & EMEI & ";"
        DoCmd.RunSQL RunMySQL

[madefemere]

Bonjour,

Pourquoi la ligne de critère est répétée ? (2 fois WHERE) : Erreur de transcription vers le forum ?

Note : Je te conseille de commencer par ajouter 1 champ et 2 champs et ainsi de suite pour rajouter tous les champs à la fin.

Cordialement,

[vinkey_33]

oui une erreur
merci de ton aide sa fonctionne