Private Sub cboJour_[COLOR=blue][B]AfterUpdate()[/B][/COLOR]
' Mettre la propriété : MatchRequired à TRUE
' Oblige l'utilisateur à choisir ou saisir la bonne valeur
Me.cboMois.Enabled = True
Me.cboMois.SetFocus
End Sub
Private Sub cboMois_[COLOR=blue][B]AfterUpdate()[/B][/COLOR]
' Mettre la propriété : MatchRequired à TRUE
' Oblige l'utilisateur à choisir ou saisir la bonne valeur
Me.cboAnnee.Enabled = True
Me.cboMois.SetFocus
' Vérifie que le jour pour le mois existe
If Not IsDate(Me.cboJour & "/" & Me.cboMois & "/" & Year(Now)) Then
MsgBox "Vous avez choisi de mauvaises valeurs (Février, 30 ou 31 jours)", vbInformation + vbOKOnly, "Calculer votre age"
Me.cboJour.SetFocus
Exit Sub
End If
End Sub
Private Sub cboAnnee_[COLOR=blue][B]AfterUpdate()[/B][/COLOR]
' Tout à déjà été vérifié, donc calcul de l'age
Me.Label3.Caption = Calculage(CDate(Me.cboJour.Text & "/" & Me.cboMois.Text & "/" & Me.cboAnnee.Text), Date)
If Label3.Caption < 18 Then
MsgBox "Saisie bloquée,veuillez modifier l'année ou supprimer le nouveau membre", , "Personne mineur!"
TextBox50.Enabled = False
TextBox51.Enabled = False
TextBox1.Enabled = False
TextBox57.Enabled = False
TextBox59.Enabled = False
TextBox60.Enabled = False
TextBox62.Enabled = False
TextBox61.Enabled = False
TextBox63.Enabled = False
CheminImage.Enabled = False
CommandButton2.Enabled = False
EnregNewFid.Enabled = False
OptionButton1.Enabled = False
OptionButton2.Enabled = False
End If
If Label3.Caption >= 18 Then
TextBox50.Enabled = True
TextBox51.Enabled = True
TextBox1.Enabled = True
TextBox57.Enabled = True
TextBox59.Enabled = True
TextBox60.Enabled = True
TextBox62.Enabled = True
TextBox61.Enabled = True
TextBox63.Enabled = True
CheminImage.Enabled = True
CommandButton2.Enabled = True
EnregNewFid.Enabled = True
OptionButton1.Enabled = True
OptionButton2.Enabled = True
End If
End Sub