Discussion :

[askobalt]

bonjour,

je souhaiterais que mon champs horaire soit "valide si" l'heure est comprise entre 00h00 et 23h59 le problème c'est qu'il s'agit d'horraire d'ouverture et de fermeture qui ont le masque de saisie suivant ##h## - ##h##

comment etablir un "valide si" en relation avec ses horaires?

[marot_r]

Ton champ est probablement un champ texte, la slution la plus évidente serait de découper ton champ en 2 champs date/heure.

Sinon il va falloir découper l'information et la controler et tu ne pourras pas utiliser Valide si parce qu'il me semble que cela n'accèpte pas de fonction. Il va falloir faire cela dans un formulaire et en code VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
private function EstHeureDebutFinValide(prmHeureDebutFin as string) as boolean
   dim result as boolean
 
   dim heureDebut as string:heureDebut=left(prmHeureDebutFin,5)
   dim heurFin as string:heureFin=right(prmHeureDebutFin,5)
 
   if EstHeureMinuteValide(heureDebut) and EstHeureMinuteValide(heureFin) then
      result=true
    else
      result=false
   end if
 
   EstHeureDebutFinValide=result
end function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
private function EstHeureMinuteValide(prmHeureMinute as string) as boolean
    dim result as boolean
    dim heure as long:heure=clng(left(prmHeureMinute, 2))
    dim minute as long:minute=clng(righ(prmHeureMinute,2))
 
    if 0<=heure and heure <=23 and 0<=minute and minute<=59 then
       result=true
     else
       result=false
    end if
 
    EstHeureMinuteValide=result
end function

sur Après MAJ (ou avant MAJ) de ton champ horaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    if not EstHeureMinuteValide(me.NomTonChampHoraire) then
        mshbox "Erreur sur l'horaire",vbExclamation
    end if

A+

[askobalt]

Je te remerci