Strange Startup Problem

Does the function have an error trap?

Public Function xyz()
On Error GoTo errLbl
...
Exit Function
errLbl:
Msgbox Err.Description
End Function

Probably some condition has not been met on initial startup.
Err.Description may shed some light on the problem.

Rich

*** Sent via Developersdex http://www.developersdex.com ***
 >> Stay informed about: Strange Startup Problem 

Rich P explained :
> Does the function have an error trap?
>
> Public Function xyz()
> On Error GoTo errLbl
> ..
> Exit Function
> errLbl:
> Msgbox Err.Description
> End Function
>
> Probably some condition has not been met on initial startup.
> Err.Description may shed some light on the problem.
>
> Rich
>
> *** Sent via Developersdex http://www.developersdex.com ***

Yes. I trap and log all errors. The error is actually coming from the
macro, saying it can't find StartSystem()...

John
 >> Stay informed about: Strange Startup Problem 

On Dec 30, 2:39 pm, John von Colditz wrote:
> Rich P explained :
>
>
>
>
>
> > Does the function have an error trap?
>
> > Public Function xyz()
> > On Error GoTo errLbl
> > ..
> > Exit Function
> > errLbl:
> > Msgbox Err.Description
> > End Function
>
> > Probably some condition has not been met on initial startup.
> > Err.Description may shed some light on the problem.
>
> > Rich
>
> > *** Sent via Developersdexhttp://www.developersdex.com***
>
> Yes. I trap and log all errors. The error is actually coming from the
> macro, saying it can't find StartSystem()...
>
> John- Hide quoted text -
>
> - Show quoted text -

so the module exists and runs from the intermediate window
but the macro doesn't 'run' ?
 >> Stay informed about: Strange Startup Problem 

Roger expressed precisely :
> On Dec 30, 2:39 pm, John von Colditz wrote:
>> Rich P explained :
>>
>>
>>
>>
>>
>>> Does the function have an error trap?
>>> Public Function xyz()
>>> On Error GoTo errLbl
>>> ..
>>> Exit Function
>>> errLbl:
>>> Msgbox Err.Description
>>> End Function
>>
>>> Probably some condition has not been met on initial startup.
>>> Err.Description may shed some light on the problem.
>>> Rich
>>
>>> *** Sent via Developersdexhttp://www.developersdex.com***
>>
>> Yes. I trap and log all errors. The error is actually coming from the
>> macro, saying it can't find StartSystem()...
>>
>> John- Hide quoted text -
>>
>> - Show quoted text -
>
> so the module exists and runs from the intermediate window
> but the macro doesn't 'run' ?

Correct. The macro tries to run, and says it can't find the code. Once
I run it from the immediate window, it will start from the macro.

John
 >> Stay informed about: Strange Startup Problem 

For the Macro Action I selected the

RunCode

action and then in the Function Name window below I selected the desired
function from the builder dialog that comes up when you click on the
elipse (...) button. This seems to work for me.

Rich

*** Sent via Developersdex http://www.developersdex.com ***
 >> Stay informed about: Strange Startup Problem 

Rich P explained :
> For the Macro Action I selected the
>
> RunCode
>
> action and then in the Function Name window below I selected the desired
> function from the builder dialog that comes up when you click on the
> elipse (...) button. This seems to work for me.
>
> Rich
>
> *** Sent via Developersdex http://www.developersdex.com ***

Yes, that's the bizarre part. It's been working fine for at least 5
years...

John
 >> Stay informed about: Strange Startup Problem 

Well, one other option you have is to use a startup form instead of the
autoexec macro. Create a startup form and select that for the startup
option (either deleting or renaming your autoexec macro so that it does
not execute). In the startup form you can use VBA in the Form's Load
event with an Error Trap to Resume Next but log any errors that may
occur:

-----------------------------------------
Private frmStartup_Load()
On Error GoTo errLbl
...
call your function or just run whatever in this event
Exit
errLbl:
DoCmd.RunSql "Insert Into tbl_ErrLogs(ErrDescrp, ErrDate)
Select '" & Err.Description & "', #" & Date & "#"
Resume Next
End Sub
-----------------------------------------



Rich

*** Sent via Developersdex http://www.developersdex.com ***
 >> Stay informed about: Strange Startup Problem