запустить подпрограмму при выборе да на msgbox внутри пользовательской формы

Question

В настоящее время у меня есть пользовательская форма, которая имеет 3 варианта печати. Я хочу иметь возможность нажимать кнопку, появляется сообщение с опциями «да» или «нет», и если пользователь выбирает «да», то запустите подпрограмму, которая находится на листе 4 (у меня есть 2 листа, которые являются листом 4 и sheet2). Я думаю, что проблема с кодом прямо сейчас связана с «call slab», инстанс VBA, распознающий подпрограмму «slab», это программа, которая распечатает мои выбранные данные.

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


  End Sub

Answer 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