Discussion :

[Mimisio]

Bonjour !
J'ai une zone de liste à sélection multiple où j'affiche des éléments. Ce que je veux, c'est sélectionné plusieurs éléments puis en cliquant sur un bouton à côté, ajouter tous ces éléments dans une autre table. Mon problème c'est qu'il n'y a toujours que le premier (dans l'ordre dans la zone de liste) qui s'ajoute dans ma table

Voici le code du bouton de confirmation d'ajout.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Commande5_Click()
DoCmd.SetWarnings (False)
 
For i = 0 To Liste1.ListCount - 1
    If Liste1.Selected(i) Then
        DoCmd.RunSQL "INSERT INTO Table_fant SELECT canal.designation FROM canal WHERE (false) OR (canal.Designation='" & Liste1.Column(0, i) & "');"
    End If
 
Next i
 
DoCmd.SetWarnings (Visible)
 
End Sub

Liste1 : zone de liste
Canal : table de départ
table_fant : table d'arrivée

Voilà

++++

[bruno28]

tu n'incrémente pas ta boucle
Ajoute i = i + 1 avant next i

[Mimisio]

Non c'était pas sa ... La boucle FOR incrémente déja toute seule. Par contre j'ai trouvé mon problème et c'est tout bête ! J'avais oublié de mettre la clé primaire de ma table_fant en Num Auto donc il n'y avait qu'un numéro possible et un seul enregistrement à chaque fois, le premier.

Merci quand même

++