Yes/No Message Box

gheyman

Well-known Member
Joined
Nov 14, 2005
Messages
1,678
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.

Code:
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

Well-known Member
Joined
Jun 3, 2015
Messages
1,742
maybe
add Dim result As Integer in the declarations section

after the line in question:
Code:
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
 

Forum statistics

Threads
1,077,722
Messages
5,335,843
Members
399,052
Latest member
WPO

Some videos you may like

This Week's Hot Topics

Top