Running VBA code automatically after clicking a button with macro command

[heavenbound4life]

Hello everyone, I have very little knowledge of VBA. Please, how can I make the code below run automatically after clicking a button with macro command? What I wanted is running the VBA code automatically after the macro must have completed its job. Thank you.

Private Sub cmdStrt_Click()

    With CodeContextObject
        On Error Resume Next
        DoCmd.GoToRecord , "", acNewRec
        If (.MacroError <> 0) Then
            Beep
            MsgBox .MacroError.Description, vbOKOnly, ""
        End If
    End With

    Me.InvoiceDate.Value = Format(Date, "dd-mmm-yyyy")
    Me.Employee.Value = Format([TempVars]![CurrentUser])
  
If Not IsNull(Me.InvoiceDate) Then
         Me![frmSubformSales].Form.ItemID.Enabled = True
         Me![frmSubformSales].Form.Quantity.Enabled = True
End If

End Sub

 

[oleronesoftwares]

how can I make the code below run automatically after a macro click event?

i am a bit confused by your question.

Macros can be attached to click event of a form control or command button, but macros don't have a click event.

 

[heavenbound4life]

i am a bit confused by your question.

Macros can be attached to click event of a form control or command button, but macros don't have a click event.

I'm sorry. What I wanted is running the VBA code automatically after the macro must have completed its job

 

[theDBguy]

Hi. Macros have a Run Code action, but I think they can only call functions and not subroutines. Also, it has to be public and not private.

 

[heavenbound4life]

Hi. Macros have a Run Code action, but I think they can only call functions and not subroutines. Also, it has to be public and not private.

Thank you very much

 

[oleronesoftwares]

I'm sorry. What I wanted is running the VBA code automatically after the macro must have completed its job

You can follow @theDBguy's suggestion or

Add the vba code to run the macro , the code will be just before your current code, i.e the line before it e.g
application.DoCmd.RunMacro ............

Private Sub cmdStrt_Click()

    With CodeContextObject
        On Error Resume Next
        application.DoCmd.RunMacro .................
        DoCmd.GoToRecord , "", acNewRec
        If (.MacroError <> 0) Then
            Beep
            MsgBox .MacroError.Description, vbOKOnly, ""
        End If
    End With

    Me.InvoiceDate.Value = Format(Date, "dd-mmm-yyyy")
    Me.Employee.Value = Format([TempVars]![CurrentUser])
 
If Not IsNull(Me.InvoiceDate) Then
         Me![frmSubformSales].Form.ItemID.Enabled = True
         Me![frmSubformSales].Form.Quantity.Enabled = True
End If

End Sub

 

[heavenbound4life]

Hi. Macros have a Run Code action, but I think they can only call functions and not subroutines. Also, it has to be public and not private.

Is it possible to convert an embedded macro to VBA code?

 

[theDBguy]

Is it possible to convert an embedded macro to VBA code?

You can go to the Form's design view and click the Convert Form's Macros to Visual Basic button, but that will convert all embedded macros on that form. You can't do just one.

 

[heavenbound4life]

You can follow @theDBguy's suggestion or

Add the vba code to run the macro , the code will be just before your current code, i.e the line before it e.g
application.DoCmd.RunMacro ............

Private Sub cmdStrt_Click()

    With CodeContextObject
        On Error Resume Next
        application.DoCmd.RunMacro .................
        DoCmd.GoToRecord , "", acNewRec
        If (.MacroError <> 0) Then
            Beep
            MsgBox .MacroError.Description, vbOKOnly, ""
        End If
    End With

    Me.InvoiceDate.Value = Format(Date, "dd-mmm-yyyy")
    Me.Employee.Value = Format([TempVars]![CurrentUser])

If Not IsNull(Me.InvoiceDate) Then
         Me![frmSubformSales].Form.ItemID.Enabled = True
         Me![frmSubformSales].Form.Quantity.Enabled = True
End If

End Sub

Thank you very much. It is an embedded macro. Can it work?

 

[heavenbound4life]

You can go to the Form's design view and click the Convert Form's Macros to Visual Basic button, but that will convert all embedded macros on that form. You can't do just one.

Okay, good. Thank you.

 

[heavenbound4life]

You can go to the Form's design view and click the Convert Form's Macros to Visual Basic button, but that will convert all embedded macros on that form. You can't do just one.

I tried it but I didn't see any changes anywhere except the creation of backup and after that, it closes and opens the DB. I opened the embedded macro and saw the same Convert Form's Macros to Visual Basic button but this time it is disabled. I don't really know what is going on. Maybe my macros are not supported by the conversion process.

 

[theDBguy]

I tried it but I didn't see any changes anywhere except the creation of backup and after that, it closes and opens the DB. I opened the embedded macro and saw the same Convert Form's Macros to Visual Basic button but this time it is disabled. I don't really know what is going on. Maybe my macros are not supported by the conversion process.

Assuming you had an embedded macro when you click a button, then after converting it to VBA, try clicking on that same button again to see if the code still work. If so, check it in design view to see if you're still using a macro or VBA. Since you said the ribbon button is now grayed out, it tells me you're using VBA now.

 

[oleronesoftwares]

Thank you very much. It is an embedded macro. Can it work?

yes it should