G
Guest
Does anybody know why this code work in Excel but not in Access?
Sub RunDaily()
Application.OnTime Now + TimeValue("11:00:00"), "Statcar"
End Sub
Sub Statcar()
DoCmd.SetWarnings False
DoCmd.Hourglass True
DoCmd.OpenQuery "qmak_tbl_Statcar", acViewNormal
DoCmd.SetWarnings True
DoCmd.Hourglass False
MsgBox "qmak_tbl_Statcar has finished running!", vbOKOnly, Reminder
End Sub
Any help will be appreciated. Thank you.
Merrisa
Sub RunDaily()
Application.OnTime Now + TimeValue("11:00:00"), "Statcar"
End Sub
Sub Statcar()
DoCmd.SetWarnings False
DoCmd.Hourglass True
DoCmd.OpenQuery "qmak_tbl_Statcar", acViewNormal
DoCmd.SetWarnings True
DoCmd.Hourglass False
MsgBox "qmak_tbl_Statcar has finished running!", vbOKOnly, Reminder
End Sub
Any help will be appreciated. Thank you.
Merrisa