Msgbox problem

[bloukopkoggelmander]

All

This is most likely a stupidly easy question, but my brain is mud (My first ever Access project I have been given is huge and complicated and learning as I go)

What I want to do is to have a message box prompt a user apon closing a form. With a YesNo option. If the user clicks yes, then the form is closed, if no then the form stays open.

I have tried Macros and VBA code for this. Also spend the last few days searching TheScripts and the Net, but not much luck.

Thanks

Martin

[nico5038]

Try this code behind a button:

IF msgbox ("Sure ?",vbYesNo) = vbYes then
docmd.quit
endif

This will close the database when the Yes is clicked, else nothing will happen.

Nic;o)

[bloukopkoggelmander]

Howzit Nico5038

Thank you for the reply. I gave it a go and it works fine except that I only want to close/not close the form the user has open and not the whole database.

I will see if I can alter it slightly to do what I need to.

Thanks again

Martin

[NeoPa]

I would suggest putting the code in the OnClose event, but then I saw there was no Cancel parameter :(.
You should be able to use the following code though, to quit just the current form. I have it on a command button.

Private Sub cmdExit_Click()
    Call DoCmd.Close(ObjectType:=acForm, ObjectName:=Name)
End Sub

[bloukopkoggelmander]

Hi NeoPa

Thanks for your reply. Right I have tested it and it does work, it just does not do what I am after. I need a message box to prompt the user if they are sure they want to close the form or not, so they basically have a Yes/No or OK/Cancel option.

Thanks

Martin

[missinglinq]

Private Sub YourExitFormButton_Click()
If MsgBox("Are You Sure ?", vbYesNo) = vbYes Then
DoCmd.Close acForm, YourFormName
End If
End Sub

[bloukopkoggelmander]

MissingLinq

That's the baby!!!! Thanks man, you just made my day.

Thanks a lot!!

[NeoPa]

Sorry,

I was responding after you saw Nico's post.
I meant to put that code (the one line) in place of the .Quit in his code rather than replace it completely.

No harm done, you have all you need :)

[bloukopkoggelmander]

I have now, thank you very much.