[AC-2007] Récuperer les valeurs d'une zone de liste [Résolu]

[Philippe LE PONT]

Bonjour,
Malgré la canicule je tente de faire fonctionner mes neurones.
J'ai cherché partout sur la faq et dans les forums, mais je n'ai pas trouvé la réponse.
Peut-être que je n'ai pas été au bon endroit.
Mon problème est le suivant :
J'ai développé une base sous Access 2007. Sur un formulaire j'ai une liste modifiable avec possibilité de sélectionner plusieurs valeurs. Je souhaite récupérer les valeurs sélectionnées pour mettre à jour une table.
Qui peut m'aider ou me dire ou regarder.
Un grand merci d'avance.
Cordialement

[Dolphy35]

Salut,

Voici le code que j'utilise.
Si tu veux récupérer des colonnes de la liste en particulier il suffit de changer l'index (0 est la première colonne).

Code :

1
2
3
4
5
6
7
8
9
10
11
12
' déclaration des variables
    Dim varElement As Variant
 
    ' test si sélection effectué dans la liste
    If lstChoix.ItemsSelected.Count <> 0 Then
        ' boucle sur les éléments sélectionné de la liste
        For Each varElement In lstChoix.ItemsSelected
            MsgBox lstChoix.Column(0, varElement)
        Next
    Else
        MsgBox "Aucunes sélections."
    End If

Dolphy

[Philippe LE PONT]

Merci de ta réponse.

Encore une chose (si possible)

J'ai donc plusieurs valeurs dans cette liste. Une fois récupérées, comment les envoyer dans une table.

Merci

[Dolphy35]

re,

tout dépend ce qur tu veux faire.

Tu veux mettre à jour les données, ajouter ?
Tes données sont ajoutées en uns fos ou chaque sélection ?

La ligne suivante te renvoi la sélection à chaque boucle.

Code :

MsgBox lstChoix.Column(0, varElement)

exemple tu as ceci comme sélection dans un liste quelconque :

• Choix 1
  Choix 4
  Choix 15

et bien tu auras avec le code à la première boucle un message avec Choix 1, ensuite un autre avec Choix 4 et un dernier avev Choix 15. Soit à chaque passage tu ajoute ou met à jour ou bien tu stock toutes les valeurs et tu ajoute une fois.
tout dépend des données à ajouter et comment tu les ajouter.
Ensuite il suffit de mettre un req SQL de type Action :

Code :

DoCmd.RunSQL "UPDATE" ou "INSERT INTO"

Dolphy

[Philippe LE PONT]

Merci de ta patience.

Je veux simplement (après avoir vidé la table à chaque fois) ajouter dans la table tout ce que j'ai sélectionné dans la liste.

Encore merci

[Dolphy35]

re,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
' déclaration des variables
    Dim varElement As Variant
 
    ' test si sélection effectué dans la liste
    If lstChoix.ItemsSelected.count <> 0 Then
        ' boucle sur les éléments sélectionné de la liste
        For Each varElement In lstChoix.ItemsSelected
            DoCmd.RunSQL "INSERT INTO MaTable (MesChamps) Values ('" & lstChoix.Column(0, varElement) & "')"
        Next
    Else
        MsgBox "Aucunes sélections."
    End If

Je te laisse finaliser la requête SQL en fonction de ta table et tes champs.

Dolphy

[Philippe LE PONT]

Un grand merci, cela fonctionne parfaitement.

Bien cordialement