Code Examples

Hide An Object

acCmdWindowHide

This routine accepts the name of the object to be hidden and the type of object as Form,  Report, Table etc. It then hides that object.

'***************** 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 TestHide(strObjectName As String, strObjectType As String)
  Dim intType As Integer

  On Error GoTo errTestHide
  Select Case strObjectType
    Case "Form"
      intType = acForm
    Case "Macro"
      intType = acMacro
    Case "Module"
      intType = acModule
    Case "Query"
      intType = acQuery
    Case "Report"
      intType = acReport
    Case "Table"
      intType = acTable
    Case Else
      MsgBox "Invalid object type", vbCritical, "Hide Error"
      Exit Sub
  End Select
  DoCmd.SelectObject intType, strObjectName
  RunCommand acCmdWindowHide
  Exit Sub

ErrTestHide:
  Select Case Err
    Case 2489
      MsgBox strObjectName & " is not open and therefore can not be hidden."
    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.