Error Message

[Verda]

When I exit my database i get this error message. What is causing this?


Private Sub Command80_Click()
On Error GoTo Err_Command80_Click


DoCmd.Quit

Exit_Command80_Click:
Exit Sub

Err_Command80_Click:
MsgBox Err.Description
Resume Exit_Command80_Click

 

[pbaldy]

What is the error?

 

[Verda]

when i press the exit application button the error message comes up as "compile error expected end sub"

 

[Verda]

i deleted the "Exit application" button so the user can now exit from the switchboard and it seems fine. thanks anyway.

 

[pbaldy]

If what you posted was everything, then as the error implied, you were missing the

End Sub

at the end of it.

 

[Verda]

aahh right! thanks!