I have a section of VBA code in MS-Access, that for reasons I don't understand, stops the execution of the code and leaves the user looking at a yellow highlighted line of code in the VBE. The code looks like the following:


On Error Resume Next
Set MyForm = Forms("MyForm")
LastError = Err ' <=== Stops HERE

If LastError <> 0 Then
    ... blah, blah, blah

I am using the error condition to find out if the form "My Form" is opened.

     At first, I had "Stop on All Errors" checked. When I was done debugging, I switched to "Stop on UnHandled Errors". The code worked fine for several weeks. Now it stops at the point indicated. When I check the value of Err (Immediate Window: ?Err.Number), I get zero.

I am baffled as to why this is happening. Does anyone have any ideas?

--- Tom


--- Tom

__________________
--- Tom

What data type is LastError?

show complete code
You may be doing something else somewhere else that is causing the error at that point.


What have you changed lately?




Sal

LastError is a variant.

Unfortunately, I have the complete code at work on a private network with no Internet access. The code I show is fairly consistent with what I have at work. I'll try to get a printout and post it.

I had not changed anything in the last 3 weeks.


--- Tom

I have seen this before in an application I built. The code would just stop for no reason and display a yellow line of code to the end user. I set a break point in the proc and then F8'ed through the proc, clear all breakpoints and then pressed F5. I tested the proc again and then it didn't stop. I also ensured that is was compiled and I clicked save after the compile.

HTH,
Mike

Thanks ... I'll try that.


--- Tom

Do the de-compile and compact and repair that we talked about on this tread

http://p2p.wrox.com/topic.asp?TOPIC_ID=5188

then wee will see how it goes.





Sal

If I'm not mistaken, if you want to trap the error number you must use the Err.Number property, not just Err by itself. If you wanted a description of the error, you'd use Err.Description to get it.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division