Bonjour le fofo
une fois de plus j'ai besoin de vous
J'aimerai savoir quel est le moyen d'agir sur plusieurs textbox à la fois.
voilà mon code, je traite les textbox une par une est c assez fastidieux surtout que le dois en faire d'autres comme ca
Merci du coup de main
une fois de plus j'ai besoin de vous
J'aimerai savoir quel est le moyen d'agir sur plusieurs textbox à la fois.
voilà mon code, je traite les textbox une par une est c assez fastidieux surtout que le dois en faire d'autres comme ca
Merci du coup de main
Code:
Private Sub TextBox5_AfterUpdate()
If Not (IsDate(TextBox5.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox5.Value = ""
Else
TextBox5.Value = Format(DateValue(TextBox5.Value), "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox6_AfterUpdate()
If Not (IsDate(TextBox6.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox6.Value = ""
Else
TextBox6.Value = Format(DateValue(TextBox6.Value), "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox7_AfterUpdate()
If Not (IsDate(TextBox7.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox7.Value = ""
Else
TextBox5.Value = Format(DateValue(TextBox7.Value), "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox8_AfterUpdate()
If Not (IsDate(TextBox8.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox8.Value = ""
Else
TextBox8.Value = Format(DateValue(TextBox58Value), "dd/mm/yyyy")
End If
End Sub