What does this code mean

[jo15765]

I am getting very good at deciphering VBA code!!! I have one question that google isn't much help with in the code it shows:

DoEvents
Me.Form.Refresh
Exit_Form_Current:
Exit Sub
Err_Form_Current:
Select Case Err.Number
Case 0
Resume Next
Case Else
Call gsErrorHandler(Err, Application.CurrentObjectName, Application.CurrentObjectType, "Form_Current")
End Select
Resume Exit_Form_Current
End Sub

And when I Debug, it is showing Sub or Function not defined on the Call gsErrorHandler. Is this a macro or something that was written by the previous code writer or what in the world is that?

[weekend00]

it must be a user defined function or procedure.

[jo15765]

When I have the database open, how would I get to it to view the code? Does that make sense what I am asking?

[weekend00]

you need to find out when this code is called.

you can find by the name of the procedure.

[orange]

You could go to any module and do a Find, also click Current Project, and type in the string you'd like to find.
Access will search all modules for the string.

gsErrorHandler sounds lke the name of a routine written and stored elsewhere.

[jo15765]

So if I open access and hit alt+F11 and all I have to do is search for the gsErrorHandle

[orange]

So if I open access and hit alt+F11 and all I have to do is search for the gsErrorHandle

Yes, but Select Current Project before you hit FIND
and it's gsErrorHandler right.

[jo15765]

Yes, it is gsErrorHandler. Was just a typo.

[orange]

Did you find the code?