Yes/No Question box in a form?

[HeyYouYesYouNoNotYouYou]

Hi,

I have got a data input form in access, and i would like a yes/no message box to appear when the "complete order" command button is pressed. The command button is linked to a macro which runs a set of queries in the completion process. I have tried writing VBA code to do this in access, however i am not too familiar with writing vba in access and cannot understand a problem that i encountered. I transferred the original macro to vba code and then added in my own message box macro, however when the button is pressed, the message box code seems to be ignored and the macro just runs anyway. However when trying the message box code by itself, it runs. Can anybody suggest anything that could help me out on this?

This is the vba that i used, if it would be any help

 Const cstrPrompt As String = _
        "Are you sure you want to save this record? Yes/No"
    If MsgBox(cstrPrompt, vbQuestion + vbYesNo) = vbNo Then
        Cancel = True
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "complete", acViewNormal, acEdit
    DoCmd.OpenQuery "delte_orders", acViewNormal, acEdit
    DoCmd.Close acForm, "Orders"
    DoCmd.SetWarnings True

Thanks in advance,

Heyyouyesyounonotyouyou

 

[xenou]

An IF statement should have two branches, one to do something if true, the other if false. I see only one branch in your posted code, and it appears to do everything you don't want it to do.

Is this code for an event? Which one?

 

[HeyYouYesYouNoNotYouYou]

What it should be doing is bringing up a question box when a the save button is clicked (in a form). The question box should carry on with the process if "Yes" is selected, and when "No" is selected it should cancel the process. I'm not sure if my code needs tweaking or I need to go about this in a completely different way.

Cheers

 

[xenou]

Const cstrPrompt As String = _
        "Are you sure you want to save this record? Yes/No"
    If MsgBox(cstrPrompt, vbQuestion + vbYesNo) = vbNo Then
        Cancel = True
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "complete", acViewNormal, acEdit
    DoCmd.OpenQuery "delte_orders", acViewNormal, acEdit
    DoCmd.Close acForm, "Orders"
    DoCmd.SetWarnings True

You have a "Cancel = True" in this code, which leads me to wonder what you are canceling. If it is a Form Before Save event, then maybe:

Dim strPrompt As String
        
    strPrompt = "Are you sure you want to save this record? Yes/No"
    If MsgBox(cstrPrompt, vbQuestion + vbYesNo) <> vbYes Then
        Cancel = True
    Else
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "complete", acViewNormal, acEdit
        DoCmd.OpenQuery "delte_orders", acViewNormal, acEdit
        DoCmd.Close acForm, "Orders"
        DoCmd.SetWarnings True
    End If

See how you do one thing or another, based on the response? IF ... ELSE ...

 

[HeyYouYesYouNoNotYouYou]

Thanks for the help.