Discussion :

[ricardams]

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

[Pol63]

Code :

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

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

[ricardams]

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 :

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

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