Rendre mon contrôle visible quand il est invisible
beegeezzz
Messages postés152Date d'inscriptionmardi 4 novembre 2008StatutMembreDernière intervention10 avril 2017
-
4 janv. 2009 à 20:29
beegeezzz
Messages postés152Date d'inscriptionmardi 4 novembre 2008StatutMembreDernière intervention10 avril 2017
-
5 janv. 2009 à 09:09
Bonjour tout le monde,
J'ai un truc bizarre :
J'ai un contrôle (combobox) qui s'appelle comboDifferentesPieces.
Je vérifie si comboDifferentesPieces est visible ou pas avec ce code :
If listRecette(0).Visible False Then listRecette(0).Visible True
Mon contrôle n'est pas visible mais il ne met pas le contrôle à visible = true.
Est-ce normal ?
Voici le code de la procédure :
Private Sub listRecette_Click(Index As Integer)
Dim sql As String
'la toute première chose que je fais, dès qu'une boisson est sélectionnée, je vérifie si tous ses ingrédients sont
'disponibles, si ils le sont, je peux acheter la boisson autrement je fais un exit sub sql "SELECT * FROM ingredient INNER JOIN (recette INNER JOIN detail_recette ON recette.id detail_recette.ref_recette) ON ingredient.id = detail_recette.ref_ingredient WHERE recette.id = " & listRecette(0).ItemData(listRecette(0).ListIndex)
Set rsRecette = BDOuvrirTable(sql, False)
Dim VentePossibleouPas As Integer
While Not rsRecette.EOF
VentePossibleouPas = rsRecette("stock") - rsRecette("quantite")
If VentePossibleouPas < 0 Then
MsgBox "Boisson indisponible, veuillez récupérer votre argent svp"
commandAcheterBoisson.Enabled = False
comboDifferentesPieces.Visible = False
Exit Sub
Else
rsRecette.MoveNext
End If
Wend If listRecette(0).Visible False Then listRecette(0).Visible True
ARendreOuPas
End Sub
A voir également:
Rendre mon contrôle visible quand il est invisible