Syntaxe INSERT INTO et SELECT

Bonjour,

Alors voilà mon problème : J'ai fait un code VBA qui recupère un Id (id de la cartouche) et qui doit l'insérer dans une autre table (table imprimante car les 2 tables sont liées).

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Commande22_Click() Dim stockConso As DAO.Database Dim db As Database ' Dim req1 As DAO.Recordset Set db = CurrentDb() Dim idDuLieu As Integer Dim idDeLaCartouche As Long     db.Execute "INSERT INTO Cartouche([Reference],[Designation],[PrixUnitaire],[QuantitéEnStock]) VALUES ('" & Texte7.Value & "','" & Modifiable9.Value & "','" & Texte13.Value & "','" & Modifiable11.Value & "')" If Modifiable23.Value = "Oui" Then idDuLieu = "SELECT idLieu FROM Lieu WHERE NomLieu = Modifiable25.Value" idDeLaCartouche = "SELECT idCartouche FROM Cartouche WHERE Reference = Texte7.Value" db.Execute "INSERT INTO Imprimante ([idCartouche],[Marque],[Reference],[idLieu]) VALUES ('" & idDeLaCartouche & "','" & Texte5.Value & "','" & Texte7.Value & "','" & idDuLieu & "')" Else idDeLaCartouche = "SELECT Cartouche.idCartouche FROM Cartouche WHERE Cartouche.Reference ='" & Me.Texte7 & "'" db.Execute "INSERT INTO Lieu ([NomLieu]) VALUES ('" & Texte20.Value & "')" idDuLieu = "SELECT idLieu FROM Lieu WHERE NomLieu = Texte20.Value" db.Execute "INSERT INTO Imprimante ([idCartouche],[Marque],[Reference],[idLieu]) VALUES ('" & idDeLaCartouche & "','" & Texte5.Value & "','" & Texte7.Value & "','" & idDuLieu & "')" End If MsgBox ("L'ajout a été pris en compte")   End Sub

---

En gros, l'utilisateur utilise ce formulaire pour ajouter une nouvelle imprimante.
Si le lieu est dans la liste des lieux existants , il répond oui (Modifiable23) et donc il faut juste récupérer le nouveau id de la cartouche et insérer le tout dans la table Imprimante.
Si c'est un nouveau lieu (réponse non donc dans le ELSE), il faut ajouter un lieu, récupérer le tout et insérer dans la table Imprimante.


Il me trouve une erreur de syntaxe sur la ligne idDeLaCommande et également pour récupérer l'id du Lieu :

Code:

---

idDeLaCartouche = "SELECT Cartouche.idCartouche FROM Cartouche WHERE Cartouche.Reference ='" & Me.Texte7 & "'"

---

Merci d'avance pour votre aide

Bonjour

L'affectation d'une chaine SQL à une variable n'a jamais renvoyé le moindre résultat. Utilisez des recordset DAO pour interroger vos données. Ces recordset seront ouvert par vos chaines SQL définies plus haut ;)

Bonjour,

Merci de votre réponse.
Le problème est que je n'ai jamais fait de VBA de ma vie et je ne sais pas comment utiliser les recorset...

Si vous pouviez m'aider sur ce sujet.

Merci beaucoup

Tu peux aussi utiliser la fonction DLookup (RechDom), elle est bien documentee dans l'aide d'Acces...

Merci de vos réponses.

Je ne sais pas du tout comment on se sert de ces fonctions, pouvez-vous m'en dire plus ou me donner un lien vers un tutoriel ?

Merci d'avance pour votre aide !

Pour le DLookup (RechDom), il suffit de consulter l'aide standard d'Acces.

salut,
un peu de lecture, et tout deviendra clair :ccool:
http://starec.developpez.com/tuto/fonctionsdomaines/

Bonjour,
merci pour le petit tutoriel :) mais le problème persiste car DLookup prend un string dans l'expression alors que moi je veux un numéro Auto ou un numérique... j'ai essayé ceci

Code:

---

idDeLaCartouche = Val("SELECT [idCartouche] FROM [Cartouche]WHERE [Reference]='" & Texte7.Value & "'")

---

la il me rentre bien tout comme il faut sauf qu'au lieu de récuperer idCartouche de la table cartouche, il me met 0 dans idCartouche dans la table imprimante et pareil pour le lieu...

salut,
pourquoi tu utilises Val alors qu'on te propose une fonction de domaine du type Dlookup() ?
D'autre part, ta requete n'est pas bien redigee, avec des espaces manquants...

Essaie ceci :

Code:

---

idDeLaCartouche = Dlookup("idCartouche","Cartouche","Reference='" & Texte7.Value & "'")

---

Merci, ça fonctionne très bien! MERCI

Bonne journée, à bientôt

Salut à tous,
Voilà j'ai aussi le même souci, je veux récupérer le dernier id(autonumero) de ma table "Cause" saisi à partir d'un formulaire et l'associer à une autre table liée "Action" à cette dernière. J'ai utilisé la fonction dlookup() mais elle insert à la table "Action" le premier id de ma table "Cause".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Execute_Click() Dim db As Database Set db = CurrentDb() Dim idDeLaCause As Long Dim sql As String     db.Execute "INSERT INTO Cause(TCause) VALUES ('" & Me.Causes & "')" db.Execute "INSERT INTO Action ([TAction],[NumCause]) VALUES ('" & Me.Actions & "','" & idDeLaCause & "')" 'End If MsgBox ("L'ajout a été prise en compte") End Sub

---

J'ai même tenter à utiliser une requête qui récupère le dernier id(autonumero) de la table "Cause"

Code:

---

1 2	sql = "SELECT MAX(NumCause) AS MAxEnreg FROM Cause" et l'ajouter à la fontion dlookup() idDeLaCause = DLookup("NumCause", "Cause", "sql")

---

mais il ya un message d'erreur "opération annulée".
Merci pour votre aide.

Salut à tous,
J'ai trouvé comment récupérer le dernier id(numeroauto) d'une table saisi à paritr d'un formulaire et l'associer à une autre table liée à cette dernière, il suffit pour cela d'utiliser la fonction DMax()

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Execute_Click() Dim db As Database Set db = CurrentDb() Dim idDeLaCause As Long Dim sql As String db.Execute "INSERT INTO Cause(TCause) VALUES ('" & Me.Causes & "')" sql = DMax("SELECT Max(NumCause) FROM Cause", "Cause") db.Execute "INSERT INTO Action ([TAction],[NumCause]) VALUES ('" & Me.Actions & "','" & sql & "')"

---