tout à fait, le time code va de 00:00:00:00 à 23:59:59:24
donc si comprend bien il faut spéciafier un masque de saisie dans un premier temps et ensuite "valide si" ?
Je suis mais je ne sais pas trop comment faire ! Merci pour ton aide Julien
3stone
Salut,
"julien" | tout à fait, le time code va de 00:00:00:00 à 23:59:59:24
Bon, alors d'abord le masque... que tu mettra dans la zone de texte du formulaire et non dans la table! Tu saisi exactement ceci:
00:00:00:00;0;_
dans propriété de la zone de texte, onglet Données seconde ligne: Masque de saisie
Ensuite, dans l'événement "Avant mise à jour" de cette zone de texte, que j'ai nommée "TimeCode", tu mets ceci :
Private Sub TimeCode_BeforeUpdate(Cancel As Integer) 'Max 23:59:59:24 If IsNull(TimeCode) Then Exit Sub Dim v As Variant v = Split(TimeCode, ":") If (v(0) > 23) Or (v(1) > 59) Or (v(2) > 59) Or (v(3) > 24) Then Cancel = True MsgBox "Mauvaise valeur", vbCritical, "Erreur" End If
"julien"
| tout à fait, le time code va de 00:00:00:00 à 23:59:59:24
Bon, alors d'abord le masque... que tu mettra dans la zone de texte
du formulaire et non dans la table! Tu saisi exactement ceci:
00:00:00:00;0;_
dans propriété de la zone de texte, onglet Données
seconde ligne: Masque de saisie
Ensuite, dans l'événement "Avant mise à jour" de cette zone de texte,
que j'ai nommée "TimeCode", tu mets ceci :
Private Sub TimeCode_BeforeUpdate(Cancel As Integer)
'Max 23:59:59:24
If IsNull(TimeCode) Then Exit Sub
Dim v As Variant
v = Split(TimeCode, ":")
If (v(0) > 23) Or (v(1) > 59) Or (v(2) > 59) Or (v(3) > 24) Then
Cancel = True
MsgBox "Mauvaise valeur", vbCritical, "Erreur"
End If
"julien" | tout à fait, le time code va de 00:00:00:00 à 23:59:59:24
Bon, alors d'abord le masque... que tu mettra dans la zone de texte du formulaire et non dans la table! Tu saisi exactement ceci:
00:00:00:00;0;_
dans propriété de la zone de texte, onglet Données seconde ligne: Masque de saisie
Ensuite, dans l'événement "Avant mise à jour" de cette zone de texte, que j'ai nommée "TimeCode", tu mets ceci :
Private Sub TimeCode_BeforeUpdate(Cancel As Integer) 'Max 23:59:59:24 If IsNull(TimeCode) Then Exit Sub Dim v As Variant v = Split(TimeCode, ":") If (v(0) > 23) Or (v(1) > 59) Or (v(2) > 59) Or (v(3) > 24) Then Cancel = True MsgBox "Mauvaise valeur", vbCritical, "Erreur" End If
