Discussion :

[fredhali2000]

Salut.

Dans un formulaire de ma base de données, j'ai une zone de liste qui permet la selection d'autant d'items que possible.
Je veux faire une requete qui me permette d'entrer ces items dans une table, avec une boucle, mais je ne sais pas laquelle et je ne sais pas trop comment faire...
Si il y a dix items selectionnés, je veux les entrer un par un dans la table avec la même requete, mais sans qu'il y ait deux fois le même item...
Pouvez vous m'aider ???

MERCI.

[monsurf]

je ne sais pas comment tu rempli ta zone de liste...
mais si par exemple le contenu de la liste vient d'une requete, tu n'as qu'a faire insert into ... select ...from requete

resultat, tu vas inserer exactement ce que tu as dans la zone de liste...
mais ca marche seulement si ta liste a comme source une requete

j'espere t'avoir aidé!

[fredhali2000]

En fait, le contenu de la liste est issu d'une requête, mais ce sont uniquement les items que j'ai selectionné qui doivent entrer dans la requete insert into.
Ma liste contient 200 noms et j'en selectionne 10. Ce sont uniquement les dix qui doivent aller dans la table ...

[monsurf]

si j'ai bien compris, tu fais un filtre sur ta requete pour remplir ta zone de liste ?!

si c'est le cas, tu applique le meme filtre pour ton insert into

Code :

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

insert into table (v1,v2...) select (c1,c2...) from tarequete where ...tonfiltre

[fredhali2000]

Non.
C'est une zone de liste.
Je peux donc selectionner un ou plusieurs items de la liste...

[monsurf]

pour selectionner directement de la liste je ne sais pas comment faire, sorry...
mais je crois que chaque element de la liste a un indice, donc il ya moyen de les recuperer un par un...

Courage

[foste]

Salut

Code :

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

1
2
3
4
5
6
Dim varItm As Variant
 
For Each varItm In Me.MaListe.ItemsSelected
...moncode...
 
Next varItm

Carine

[fredhali2000]

j'ai fait :

Code :

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

1
2
3
4
5
6
 
Dim varItem as Variant
 
For Each varItem In Me.ListeActeurs.ItemsSelected
DoCmd.RunSQL "INSERT INTO participer (code_personne, code_film, en_qualite_de) VALUES ('" & varitem & "', '" & code_titre & "', '" & "Acteurs" & "')"
Next varItem

Et cela ne marche pas...
Peut-etre est-ce l'utilisation de varItem dans la requete ???
JE ne sais pas.
Pouvez vous m'aider ???

[foste]

la synthaxe c'est :

Code :

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

Me.MaList.ItemData(varItm)

dans la boucle a la place de ton "varitem "

De plus, il semble que tu inserres des codes, donc numeriques. Il ne faut donc pas les mettre entre ''.
Et il manque le ; a la fin.

Carine

[fredhali2000]

Merci beaucoup...
Ca marche.
tu m'as sauvé la vie...

Fred.