OVH Cloud OVH Cloud

ListBox - zone de liste

2 réponses
Avatar
mkouri
salut =E0 tous,
j'ai une zone de liste avec 4 colonnes,la colonne li=E9e et=20
N=B01. je veux faire une s=E9lectionne multiple sur plusieurs=20
lignes et ins=E9rer les =E9l=E9ments s=E9lectionn=E9s (les valeurs=20
de la colonne 1) dans une table dans une seule op=E9ration.=20
mon probl=E8me est le suivant, je trouve pas la commande qui=20
r=E9cup=E8re la valeur de l'=E9l=E9ment s=E9lectionn=E9 et comment=20
r=E9cup=E9rer valeurs d'un coup.
merci et salutations =E0 tous

2 réponses

Avatar
3stone
Salut,

j'ai une zone de liste avec 4 colonnes,la colonne liée et
N°1. je veux faire une sélectionne multiple sur plusieurs
lignes et insérer les éléments sélectionnés (les valeurs
de la colonne 1) dans une table dans une seule opération.
mon problème est le suivant, je trouve pas la commande qui
récupère la valeur de l'élément sélectionné et comment
récupérer valeurs d'un coup.


Récuperer les valeurs "d'un coup", ce n'est pas possible... ;-)
Il faudra bien les lirent l'une après l'autre !

Ici, l'exemple d'une liste de membres, dont les ID sélectionnés sont ajouté à une table temporaire.


'//-----------------------------------------------------

Dim varI As Variant
Dim sSQL As String

If Me!lst_Membre.ItemsSelected.Count = 0 Then
MsgBox "Aucun Membre n'a été sélectionné", vbCritical, "Erreur"
Else
For Each varI In Me!lst_Membre.ItemsSelected

sSQL = "INSERT INTO T_TempDoc ( Temp_MemID) " _
& "VALUES (" & Me.lst_Membre.ItemData(varI) & ");"

CurrentDb.Execute sSQL

Next varI
End If

'//------------------------------------------------------


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
mkouri
merci c'est très sympa ;-))
salutations
-----Message d'origine-----
Salut,

j'ai une zone de liste avec 4 colonnes,la colonne liée et
N°1. je veux faire une sélectionne multiple sur plusieurs
lignes et insérer les éléments sélectionnés (les valeurs
de la colonne 1) dans une table dans une seule opération.
mon problème est le suivant, je trouve pas la commande qui
récupère la valeur de l'élément sélectionné et comment
récupérer valeurs d'un coup.


Récuperer les valeurs "d'un coup", ce n'est pas
possible... ;-)

Il faudra bien les lirent l'une après l'autre !

Ici, l'exemple d'une liste de membres, dont les ID
sélectionnés sont ajouté à une table temporaire.



'//-----------------------------------------------------

Dim varI As Variant
Dim sSQL As String

If Me!lst_Membre.ItemsSelected.Count = 0 Then
MsgBox "Aucun Membre n'a été sélectionné",
vbCritical, "Erreur"

Else
For Each varI In Me!lst_Membre.ItemsSelected

sSQL = "INSERT INTO T_TempDoc ( Temp_MemID) " _
& "VALUES (" & Me.lst_Membre.ItemData
(varI) & ");"


CurrentDb.Execute sSQL

Next varI
End If

'//------------------------------------------------------


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------



.