Error Handling 2501

[RainyDay]

Hi I want to open a form if the error occurs. Currently on error I get the standard access message, on debug the error is at the line i have highlighted
Either Open a form or customise the message but the code does not seem to get to Form_Load_Err. Sorry I'm not too flash on VBA so any help, I'm grateful


Private Sub Form_Load()
On Error GoTo Form_Load_Err
DoCmd.Close acForm, "frmExpired"
DoCmd.OpenForm "frmLogon", acNormal, "", "", , acNormal <<<Error Here

Form_Load_Exit:
Exit Sub
Form_Load_Err:
MsgBox Error$

Resume Form_Load_Exit


End Sub

[pbaldy]

Sounds like you want to trap for that specific error:

http://www.baldyweb.com/ErrorTrap.htm

[RainyDay]

Hi thanks for your prompt reply, when I was scrathing arounf for an answer your Page was one I had looked at
I tried the following but the access standard Error Box comes up

Private Sub Form_Load()
On Error GoTo ErrorHandler
DoCmd.Close acForm, "frmExpired"
DoCmd.OpenForm "frmLogon", acNormal, "", "", , acNormal
ExitHandler: 'clean up as necessary and exit
Exit Sub
ErrorHandler:
Select Case Err 'specific Case statements for errors we can anticipate, the "Else" catches any others
Case 2501 'Action OpenReport was cancelled.
MsgBox "No data to display"
DoCmd.Hourglass False
Resume ExitHandler
Case Else
MsgBox Err.Description
DoCmd.Hourglass False
Resume ExitHandler
End Select
End Sub

i'm sort of in the dark over this

[pbaldy]

Does the other form open it hour error?

[RainyDay]

No , the screen stalls on the Access Error

[pbaldy]

Can you post the db here?

visited NZ in April. My daughter recently moved there (Wellington). Enjoyed it!

[RainyDay]

I'll have a play to just put the essentials in as there are 50+ objects

[June7]

50+ objects shouldn't be so big, follow instructions at bottom of my post.