Discussion :

[fredhali2000]

Salut.

J'ai regardé dans la FAQ avant de poster et pas trouvé...

J'ai une table FILM, une table PERSONNE et une table PARTICIPER.
Dans mon formulaire Ajout d'un film, j'ai un champ Titre, un champ real et un champ acteurs.
Quand je valide, ca fait.

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO film (code, titre) VALUES (" & Left(Me.titre, 10) & ", " & Me.titre & ")"
DoCmd.RunSQL "INSERT INTO participer (titre_film, nom_personne, en_qualite_de) VALUES ( " & Me.titre & ", " & Me.real & ", "Réalisateur")"

Jusque là ca va puisque un film n'a qu'un réalisateur.
Pour ce qui est des acteurs, je les choisis dans une liste à selection multiple, et je voudrais ensuite faire n requetes d'insertion dans la table participer avec le champ "en_qualite_de" à la valeur "acteur", ou n est le nombre de personnes selectionnées dans la liste à choix multiples, et récupérer à chaque fois la personne suivante sélectionnée pour faire la requete suivante. (Je pense à une boucle for, mais la je seche un peu surtout pour le nom des variables à utiliser, notamment les différentes valeurs selectionnées dans la liste.).

J'epsère m'être bien fait comprendre, et avoir été assez précis.


MERCI BEAUCOUP.

FRED

[Demco]

Voici un code qui t'indiquera comment parcourir tous les elements d'une zone de liste:
http://access.developpez.com/faq/?pa...selectElmtsLst

Donc au final ca devrait ressembler a:

Code :

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

1
2
3
4
5
6
Dim i As Long 
For i = 0 To Me.lstRes.ListCount - 1 
    If Me.lstRes.Selected(i) Then
       //Code a realiser pour une ligne selectionnee
    End If
Next i

[fredhali2000]

Merci.

Code :

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

1
2
3
4
5
6
Dim i As Long 
For i = 0 To Me.lst_acteur.ListCount - 1 
    If Me.lst_acteur.Selected(i) Then 
       DoCmd.RunSQL INSERT INTO participer (titre_film, nom_personne, en_qualite_de) VALUES ( " & Me.titre & ", " & Me.lst_acteur & ", "Acteur")"
    End If 
Next i

C'est ca, ou est-ce que le Me.lst_acteur va me retourner toute la liste?

[fredhali2000]

En fait la pour tester je fais un bouton qui déclenche une msgbox.
Je veux récuperer la valeur de ma liste (si plusieurs données sont selectrionnées...

[fredhali2000]

La je seche vraiment...
Je souhaite afficher la valeur de la zone de liste et ca marche pas.
Pour une liste défilante, je fais msgbox Me.liste et ca marche, mais pour le choix multiple ca marche pas...