Hunting down this error: object variable or with block variable not set

[munkee]

As topic says. Under normal database usage when I click quit I write to a log the current date/time. This is just for audit purposes to keep track of when people enter/leave the database.

However, after I have done some vb editing I always seem to get the following error when I try to exit the database using the quit button on my main form:

object variable or with blcok variable not set.


I also have a user login form whcih runs using the autoexec macro as soon as the database starts. I can produce the same error as above if I click cancel to quit the database.

I dont understand where this error can be. Under normal operation it works fine but it messes up after I have done some coding in design view or if I click this cancel button. I know it must be tied to the quitting but specifically where I can not see.

To make matters worse my breakout isnt working =| I set a breakpoint and the code always seems to be running past it. So I cant break on the button click and step through.

Appreciate any feedback on this I know it would be hard without seeing the code but if there are any pointers on what to look out for they will help a lot.

Regards,

Chris

[NeoPa]

When interfering with the code, your running project is often reset. I have mine set to warn me when this happens (Go to Tools / Options of the VBA IDE and select the General tab. From there ensure Notify Before State Loss is checked in the Edit and Continue area).

Once this happens (the project is reset), all the running variables that are being maintained within the project are lost, so many objects are no longer usable.

I hope this helps Chris.

PS. This is one of those where understanding the code is almost irrelevant :)

[munkee]

I have just set this so we will see how it does. But as I said before if I click cancel on the user logon page I get the same error too so I'll have a look through that code and see if there is anything that could be going wrong.

Atfer some searching I have found the offending code:

Public rsAlwaysOpen As Recordset
 
 
Public Sub Form_Close()
'Start open ended error handler
On Error GoTo tagError5
    rsAlwaysOpen.Close
    Set rsAlwaysOpen = Nothing
    'Call AccessCloseButtonEnabled(True)
    'End of successful code
    RestoreWindow
Runaway:
Exit Sub
 
'Handle the error type code
tagError5:
    MsgBox err.Description
    Resume Runaway
End Sub
 
Public Sub Form_Open(Cancel As Integer)
'Start open ended error handler
On Error GoTo tagError6
   Set rsAlwaysOpen = CurrentDb.OpenRecordset("tblDummy")
 
    'Call AccessCloseButtonEnabled(False)
'End of successful code
Headforthehills:
Exit Sub
 
'Handle the error type code
tagError6:
    MsgBox err.Description
    Resume Headforthehills
End Sub

[munkee]

Also I found out why breakpoints were not working correctly. I had turned off Special Keys within the startup of the database.

[NeoPa]

munkee: Atfer some searching I have found the offending code:

I'm not clear which of the lines you're referring to.