Jan 6, 2004 #1 rosn459 Programmer Sep 18, 2003 37 US I need to schedule a report to print everynight at 5:45. How would I do this? I've gotten this so far: Dim Start! Start! = "17:45:00" DoEvents PrintForm
I need to schedule a report to print everynight at 5:45. How would I do this? I've gotten this so far: Dim Start! Start! = "17:45:00" DoEvents PrintForm
Jan 6, 2004 #2 SonOfEmidec1100 Technical User Aug 12, 2001 965 AU One suggestion add a timer control with an interval of say 1000 then in the Timer1_Timer event add Dim TempDate As Date Const Start = "17:45:00" Static LastRunDate As Date TempDate = Date If LastRunDate = TempDate Then Exit Sub If Format(Time, "HH:nn:ss" >= Start Then LastRunDate = TempDate ' PrintForm ' End If Upvote 0 Downvote
One suggestion add a timer control with an interval of say 1000 then in the Timer1_Timer event add Dim TempDate As Date Const Start = "17:45:00" Static LastRunDate As Date TempDate = Date If LastRunDate = TempDate Then Exit Sub If Format(Time, "HH:nn:ss" >= Start Then LastRunDate = TempDate ' PrintForm ' End If
Jan 6, 2004 Thread starter #3 rosn459 Programmer Sep 18, 2003 37 US Son, Thanks for the suggestion! I will give it a try! Upvote 0 Downvote