Is is possible to run a Macro & Code in 1 Event Procedure

[Bre035]

I am attempting to require certain field be populated with data, save the record, and open a new form in one Event procedure when a Comand Button is selected on Form. Unfortunately, this is erroring out on me or halt messages when attempting to run Macro certain intervals.
HAlT Message is Condition=True, Action Name=Close, Arguments Form, frm_CLLDateEntry, prompt


My code:

Private Sub Command36_Click()
Dim box As ComboBox
Dim box1 As ComboBox
Dim box2 As ComboBox
 
Set box = Me![LOB]
Set box1 = Me![CALL TYPE]
Set box2 = Me![CALL RESULT]
 
If IsNull(box) Then
  MsgBox "You must select Line of Business", vbExclamation, "No Line of Business"
    box.SetFocus
      box.Dropdown
        Cancel = True
ElseIf IsNull(box1) Then
  MsgBox "You must select Call TYPE", vbExclamation, "No Call Result"
    box1.SetFocus
    box1.Dropdown
      Cancel = True
ElseIf IsNull(box2) Then
  MsgBox "You must select Call Result", vbExclamation, "No Call Type"
    box2.SetFocus
    box2.Dropdown
      Cancel = True
End If
 
    Dim stDocName As String
 
    stDocName = "mcr_AddNew"
    DoCmd.RunMacro stDocName
 
Exit_Command36_Click:
    Exit Sub
 
 
End Sub

[ADezii]

@Bre035
Cancel = True has no meaning within the Context of a Click() Event unless it is defined in the Form's Code Module or Globally in a Standard Code Module. Should this be the case, it is never a good idea to Declare a Boolean Variable named Cancel. You may also wish to Exit the Routine should any NULLs be found in any of the 3 Combo Boxes.

Private Sub Command36_Click()
Dim box As ComboBox
Dim box1 As ComboBox
Dim box2 As ComboBox
Dim stDocName As String
 
Set box = Me![LOB]
Set box1 = Me![CALL TYPE]
Set box2 = Me![CALL RESULT]
 
If IsNull(box) Then
  MsgBox "You must select Line of Business", vbExclamation, "No Line of Business"
    box.SetFocus
      box.Dropdown
        Exit Sub
ElseIf IsNull(box1) Then
  MsgBox "You must select Call TYPE", vbExclamation, "No Call Result"
    box1.SetFocus
      box1.Dropdown
        Exit Sub
ElseIf IsNull(box2) Then
  MsgBox "You must select Call Result", vbExclamation, "No Call Type"
    box2.SetFocus
      box2.Dropdown
        Exit Sub
End If
 
'Execute only if ALL Combos are polulated
stDocName = "mcr_AddNew"
DoCmd.RunMacro stDocName
End Sub

[NeoPa]

You can include a macro from within a VBA procedure by simply executing it :

Call DoCmd.RunMacro(MacroName, _
                    [RepeatCount], _
                    [RepeatExpression])