probleme transfert multiselection listbox dans BDD access

Bonjour à tous,

j'ai crée un formulaire avec 3 listbox dont la listbox3 est à choix multiple puis je transfert les 3 sélections dans une table Access.
mais quand l'utilisateur sélectionne plusieurs ligne dans ma listbox3 , il m'écrit seulement une sélection alors qu'il y en à plusieurs sélectionnée.

j'aimerais qu'il me créait autant de lignes dans ma table qu'il n'y a de sélections.

exemple:

sélection listbox1 =a
sélection listbox2 =b
sélection listbox3 =c et d et e

donc la il me faut:

3 lignes dans ma table:

a/b/c
a/b/d
a/b/e



merci par avance

Code:

---

1 2 3 4

for each in listbox1 for each in listbox2 for each in listbox3 insert combinaison

---

ou insert des 3 listbox dans des tables temporaires, puis une requete d'insert avec des cross join

merci pour ta réponse mais sans suces

j'arrive maintenant (grâce au code en rouge) à écrire autant de ligne que de sélection dans ma listbox mais il écrit dans ma base table 3 fois le nom de la première sélection
j'ai donc crée une variable "defaut" qu'il faut que j'écrive dans ma table mais je ne sais pas comment faire, j'utilise la méthode
PalettierBindingSource.AddNew()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   If ListBox2.SelectedItem Is Nothing Then MsgBox("selectionner defaut") Exit Sub End If   If ListBox1.SelectedItem Is Nothing Then MsgBox("selectionner palettier") Exit Sub End If   If ListBox3.SelectedItem Is Nothing Then MsgBox("selectionner emplacement") Exit Sub End If   ' voici mon code Dim j As Integer Dim defaut As String   For Each j In ListBox2.SelectedIndices defaut = ListBox2.Items.Item(j) ' code     PalettierBindingSource.AddNew()     ' MsgBox(defaut)   Next   ListBox1.SelectedItems.Clear() ListBox2.SelectedItems.Clear() ListBox3.SelectedItems.Clear() ListBox3.Visible = False   End Sub

---