Fonction ENABLED

bonsoir,

J'ai réalisé un formulaire d'inscription pour une association sportive. j'ai donc pas mal d'informations a valider pour alimenter un tableau.

j'ai un bouton de commande appelé BtnAjout

Dans sa fenetre de propriete j'ai mis enabled sur false

pour activer mon bouton BtnAjout j'ai utilisé la fonction suivante

Private Sub TxtDateSaisie_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TxtDateSaisie = DateValue(Now)
If TxtDateSaisie <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

en fait je voudrais en plus pour que mon BtnAjout soit activé qu'une autre textbox appelée soit remplie ainsi qu'un combobox appelé CbbTypeLicence.

il faut en fait que TxtDateSaisie, TxtDateNaissance et CbbTypeLicence ne soient pas vide

j'espere avoir ete clair Merci pour votre aide

Bonjour,

Un essai ...

Private Sub TxtDateSaisie_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

   Me.TxtDateSaisie = DateValue(Now)
   If TxtDateSaisie <> "" And TxtDateNaissance <> "" And CbbTypeLicence.ListIndex > -1 Then
      CommandButton1.Enabled = True
   Else
      CommandButton1.Enabled = False
   End If
End Sub

ric

Merci ca fonctionne bien

ric