SI ma liste est vide .. .Résolu

Question

Bonjour à tous voila ma question est simple : coment savoir si ma liste est vide par un IF . .. j'ai d'abord essayer 

If lstRevue.RowSource Is Null Then
lst.revue = "Ce client n'est abonné à aucun magazine"
End If

Puis

If lstRevue.RowSource = "" Then
lst.revue = "Ce client n'est abonné à aucun magazine"
End If

Mais le programme n'est pas rentrer dans ma boucle
Vous pouvez m'aider pour ce simple petit truc  ?tout silple ?

PCPT · Accepted Answer

encore si c'est DANS access, c'est VBA !
bref, et listcount?
++

cs_casy · Answer

Peut-etre If lstRevue.Count=0 then ....

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

petitcatenaire · Answer

"Membre de methode ou de données introuvable . . ." Est ce normal ? ( PS comment met ton son code comme le tien pour eclairer mes futurs messages

cs_casy · Answer

Quel est le type de ta variable lstRevue ?

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

petitcatenaire · Answer

Une liste faite sur une interface avec le type de donnée par defaut mon code complet pour plus de clarté :

Private Sub charge_Click()
'afficher les revues auxquels l'ID est abonné
lstRevue.RowSource "select NomRevue from  Abonnement,Revue where Abonne " & idSaisie & " and NumRevue = Abonnement.Revue; "

If lstRevue.Count = 0 Then
lst.revue.RowSource = "Ce client n'est abonné à aucun magazine"
End If
End Sub

cs_fauve · Answer

Salut,

En faite, Casy veut savoir comment tu as déclaré ta variable lstRevue ?

<hr size="2" width="100%" />Pensez : Réponse Acceptée

petitcatenaire · Answer

Non je ne l'ai pas déclaré puisque elle correspond a une liste créer dans le formulaire . . . mais elle sera une chaine de caracteres puisque j'y stocke le contenu d'un select.

cs_casy · Answer

On va dire la même différenment.

Quel est donc alors le type de contrôle utilisé, listview, listbox, combobox, datagridview, ......

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

petitcatenaire · Answer

J'en ai aucune idée . . . Je suis vraiment débutant je savais meme pas qu'il y avais plusieur types de listes . . .

cs_casy · Answer

OK, j'ai trouvé.

Visiblement tu es en VB6 et non pas en VB2005 comme indique la rubrique ou tu as posté. Tu as utilisé probablement un contrôle DataList.

Alors déjà, il te faut aussi un controle adodc. C'est ce controle que tu vas connecter à ta base de données. C'est aussi dans ce controle que tu vas définir la requette de sélection.

Ensuite dans ton contrôle liste, à la propriété RowSource, il faut affecter le controle adodc. Ensuite dans la propriété ListField, tu vas définir quel est le champ de ta requette qui va remplir la liste, donc ici NomRevue, probablement.
De plus ce controle ne permet pas d'afficher du texte que tu lui passerais. Il te faudra afficher ton message dans un label ou par une messagebox

Ensuite ce controle ne permet pas de connaitre le nombre d'éléments de la liste. Par contre il possède la propriété VisibleCount qui te donne le nombre d'éléments visible à l'écran.
Donc à priori, si tu as un élément ou plus de visible à l'écran c'est que la liste est remplie.
On peut donc en déduire le code suivant (àprès avoir fait toutes les modifications énoncées plus haut)

If lstRevue.VisibleCount = 0 Then 
    msgbox("Ce client n'est abonné à aucun magazine" )
End If

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

petitcatenaire · Answer

Je me suis mis en la version 2005 ? argh je suis vraiment desole alors . . . J'utilise access 2000 malheureusement le ".VisibleCount" n'a pas l'air d'éxister . . .

petitcatenaire · Answer

Dois-je mettre en resolu et repostuler au bon endroit ou attendre qu'un modo me deplace ?

PCPT · Answer

déplacé vers VB6, en espérant que....

cs_casy · Answer

Ok effectivement c'est de l'Access, là, je suis complètement largué. Je n'ai plus qu'Access2007 sur mon poste et je ne sais même pas créer de formulaire avec.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

petitcatenaire · Answer

En m'excusant pour avoir poster un peu trop a la hate je vous remercie a tous de votre aide effectivement il fallait utiliser listcount encore merci a vous

SI ma liste est vide .. .

15 réponses

Votre réponse

Discussions similaires