error logs

External Since: Sep 21, 2006 Posts: 40

Hi Allen, Thanks for getting back to me.
I changed the module name to moderror. I ran the procedure under debug and
still came up with the error. I took out the domnd.help. I created that for
the error.

Private Sub Form_Open(Cancel As Integer)
' fld = True
On Error GoTo Form_Open_Error

x = y

On Error GoTo 0
Exit Sub

Form_Open_Error:
Call moderror(Err.Number, Err.Description, "somename()")
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
Form_Open of VBA Document Form_frm_emergency"
End Sub

Where the "somename()" is is that supposed to be the name of the procedure?

Thanks again. Your help is appreciated.

"Allen Browne" wrote:

> Thanks, Tom, for the suggestion.
>
> I would have to think through the implications of what you are saying.
> Benefits of *not* passing the error number and description would include the
> fact that the Err object is already global, and supports mulitple errors
> within it. What concerns me is the possibility that another error could
> occur, so that the current error is not the one that originally occurred.
> That was the point of copying the Err.Number and Err.Description from the
> Err object to the variables before passing it.
>
> Could that happen? I don't know. VBA is not multi-threaded, but JET is. Is
> there a chance that it could it fail in some future version of Access? We
> are certainly moving towards multi-core machines, and the software will go
> that way. VBA is unlikely to be re-written to be multi-threaded, but VBA
> calls in JET are not uncommon.
>
> So, I just don't know if it would be 100% reliable or not. It seemed to me
> that the safest path was to copy the error info to variable before anything
> else happened.
>
> Any further suggestions welcome.
>
> --
> Allen Browne - Microsoft MVP. Perth, Western Australia
> Tips for Access users - http://allenbrowne.com/tips.html
> Reply to group, rather than allenbrowne at mvps dot org.
>
> "Tom van Stiphout" <no.spam.tom7744.RemoveThis@cox.net> wrote in message
> news:c2rs64hdvkj5gqa3mi8sk0m5hpik20c9kn@4ax.com...
> > On Sat, 5 Jul 2008 00:20:02 +0800, "Allen Browne"
> > <AllenBrowne.RemoveThis@SeeSig.Invalid> wrote:
> >
> > Your function is called like this:
> > Call LogError(Err.Number, Err.Description, "SomeName()")
> > Personally I would not pass in the Err.Number and Description. The Err
> > object is global so the function can read these values itself.
> > In the occasional case you want a different description you could code
> > that as:
> > Err.Description = Err.Description & " My additional text goes here"
> > Call LogError(Err.Number, Err.Description, "SomeName()")
> >
> > -Tom.
> >
> >
> >>Presumably we are talking about this link:
> >> http://allenbrowne.com/ser-23a.html
>
>

External Since: Nov 08, 2003 Posts: 9672

You got the *same* error message after renaming the module?

Try a compact/repair (in case the old name is hanging around.)

If that doesn't solve it, there must be another naming clash in the database
somewhere or you would not get that same error message.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Afrosheen" <Afrosheen DeleteThis @discussions.microsoft.com> wrote in message
news:644660EB-1994-417C-8861-C9D197E9916F@microsoft.com...
> Hi Allen, Thanks for getting back to me.
> I changed the module name to moderror. I ran the procedure under debug and
> still came up with the error. I took out the domnd.help. I created that
> for
> the error.
>
> Private Sub Form_Open(Cancel As Integer)
> ' fld = True
> On Error GoTo Form_Open_Error
>
> x = y
>
>
> On Error GoTo 0
> Exit Sub
>
> Form_Open_Error:
> Call moderror(Err.Number, Err.Description, "somename()")
> MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
> Form_Open of VBA Document Form_frm_emergency"
> End Sub
>
>
> Where the "somename()" is is that supposed to be the name of the
> procedure?
>
> Thanks again. Your help is appreciated.