Sélection dans une zone de Liste - Access VBARésolu

Question

Bonjour, je bute depuis un moment sur un petit pb : 

En fait, mon but est de savoir si ma zone de liste contient au moins un &#233;l&#233;ment. 
Pour cela, je charche la valeur du 1&#176; controle de ma zone de liste. Si elle est nulle, c'est que la liste est vide.
J'utilise la propri&#233;t&#233; selected qui s&#233;lectionne bien le premier enregistrement. Malheureusement, l'enregistrement se met en surbrillance mais il ne se remplace pas un clic de souris sur l'&#233;l&#233;ment (dans ce cas l&#224;, on voit des points autour de l'enregistrement) car pour lui, la valeur (a) est toujours nulle. 

Voici mon code :

'Dim a As String
'    Forms!achatpap.Requery
'    DoCmd.OpenForm "Commandepapier"
'    Forms!commandepapier!listefournisseur.Requery
'    Forms!commandepapier!listefournisseur.Selected (0) = True
'    a = Forms!commandepapier.listefournisseur.Value
'    If IsNull (a) Then
'       MsgBox "Il n'y pas de commande non valid&#233;e pour ce jour", vbOKOnly, "Pas de 'commande &#224; passer"
'       DoCmd.Close acForm, "Commandepapier"
'    End If

NB : Si je clique manuelement sur le premier enregistrement, &#231;a marche!

je vous remercie pour votre aide
Seb

Molenn · Accepted Answer

Tu veux savoir si ta zone de liste contient au moins un élément ?

Ca veut dire que tu cherches à savoir si ta zone de liste contient un élément en tant que tel ou un élément sélectionné (dans une liste à sélection multiple par exemple) ?

Parce que dans le premier cas, tu te fatigues avec ton code non ?
Il te suffit de faire ZoneDeListe.listcount, ce qui te donnera le nombre d'élément dans ta zone de liste. S'il est égal à zéro, c'est que c'est vide :)

sebouratif · Answer

Je ne connaissais pas Listcount !!!
Merci beaucoup, surtout pour la rapidit&#233; (une r&#233;ponse satisfaisante en moins d'un quart d'heure, merci vbfrance !)

Pour Information, on sait jamais &#231;a peut servir, est-ce que tu sais si je peux connaitre la valeur de l'enregistrement ?

Seb

Sélection dans une zone de Liste - Access VBA

2 réponses

Discussions similaires