problème d'expression SQL

bonjour,

je souhaiterai mettre des valeurs de champs d'une table qui n'éxiste pas dans la 2ème table en sql sans qu'il affiche un message d'erreur, voici le code ou je bloque

Code:

---

1 2 3

DoCmd.RunSQL "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 )" _ & " 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, Desc_Action" _ & " FROM [Affectation] WHERE [Affectation].Or_Affectation = Me.Or_Affectation "

---

Merci d'avance

Bonjour,

Me.Or_Affectation est une variable locale, il faut la sortir de la string et éventuellement l'entourer de cotes si c'est une string

merci pour ta réponse mais comment je procède dans le code? peut-tu me le réécrire s'il te plais? pour je vois mes erreurs

Bonjour,

Si Me.Or_Affectation est du texte :

Code:

---

1 2 3

DoCmd.RunSQL "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 )" _ & " 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, Desc_Action" _ & " FROM [Affectation] WHERE [Affectation].Or_Affectation ='" & Me.Or_Affectation & "'"

---

Si Me.Or_Affectation est numérique :

Code:

---

1 2 3

DoCmd.RunSQL "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 )" _ & " 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, Desc_Action" _ & " FROM [Affectation] WHERE [Affectation].Or_Affectation =" & Me.Or_Affectation

---

Cordialement,

Note : Pour faciliter la lecture des codes que vous postez, utilisez la balise code s'il vous plait : Sélectionner le code et cliquer sur #

Merci, sa fonction j'ai plus aucun problème au niveau du code mais sur le transfère c'est-a-dire que quand j'appuie sur le bouton code s'active sans problème mais quand je vais sur l'autre table la ligne apparait mais pas le champ ou je fais la modification, car quand l’exécution s'arrête je suis obligé de changé de ligne pour le mot de la cellule apparaisse et comme sa apparait un fois que j'ai changé de ligne, automatiquement sa apparait pas sur l'autre table
que faire?

Bonjour,

Qu'est-ce que tu veux faire "exactement" ? :
1- Insérer les valeurs sélectionnées selon Me.Or_Affectation de la table [Affectation] dans la table [Arch_Affectation] (c'est le code que tu donnes).
2- ou Modifier certaines valeurs des champs dans [Arch_Affectation] selon selon Me.Or_Affectation

Cordialement,

j'aimerai que quand j’exécute le code que tout s’insère du premier coup et pas que le champ statut_afectation reste vide

j'ai trouvé la solution enfête il falait mettre

Code:

---

DoCmd.RunCommand acCmdSaveRecord

---

pour enregistré les enregistrements courant

merci pour ton aide et la prochaine

cordialement

Bonjour,

Il faut ajouter un

Code:

---

Me.Requery

---

à la fin du code pour "rafraichir" ton formulaire.

Cordialement,

maintenant suite au code que tu ma donnée, j'aimerais faire la même chose avec la table Equipement en sachant que les tables Affectation et Equipement sont en relation et dans le champ (Statut_Equipement) se trouve une liste déroulante avec "affecté" et "non affecté", je voudrais positionné sur "non affecté" voici que j'ai composé :

Code:

---

1 2 3

DoCmd.RunSQL "INSERT INTO [Equipement] (Statut_Equipement)" _ & " SELECT Affectation.Statut_Affectation" _ & " FROM [Affectation] where [Affectation] ON Equipement.Num_EMEI =" & Affectation.Num_EMEI

---

le code est affiché en jeune

Bonjour,

Tu dis vouloir faire la même chose ? Mais quand tu dis :

Citation:

---

je voudrais positionné sur "non affecté" voici que j'ai composé :

---

C'est une mise à jour et non une insertion de valeur ! Non ?
Dans ce cas, il faudrait utiliser plutôt une requête UPDATE

Si tu n'es pas à l'aise dans la construction "directe" du code SQL, mets-toi dans le QBE (Création requête avec assistant d'Access) et crées une requête mise à jour de ton champ.
Puis tu récupères le code SQL pour le coller dans VBA. C'est plus simple.

Cordialement,

bonjour,
plutôt une mise a jour du champ Statut_affecté depuis le formulaire j'ai essayer un code mise a jour mais a chaque fois que je le lance, il bloque au code mise a jour que voici:

Code:

---

DoCmd.RunSQL "UPDATE [Equipement] INNER JOIN [Affectation] ON Equipement.Num_EMEI = Affectation.Num_EMEI SET Equipement.Statut_Equipement = Non Affecté "

---

j'ai essayé un deuxième code qui me modifie toute la colonne au lieu du champ conserné, que j'ai modifié sur le formulaire, voici le code :

Code:

---

DoCmd.RunSQL " UPDATE [Equipement] INNER JOIN [Affectation] ON [Equipement].Num_EMEI = [Affectation].Num_EMEI SET [Equipement].Statut_Equipement = "" & Non Affecté """

---

Bonjour,

Ton deuxième code peut être plus simple :

Code:

---

DoCmd.RunSQL " UPDATE [Equipement] INNER JOIN [Affectation] ON [Equipement].Num_EMEI = [Affectation].Num_EMEI SET [Equipement].Statut_Equipement =' & Non Affecté "'"

---

mais tu oublies de définir le critère de sélection de la valeur dans ton formulaire, il faut un "WHERE" :

Code:

---

1 2	DoCmd.RunSQL " UPDATE [Equipement] INNER JOIN [Affectation] ON [Equipement].Num_EMEI = [Affectation].Num_EMEI SET [Equipement].Statut_Equipement =' & Non Affecté "'" _   & " WHERE Equipement.Num_EMEI='" & Me.NumImei & "'"

---

Cordialement,

merci sa fonctionne, un grand merci pour ton aide
a la prochaine
cordialement,