Yes/No Message Box

[gheyman]

I would like to add a pop-up Message box that happens in this code after the DoCmd.RunCommand acCmdSaveRecord.

"Do you want to return to the TSL?"

If Yes then then DoCmd.OpenForm "frm_NIS_TSL", acNormal, "", "", , acNormal

If No then the DoCmd.GoToRecord , "", acNewRec command

Any help is appreciated.

Private Sub Command228_Click()
'Save Button
'Check Required Fields to verify data was entered


Dim strMissingInfo As String
Dim strMsg As String

On Error GoTo Command228_Click_Err

    On Error Resume Next
    
    
    If IsNull(Me.[Debarred]) Then
            MsgBox "You Must make a Selection in the Debarred Field"

    Else
    
    If IsNull(Me.[Restricted]) Then
            MsgBox "You Must make a Selection in the Resticted Field"
    Else

    If Me.[CommType].Value = "NA" Then
            MsgBox "You Must make a Selection in the Commodity Type Field"
    Else
    
    If Me.[Approval_Status].Value = "NA" Then
            MsgBox "You Must make a Selection in the Approval Status Field"
    Else
    
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , "", acNewRec
    
    End If
    End If
    End If
    End If
    

    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If


Command228_Click_Exit:
    Exit Sub

Command228_Click_Err:
    MsgBox Error$
    Resume Command228_Click_Exit

End Sub

Thanks for the Help!

 

[Micron]

maybe
add Dim result As Integer in the declarations section

after the line in question:

result = Msgbox("Do you want to return to the TSL?",vbYesNo)
If result = vbYes Then 
  DoCmd.OpenForm "frm_NIS_TSL", acNormal, "", "", , acNormal
Else
  DoCmd.GoToRecord , "", acNewRec command
End If