Delay Form loading by timer
Hi Guys
I am using the following code to load two forms at a specific time during the day.Is there any way I can delay the loading of the second form Frmdaysopen for 10 min after the first form Frmnoassign loads.
Private Sub Form_Timer()
On Error GoTo ErrorHandler
Dim dtrunreport As Date
Dim dtCurTime As Date
dtrunreport = Format(#10:54:00 AM#, "hh:mm")
dtCurTime = Format(Time(), "hh:mm")
If dtCurTime = dtrunreport Then
DoCmd.OpenForm "Frmnoassign"
DoCmd.OpenForm "Frmdaysopen"
End If
__________________
Brendan Bartley
|