Scheduling Access Jobs

I use this code to determine the time set a status label and run some code. These program are opened using a scheduler from splinterware. This action is executed when the form is opened and will automatically close the database when finished. In this sample it runs the reports between 10pm and 11pm.

If Val(Left(Format(Now(), “hh:ss”), 2)) >= 22 And Val(Left(Format(Now(), “hh:ss”), 2)) < 23 Then
Me.txtStatus.Caption = “Running Auto Reports”
Call MakeReports
DoCmd.Quit
End If

testing