run a sub program when selecting yes on msgbox inside userform

Question

I currently have a userform that has 3 options on printing. I want to be able to click a button, a msgbox appear with the options "yes" or "no" and if the user selects "yes", then run a sub program that's on sheet 4 (i have 2 sheets that are sheet4 and sheet2).I think the problem with the code right now is with "call slab", VBA inst recognizing the sub program "slab", this is the program that will print out my selected data.

Private Sub CommandButton1_Click()
  If MsgBox("Do you want to continue?" & vbCrLf, vbYesNo) = vbYes Then
  Call Slab
  Else
  docmd.Close commandButton_Click


  End Sub

You should read:Chip Pearsons - Scope Of Variables And Procedures — TinMan
...all VBA coders should read Chip Pearson's "everything" :-) — ashleedawg

Vityata Vityata · Accepted Answer · 2018-07-02T14:00:36

Declare the slab as public and it will be ok:

Private Sub CommandButton1_Click()

    Select Case MsgBox("Do you want to continue?" & vbCrLf, vbYesNo)
        Case vbYes
            Slab
        Case vbNo
            'nothing
    End Select

End Sub

Public Sub Slab()
    MsgBox "Here is the SLAB"
End Sub

run a sub program when selecting yes on msgbox inside userform

1 Answers