reprise de données d'une zone de liste multiple ACCESS

reprise de données d'une zone de liste multiple ACCESS - VB/VBA/VBS - Programmation

Marsh Posté le 13-04-2006 à 11:20:05    

Bonjour,
 
Je voudrais pouvoir en VB reprendre les données d'une zone de liste multiple ACCESS pour pouvoir par la suite cliquer
sur un bouton qui m'ouvrirait les états concernant le ou les choix que j'ai sélectionné dans la liste.
 
Merci.


Message édité par blase le 13-04-2006 à 11:23:18
Reply

Marsh Posté le 13-04-2006 à 11:20:05   

Reply

Marsh Posté le 13-04-2006 à 11:26:06    

J'utilise ceci, pour une liste nommée "L_grid1" ayant deux colonnes :

Private Sub L_grid1_DblClick(Cancel As Integer)
   donnee1 = Me.L_grid1.Column(0)
   donnee2 = Me.L_grid1.Column(1)
   Call OuvrirMonEtat(....)
End Sub

Reply

Marsh Posté le 13-04-2006 à 11:30:05    

Merci. Je vais voir comment je m'en sors avec cela

Reply

Marsh Posté le 13-04-2006 à 11:31:05    

Cela marche avec 1 ligne sélectionnée mais pour reprendre le résultat de plusieurs lignes ?

Reply

Marsh Posté le 13-04-2006 à 11:35:30    

Oui, désolé, j'ai lu trop vite la question et j'ai crû que c'était pour plusieurs colonnes (comme je l'ai fait récemment pour moi).
Pour plusieurs lignes, je ne sais pas, mais dans la doc, je lis :
 

If the MultiSelect property is set to Simple or Extended, you can use the Selected property or the ItemsSelected collection to determine whether a particular item in the list is selected. The Selected property is a zero-based array that contains the selection state of each item in a list box. For example, if you wanted to determine whether the first item in a list box is selected, you would check the value of the Selected property for that item. The following line of code prints the value of the Selected property for the first item in a list box named List1 to the Debug window:
Debug.Print Me!List1.Selected(0)
To return data from a row in a list box, regardless of whether that row is selected, you can use either the ItemData property or the Column property. The ItemData property returns data from the column specified by the BoundColumn property. The Column property returns data from a specified row and column.


Reply

Marsh Posté le 13-04-2006 à 13:48:53    

C'est bon, j'ai trouvé : Merci olivthill pour tes réponses rapides. la deuxième m'a bien aidé.
 
Private Sub Commande2_Click()
Dim vnt As Variant
Dim i As Integer
 
For Each vnt In Me.liste.ItemsSelected
    For i = 0 To Me.liste.ColumnCount - 1
        Text = Text + Me.liste.Column(i, vnt)
        Next i
    Next vnt
 
essai.Value = Text
 
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed