Rechercher : dans
Par :

[VBA ACCESS] Pb récupération valeurs Listbox

Dernière réponse le 21 sep 2007 à 11:32:13 tom572007, le 21 sep 2007 à 10:29:57 
 Signaler ce message aux modérateurs

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 liste box avec VBA par la méthode :

[code]

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

[/code]

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]
Dim Val As Variant
Val = ListeOperation.Selected(0)
MsgBox Val 'Affiche 0 pour chaque enregistrement
[/code]

[code]
Dim Val As Variant
Val = ListeOperation.Value
MsgBox Val 'Affiche 0 pour chaque enregistrement
[/code]

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?

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

1

 tom572007, le 21 sep 2007 à 11:32:13
  • +1

Résolu.


[code]
Dim Val As Variant
Val = ListeOperation.ListIndex
MsgBox Val 'Affiche le n° de l'index[/code]

Répondre à tom572007