Discussion :

[tom572007]

Bonjour, je développe sous VBA depuis un petit mois, mais je commence à buter sur un problème assez précis. Lors du chargement d'un formulaire je remplis une listbox avec VBA par la méthode :

Code :

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

1
2
3
4
5
6
7
8
 
 
Sql = "SELECT Operation.IdOperation, Operation.CodeAction, Operation.DateOperation, Operation.TypeOperation, Operation.Qte, Operation.PT, Operation.OrdreJour FROM Operation WHERE IdPortefeuille='" & IdPortefeuille & "' AND CodeAction='" & CodeAction & "' AND DateOperation=#" & DateOperation & "#" 
 
 
ListeOperation.RowSource = Sql 
 
ListeOperation.Requery

La liste se remplit correctement, j'affiche manuellement 7 colonnes via les options d'access , et j'obtiens bien une liste d'enregistrements de 7 champs comme voulu.

Le problème survient lorsque je souhaite créer un évènement click sur cette listbox, car je ne parviens par aucun moyen de récupérer les valeurs de l'enregistrement cliké.

Code :

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

1
2
3
4
 
Dim Val As Variant 
Val = ListeOperation.Selected(0) 
MsgBox Val 'Affiche 0 pour chaque enregistrement

Code :

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

1
2
3
4
 
Dim Val As Variant 
Val = ListeOperation.Value 
MsgBox Val 'Affiche 0 pour chaque enregistrement

Peut être dois-je créer des colonnes hidden pour récupérer des valeurs?
Existe-t-il une méthode me permettant de récupérer ces enregistrements?
Avez-vous déjà été confronté à ce problème?

Malgrès toutes les discutions sur les forums qui existent à ce sujet. J'ai pas réussi à adapter une solution qui fonctionne. J'ai essayé par ailleurs d'autres moyens d'arriver à ces fins avc AddItem, déclarer la liste à partir d'un tableau, etc.... sans succès

Please Help me
Configuration: Windows XP Pro
ACCESS 2003
Microsoft VB 6.3

[Invité]

Bonjour

Fais une recherche sur le forum Access avec le mot Column, tu as de nombreux exemples, et bien sûr l'aide.

Starec

[tom572007]

Merci pour ce renseignement.

Je suis tout de même parvenu à un résultat concluant en utilisant la propriété index de la listBox

Code :

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

1
2
3
4
 
Dim Val As Variant
Val = ListeOperation.ListIndex
MsgBox Val 'Affiche le n° de l'enregistrement sélectionné