Docmd.Quit does not work

[mafhobb]

Hi

I have the following line of code near the end of an error-reporting function:

        If ErrorNumber = 3075 Or ErrorNumber = 2471 Or ErrorNumber = 2450 Or ErrorNumber = 2491 Then
            MsgBox "In der Ausführung ist ein Fehler aufgetreten. Sie müssen die Database neu starten. Error = " & ErrorNumber & "; " & ErrorCode & ". Form = " & ErrorForm & ". Control = " & ErrorControl
            DoCmd.Quit

Ocasionally I get error 3075 and the msgbox above appears, however, after closing the message box the database does not quit.

Under what circumstances would Docmd.Quit not work?

Thanks

mafhobb

 

[Cronk]

Try using
Application.quit
instead.

Docmd.quit is legacy.