Error message in application

[ashu.doc]

Dear All

I am getting this error message on exit of application:





I am simply using quit button with a message first which asks whether to exit or not and then getting this message. Although on pressing OK button on this message application does close down. This issue is not there when I am opening and testing database, only happens in the final app.
Please help guys!

[ItsMe]

Are you using VBA? I would do something like.

Dim intAnswer As Integer
intAnswer = MsgBox("Do you want to close the application?", vbQuestion + vbYesNo + vbDefaultButton2, "Exit Now")

    If intAnswer = vbYes Then
        Application.DoCmd.Quit
    End If

[ashu.doc]

Yes I was using slightly different VBA but even with your code the same error message is coming. Although I accept there is a calculative field in my form with calculate the no. of days between 2 dates and the quit button is on the same form, but this is happening even when I have not started putting any data in the form! There is also a switchboard in the application which has same button for quitting the app but when I am quitting from switchboard there is no such error message appearing?

[ItsMe]

Maybe it is as simple as closing that form and using another form to run your Quit method from. If you need it all done in one shot, you might be able to use the other form's On Activate or On Current event to execute the Quit Method.

[ashu.doc]

Hi
Can you please elaborate?

[ItsMe]

It may be that if the form is closed, you will be able to execute your statement

Application.DoCmd.Quit

So to close your form, you can use a statement like

docmd.openform "anotherForm",,,,,achidden  'count the commas for the hidden thing (air code)
docmd.close acform, Me.name

In the form named "anotherform" you can include the original statement that is likely causing the error. Maybe you can put it in the form's On Load, On Activate, or the On Current event. Maybe bind the form to a small recordset and place the following in the On Current.

Application.DoCmd.Quit

[ashu.doc]

Thanks for help