Open op tijd "nu"lukt niet

[ggvand]

Hallo,
Ik wil graag in een Access database “slangen” een Formulier openen “sorteer14” op of vanaf een bepaald uur b.v het is nu ... na 14u open dan “sorteer14” of het is nu na 22u open dan “sorteer22”
Ik heb ik al wat geprobeerd en geëxpermenteerd maar het lukt tot nog toe niet,vermoedelijk omdat ik vba & access niet zo goed .
Het gevoegde gaat wel maar op bepaalde Tijd????

--Private Sub Knop0_Click()
On Error Resume Next

DoCmd.OpenForm "sorteer 22"
End sub--

Wie heeft een ideetje?
--------------------------------------------------

Bedankt voor het pijnigen van de hersenen ik heb iets gevoden ...nl:

Private Sub Knop0_Click()

Dim tijd As Integer
tijd = Hour(Time)

If tijd >= 6 And tijd < 14 Then
DoCmd.OpenForm "sorteer 6"

ElseIf (tijd >= 14 And tijd < 22) Then
DoCmd.OpenForm "sorteer 14"

Else
DoCmd.OpenForm "sorteer 22"
End If
End Sub

Bedankt .

Guy.

 

[Guus2005]

Als je vraag is opgelost zet hem dan op opgelost.

Op de manier die je beschrijft moet je zelf op een knop drukken waarna de routine gestart wordt. Als je je Timer event programmeert dankan je op de milliseconde bepalen wanneer er wat gebeurt.

Enjoy!

 

[ggvand]

Bedankt Guus

Goede tip bedankt Guus.