Code Examples

Open the Run Macro Dialog

acCmdRunMacro

This routine opens the Run Macro Dialog box so that the user can select a Macro to be run.

'***************** Code Start *******************
' Code by Terry Wickenden

Sub MacroRun()

  On Error GoTo ErrRunMacro

  DoCmd.RunCommand acCmdRunMacro
  Exit Sub

ErrRunMacro:

  Select Case Err
    Case 2046
      'Command not available
      MsgBox "Macro can not run at this time.", vbCritical, "Not Available"
    Case 2501
      'Cancel selected in dialog box - do nothing
    Case Else
      MsgBox Err.Number & ":-" & vbCrLf & Err.Description
  End Select
  Exit Sub

End Sub

'****************** Code End ********************

© 1998 - 2011 Terry Wickenden TKW Design Site developed maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.