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,078,462
Messages
5,340,456
Members
399,376
Latest member
Tresfjording

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top