Unexplained run-time error 3021

[GL]

Hello

In an application I had used in all the forms the code
…
err_Form_Current:
If Err = 3021 Then
Resume Next
Else …
to suppress the ‘no current record’ error messages when navigating through
empty record subform using my custom made navigation buttons.
But now all suddenly when I navigate through a form with empty record
subform I get the message “Run-time error 3021 no current recordâ€
I have copied and run the same application in another computer and for the
same cases I get no error messages.
Can you give please any explanation to that?

Thank you
GL

 

[Sprinks]

GL,

Does the procedure in which this code appears have the statement

On Error Goto err_Form_Current

at the top?

Sprinks

 

[Sprinks]

GL,

It sounds like this application is changing a setting in the Registry; on a
virgin computer, it might be useful to look at the Registry before and after
running this program.

Other than that, although Number is the default property for the Err object,
it's possible that the application is forcing the reference to be explicit,
so I'd also try changing

If Err = 3021
to
If Err.Number = 3021

Good luck.
Sprinks