INSERT INTO avec LOOP et PARAMETERS

Bonjour,

Je développe actuellement une application pour la gestion de documentation. Chaque document peut être tagué avec 1 ou plusieurs mot-clés pour en faciliter la recherche.

J'ai donc une table T_Documents et une table T_Keywords avec une relation n/n. J'ai créé un table T_Junction qui prend la clé primaire de T_Documents et la clé primaire de T_Keywords.

Côté U/I, j'ai un formulaire qui permet à l'utilisateur d'ajouter un nouveau document à la base. Dans ce formulaire, l'utilisateur peut renseigner 1 ou plusieurs mot-clés (sous forme de liste déroulante) pour taguer le nouveau document.

J'ai une requête AddDocument qui ajoute le nouveau document à la table T_Documents. Ensuite, j'aimerais créer une requête AddJunction qui ajoute autant d'enregistrements Document_ID/Keyword_ID à la table T_Junction qu'il y a de keywords renseignés dans le formulaire.

J'ai commencé à écrire ça:
SQL pour Q_AddJunction

Code:

---

1 2 3 4

PARAMETERS [DocumentID] int, [KeywordID] int, INSERT INTO T_Junction (Document_ID, Keyword_ID) SELECT [DocumentID] AS Document_ID, [KeywordID] AS Keyword_ID;

---

VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Function Add_Junction()   Set qdf = CurrentDb.QueryDefs("Q_AddJunction") With qdf .Parameters("DocumentID") = 99 .Parameters("KeywordID") = 99 .Execute End With   End Function

---

Bon, de base, ça ne marche pas!:aie: Access me dit "Elément non trouvé dans cette collection" pour la ligne .Parameters("DocumentID") = 99. J'ai mis 99/99 comme dummy values pour retrouver mon enregistrement dans T_Junction si d'aventure ça marchait...
1/Voyez-vous ce qui ne marche pas dans ma définition/appelle de requête Q_AddJunction avec paramètres?

Les questions qui viendront après ça sont:
2/ comment passer en paramètre le document_ID du document qui vient d'être créé?
3/ comment réaliser une boucle sur la requête AddJunction pour autant de combo box renseignées (Me!Keyword#.Value <> "" Et Me!Keyword#.Visible = True)? (max 6)

Merci d'avance pour votre aide précieuse!

bonsoir Marco88,
INSERT INTO sans une table en sélection n'est pas possible dans acccess , il faut utiliser VALUES pour insérer les valeurs:

Code:

---

1 2 3 4 5 6

' avec des valeurs fixes: strSQL = "INSERT INTO T_Junction (Document_ID, Keyword_ID) VALUES(99, 99);" Currentdb.Execute strSQL, dbfailonerror ' avec des valeurs variables: strSQL = "INSERT INTO T_Junction (Document_ID, Keyword_ID) VALUES(""" & MaVariable1 & """,""" & MaVariable2 & """);" Currentdb.Execute strSQL, dbfailonerror

---

Merci tee_grandbois!

J'ai réécris ma requête SQL Q_AddJunction comme ça pour m'affranchir des paramètres dans un premier temps:

Code:

---

1 2	INSERT INTO T_Junction (Document_ID, Keyword_ID) VALUES (99, 99);

---

et côté VBA:

Code:

---

1 2 3 4 5 6

Private Function Add_Junction()   Set qdf = CurrentDb.QueryDefs("Q_AddJunction") qdf.Execute End Function

---

J'ai la même erreur 3265 sur la ligne qdf.Execute maintenant... :weird:

Hop, je suis reparti de tout propre et ta solution ajoute bien un enregistrement à la table T_Junction. Merci!!!

Je pense que mon problème venait du fait que j'avais créé une requête à part et que j'essayais d'appeler cette requête depuis mon fichier VBA. Lorsque tout le code est dans le fichier VBA, ça roule!

Me reste plus qu'à remplacer MaVariable1 par le dernier Document_ID de la table T_Documents et à faire une LOOP sur MaVariable2 pour toutes les combo box non vides et visibles.

Thanks a lot!

une piste pour avancer dans la boucle :

Code:

---

1 2 3 4 5 6 7

Dim Ctrl As Control For Each Ctrl In Me.Controls 'traiter uniquement les listes déroulantes If (TypeOf Ctrl Is ComboBox) Then ' .... traitement End If Next

---

Salut!

Merci tee_grandbois pour ta réponse. Le problème c'est que j'ai d'autres combo box sur le formulaire qui ne doivent pas faire partie de la boucle...

Du coup, j'ai utilisé une méthode bourin en hardcodant une liste des combo box à traiter (qu'elles soient renseignées ou pas, la boucle se chargera de les traiter ou non). Et ça marche! Le code ci-dessous si ça peut en aider d'autres.

Code:

---

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

Private Function Add_Junction()   Dim DocumentID As Integer Dim KeywordID As Integer Dim i As Integer Dim myKeywords   myKeywords = Array(Me!Keyword, Me!Keyword2, Me!Keyword3, Me!Keyword4, Me!Keyword5, Me!Keyword6) DocumentID = DMax("ID_Document", "T_Documents")   For i = 0 To UBound(myKeywords) If myKeywords(i) <> "" Then KeywordID = myKeywords(i) strSQL = "INSERT INTO T_Junction (Document_ID, Keyword_ID) VALUES(""" & DocumentID & """,""" & KeywordID & """);" CurrentDb.Execute strSQL, dbFailOnError End If Next i     End Function

---

Merci encore! :D

alors filtre sur le nom et la valeur:

Code:

---

If (TypeOf Ctrl Is ComboBox) And Left(Ctrl.Name,6) = "Keyword" And Ctrl.Value <> "" And Ctrl.Visible Then

---