Code Examples

Add Or Remove Form Headers

acCmdDesignView, acCmdFormHdrFtr, acCmdFormView, acCmdSave, acCmdSizeToFitForm

This routine accepts the name of an open form, adds a header and footer if not present or removes them if already present. It then saves and resizes the form.

' ***************** 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 AddRemoveHeaderFooter(strName As String)

  On Error GoTo ErrAddRemove

  Application.Echo False
  DoCmd.SelectObject acForm, strName, False
  DoCmd.RunCommand acCmdDesignView
  DoCmd.RunCommand acCmdFormHdrFtr
  DoCmd.RunCommand acCmdSave
  DoCmd.RunCommand acCmdFormView
  DoCmd.RunCommand acCmdSizeToFitForm
  Application.Echo True
  Exit Sub

ErrAddRemove:
  Application.Echo True
  Select Case Err
    Case 2046
    'Command not available
      MsgBox "Unable to complete the operation at this time.", vbCritical, "Not Available"
    Case 2489
    'Object is not open
      MsgBox strName & " must be open.", vbCritical, "Object Closed"
    Case 2501
    'Cancel selected in dialog box - do nothing
    Case 2544
    'Object does not exist
      MsgBox strName & " is not a valid name.", vbCritical, "Naming Error"
    Case Else
      MsgBox Err.Number & ":-" & 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.