我目前有一个用户窗体,其中有3个打印选项。我希望能够单击一个按钮,出现一个带有“ yes”或“ no”选项的msgbox,如果用户选择“ yes”,则运行工作表4上的子程序(我有2个工作表,分别是sheet4和我认为现在代码的问题是“调用板”,VBA识别出子程序“板”,这是将打印出我选择的数据的程序。
Private Sub CommandButton1_Click()
If MsgBox("Do you want to continue?" & vbCrLf, vbYesNo) = vbYes Then
Call Slab
Else
docmd.Close commandButton_Click
End Sub
答案 0 :(得分:1)
将slab
声明为公开,就可以了:
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