problème d'expression SQL

**vinkey_33** · 27/04/2016, 08h56

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 :

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

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

**nico84** · 27/04/2016, 09h57

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

**vinkey_33** · 27/04/2016, 10h07

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

**madefemere** · 27/04/2016, 10h55

Bonjour,

Si Me.Or_Affectation est du texte :

Code :

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

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 :

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

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 #

**vinkey_33** · 27/04/2016, 11h44

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?

**madefemere** · 27/04/2016, 12h51

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,

**vinkey_33** · 27/04/2016, 14h34

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

**vinkey_33** · 27/04/2016, 15h14

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

Code :

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

DoCmd.RunCommand acCmdSaveRecord

pour enregistré les enregistrements courant

merci pour ton aide et la prochaine

cordialement

**madefemere** · 27/04/2016, 15h20

Bonjour,

Il faut ajouter un

Code :

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

Me.Requery

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

Cordialement,

**vinkey_33** · 27/04/2016, 16h17

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 :

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

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

**madefemere** · 28/04/2016, 07h53

Bonjour,

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

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,

**vinkey_33** · 28/04/2016, 10h09

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 :

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

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 :

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

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

**madefemere** · 28/04/2016, 11h00

Bonjour,

Ton deuxième code peut être plus simple :

Code :

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

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 :

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

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,

**vinkey_33** · 28/04/2016, 13h59

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

problème d'expression SQL [AC-2013]

Access

Discussions similaires

Partager

Partager