controleren van invoer (datum/tijd)

[timmethy]

Beste VBA gebruikers,

Vraag: Hoe controle ik de invoer op juistheid

Procedure
Stap 1: Druk op "ok"
In tekstvak1 komt een datum/tijd te staan >>>>Format(Now(), "dd-mmm hh:nn")
Stap 2: Knop toevoegen

Nu wil ik dat hij als je op toevoegen klikt dat hij het formaat van tekstvak1 controleert
Het is mogelijk om in het tekstvak de datum/tijd aan te passen, maar ik wil wel dat hij later gecontroleerd wordt, zodat ik altijd dezelfde notitie heb


De controle is dus: Controleer tekstvak1 op Formaat ("dd-mmm hh:nn")
Hoe doe ik dit?

Mvg,

Tim

 

[snb]

Door in plaats van een tekstvak een DTPicker te gebruiken.

 

[timmethy]

Bij dit picker kan je geen datum / tijd wegzetten?

Ik zie de keuzes wel
Lange datum notitie
Datum notitie
tijd notitie
custom (das ook datum)

Ik heb datum + tijd nodig
Er is geen andere manier om de invoer op een bepaald formaat te controleren?
##-### ##:## __-___ __:__

In access weet ik dat je een tekstvak kan instellen met een bepaalde verplichte opmaak
Kan dat in vba (excel) ook>?


mvg,

Tim

 

[timmethy]

Heb het opgelost met het volgende:

Velden:
DTPicker1 < datum (begin)
DTPicker2 < tijd (begin)
DTPicker3 < datum (eind)
DTPicker4 < tijd (eind)
txtMaxtijd1 < de maximale tijd in uren dat je over een proces mag doen

opdrachtknop 1: (begintijd)

Private Sub btnbegintijd_Click()
Me.DTPicker1.Value = Format(Now(), "dd-mmm")
Me.DTPicker2.Value = Format(Now(), "hh:nn")
End Sub

Opdrachtknop 2: (eindtijd)

Private Sub btneindtijd_Click()
Me.DTPicker3.Value = Format(Now(), "dd-mmm")
Me.DTPicker4.Value = Format(Now(), "hh:nn")
End Sub

Opdrachtknop 3: Toevoegen van de gegevens
De controle voor de tijd wordt dan:

If DateDiff("n", (DTPicker1 & " " & DTPicker2), (DTPicker3 & " " & DTPicker4)) > _
(txtMaxtijd1 * 60)  Then
MsgBox "U hebt langer over het proces gedaan dan de normtijd"
Exit Sub
End If