acCmdFont

Code Examples

Display the Font Dialog

acCmdFont

The example is passed a form name and then displays the font dialog. The form must be open and in datasheet view.

' ***************** 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.

Sub OpenFont(strForm As String)

  On Error GoTo ErrOpenFont

  DoCmd.SelectObject acForm, strForm, False
  DoCmd.RunCommand acCmdFont
  Exit Sub

ErrOpenFont:
  Select Case Err
    Case 2046
    'Command not available
      MsgBox "Command not available at this time"
    Case 2489
    'Form not open
      MsgBox strForm & " must be open"
    Case 2501
    'Cancel Selected in Dialog Box
    Case Else
      MsgBox Err & ":-" & vbCrLf & Err.Description
  End Select

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.