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.
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.
Laatst bewerkt: