Discussion :

[kramsde]

Bonjour,

Voici mon problème.

Considérons un formulaire, un liste déroulante simple, un bouton
... et une table.

Une table que j'apelle dans l'exemple TABLE (idTBL (numéro auto), LibTBL (text)).
Une liste que j'apelle LISTE, et un bouton BTN.

La proriété contenu de LISTE, contient "select TABLE.idTBL, TABLE.LibTBL FROM table", la colonne liée est 1, et la largeur de la première colonne est de zéro afin de masquer l'id.

Jusque là du grand classique.

En précondition, la table n'est jamais vide.

Je souhaite obliger l'utilisateur à selectionner une ligne avant de cliquer sur BTN.

Dans le code de l'évènement load du formulaire j'ai :
LISTE.selected(0) = True

Ainsi j'ai la première valeur de la liste selectionnée par défaut.

Jusque là tout va bien

dans le code l'évènement click de BTN j'ai :

MsgBox (LISTE) supposé renvoyer la valeur de la colonne lié du row selectionné.


Or il se produit ceci :

A l'ouverture du formulaire, la première ligne est bien selectionnée
Losque je clique sur BTN, j'ai "utilisation incorrecte de null".

Si avant de cliquer sur BTN je clique sur la première ligne de la liste, alors il me renvoie bien l'IdTBL.

J'en déduit que LISTE.selected(0) = True ne fonctionne pas complètement.

Je ne peux pas utiliser la propriété "valeur par défaut" de la LISTE, car le contenu de la table étant dynamique je ne connais pas cette valeur.


Gloire à celui qui trouvera solution à mon problème.

[Jeannot45]

A l'ouverture de ton formulaire, il faut utiliser la syntaxe suivante

Code :

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

1
2
Me.Liste.SetFocus
Me.Liste.ListIndex = 0

En cliquant sur le bouton BTN ton MsgBox affichera la bonne info

Bonne continuation

[mout1234]

Bonjour et bienvenu sur le forum.


Essaies avec ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub ap_Combo_SelectFirstValue(cbo As ComboBox)
'selectionner la première valeur d'une liste déroulante
On Error Resume Next
 
    If cbo.ListCount > 0 Then
        cbo.value = cbo.ItemData(0)
    End If
 
 
End Sub

Pour l'utiliser, il te suffit de mettre ce code dans un module, et de l'appeler à l'ouverture de ton formulaire

Code :

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

ap_Combo_SelectFirstValue Me!Liste

EDIT: bien vu Jeannot , c'est plus simple

[kramsde]

Les deux soluces fonctionnent.

Merci mille fois, z'etes des chefs.

[mout1234]

De rien


N'oublies pas de cliquer sur