Problème avec la multi-sélection dans une zone de liste
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:
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à :)
++++