Code Examples For RunCommand Constants

Alignment Toolbar

acCmdAlignLeft, acCmdAlignRight, acCmdAlignBottom, acCmdAlignTop, acCmdAlignToGrid

This routine allows you to display a toolbar to assist in the design of a Form or Report. There are a number of steps required to ensure this example works.

  1. Create a toolbar called "AlignmentTools".
  2. Add the required buttons to the toolbar.
  3. Name the buttons as appropriate. Set the on action property to "=AlignItems("Left")" etc.
  4. Add the AlignItems function to a module.
  5. Display the Toolbar "AlignmentTools" when in the design of a form or report.
'***************** Code Start *******************
' This code was originally written by Terry Wickenden.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.

Function AlignItems(strType As String)
  'Accepts string of type to be aligned
  'Needs to run from a toolbar

  Dim strCheck As String

  strCheck = UCase(strType)
  Select Case strCheck
    Case "LEFT"
      DoCmd.RunCommand acCmdAlignLeft
    Case "RIGHT"
      DoCmd.RunCommand acCmdAlignRight
    Case "BOTTOM"
      DoCmd.RunCommand acCmdAlignBottom
    Case "TOP"
      DoCmd.RunCommand acCmdAlignTop
    Case "GRID"
      DoCmd.RunCommand acCmdAlignToGrid
  End Select

End Function

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