Method 'OnTime' of object'_Application failed
Can anyone tell me why I get the following error when running the code
below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
Method 'OnTime' of object'_Application failed
Untested but I think that the following variable is incorrectly declared.
Public RunWhenSplash As Boolean Try the following. Public RunWhenSplash As Date. I think that the following line will return False instead of a time when the variable is declared as Boolean instead of Date RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) -- Regards, OssieMac "ordnance1" wrote: Can anyone tell me why I get the following error when running the code below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
Method 'OnTime' of object'_Application failed
Solved
"ordnance1" wrote in message ... Can anyone tell me why I get the following error when running the code below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
Method 'OnTime' of object'_Application failed
Thanks for your reply.
I changed the Workbook_BeforeClose to what you see below. As to your other comment I changed from Public RunWhenSplash As Boolean, to Public RunWhenSplash As Double Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedu=cRunWhat, _ Schedule:=False On Error GoTo 0 End Sub "OssieMac" wrote in message ... Untested but I think that the following variable is incorrectly declared. Public RunWhenSplash As Boolean Try the following. Public RunWhenSplash As Date. I think that the following line will return False instead of a time when the variable is declared as Boolean instead of Date RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) -- Regards, OssieMac "ordnance1" wrote: Can anyone tell me why I get the following error when running the code below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
All times are GMT +1. The time now is 07:03 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com