if then with message box - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

if then with message box

Kim Nielsen

3 years ago

I have looked through a number of videos, and I am having an issue trying to create the following check before a user closes the form. On pressing the close button, I want it to look into the RecordID field, if it is Null then a message box pops up asking the user there is no record field do you wish to close anyways and not save your work? Yes or no, if yes then close the form without saving anything, if user selects no the set focus to create a record id button. Now if there is a record ID then close and save the form. I am at a loss on how to reference the vbYes and vbNo in the statement. Please help

	Scott Axton @Reply 3 years ago
Kim VBYesNoCancel was covered in Access Developer 3 Also, take a look at the IIF Function and the MsgBox videos and see what you come up with. If you hit a wall let us know what you come up with and we'll help you troubleshoot.

Kim Nielsen OP @Reply

3 years ago

I have reviewed these videos, however none, connects the 2 together. I know what I want it to do. Just not sure how to write it. Basically I am looking at this as a preventative measure to prevent loss of data and errors popping up:
The first part checks to see if we have a record ID, if it doesnt then we have a choice close it and lose all data, or set the focus to the button to create the record ID. if there is a record ID then just close the form and save it. Where i am missing the issue is the message box decision process?

    DoCmd.SetWarnings False
        If IsNull(FDRecordID) Then
            MsgBox("There is no record ID do you want to close this form anyways?", vbYesNo, "Warning!") = vbNo
            Me.NewRecBtn.SetFocus
        Else
            DoCmd.Close acForm, (DeptNewRecordF), acSaveNo
        End If
    DoCmd.SetWarnings True
    DoCmd.Close acForm, (FDRecordF), acSaveYes

	Kevin Robertson @Reply 3 years ago
You need nested If statements: `If IsNull(FDRecordID) Then If MsgBox("There is no record ID do you want to close this form anyways?", vbYesNo, "Warning!") = vbNo Me.NewRecBtn.SetFocus Else DoCmd.Close acForm, (DeptNewRecordF), acSaveNo End If End If`

	Kim Nielsen OP @Reply 3 years ago
Well I did not i could do that, thank you will put that in my took kit for programing thank you for this.

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen

New Feature: Comment Live View