Comment vérifier qu'aucun choix n'a été fait dans une liste déroulante ?

Question

Bonjour tout le monde,


J'ai une liste de recette (genre liste déroulante)


Comment dire :


SI aucun choix n'est cliqué sur la liste déroulante ?


J'avais essayé ceci :

Code  :
If listRecette(0).ItemData(listRecette(0).ListIndex) > -1Then

ça n'a pas l'air de fonctionner car je n'ai cliqué sur rien du tout.


Merci d'avance pour l'aide.


beegees

PCPT · Answer

salut,

id len(talistbox.text)=0 then =>rien n'a été selectionné

 
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

beegeezzz · Answer

Salut et bonne année,

Mon erreur se déclenche ici :

 If listRecette(0).ItemData(listRecette(0).ListIndex) > -1 Then

Dans ce module :

Public Sub ARendreOuPas()
    Dim rsMontantDu As Recordset
    Dim MontantDu As Double
    Dim ARendre As Double
    textMontantDu.Text = ""
    If listRecette(0).ItemData(listRecette(0).ListIndex) > -1 Then
        On Error GoTo erreur:        Set rsMontantDu BDOuvrirTable("SELECT prix from recette WHERE id " & listRecette(0).ItemData(listRecette(0).ListIndex), True)
        MontantDu = rsMontantDu("prix")
        textMontantDu.Text = MontantDu & "€"
            If textMontantInsere.Text <> "" Then
            ARendre = textMontantDu.Text - textMontantInsere
            If Val(textMontantInsere) > Val(textMontantDu) Then
                textMontantARendre.Text = Abs(ARendre)
                textMontantARendre.ForeColor = vbGreen
            Else
                textMontantARendre.Text = "0.00"
                textMontantARendre.ForeColor = vbRed
            End If
        Else: MsgBox "veuillez choisir une recette vant de mettre une pièce svp "
              Exit Sub
        End If
    End If
erreur:
    textMontantDu.Text = "0.00"
End Sub

Nulle part, je parle d'ID jusqu'à l'erreur, je ne pense donc pas que ta solution va m'aider.

2 choses encore :

1) le on error go to ne fonctionne pas (j'ai pourtant été dans outils/option/général/récupération d'erreur et j'ai coché Arrêter sur les erreurs non gérées
2) y-a-t-il moyen de mettre des balises entre le code que l'on montre dans ce forum ?

Merci pour tout.

beegeezzz

PCPT · Answer

if len(talistbox.text)=0 then ...

désolé

MOUSSAOUIAAZIZ · Answer

Salut,
If listRecette.text = "" then ..

cs_Joh76 · Answer

Salut,
Si aucun choix n'est sélectionné dans une listbox ou un combobox, la valeur du listindex est égale à -1.
if listRecette.ListIndex=-1 then....

Comment vérifier qu'aucun choix n'a été fait dans une liste déroulante ?

5 réponses

Votre réponse

Discussions similaires