Module: Application in Category Microsoft Access : Environment from Total Visual SourceBook

' Example of modApplication
'
' To try this example, do the following:
' 1. Create a new form in your copy of Sample.mdb (in the Total Visual SourceBook sample directory).
' 2. Create the following command buttons:
'       cmdCloseAccess
'       cmdCloseDB
'       cmdTest
'       cmdHideShowDB
'       cmdDBWindow
'       cmdShowHideSearchBar
'       cmdHideShowObjects
' 3. Paste this code into the form's module

#If VBA7 Then
  Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
#Else
  Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
#End If

Private Sub cmdDBWindow_Click()
  ' Example of MinimizeDatabaseWindow and RestoreDatabaseWindow
  Static fMin As Boolean

  If fMin Then
    fMin = Not fMin
    RestoreDatabaseWindow
  Else
    fMin = Not fMin
    MinimizeDatabaseWindow
  End If

End Sub

Private Sub cmdHideShowObject_Click()
  ' Example of hiding/showing a single object (HideAccessObject) and hiding/showing all Access objects (HideAccessObjects)

  Dim strTableName As String

  ' Default to first table in the database
  strTableName = CurrentDb.TableDefs(0).name

  strTableName = InputBox("First we'll hide/show a single table." & vbCrLf & "Enter the name of a table in the current database:", "HideAccessObject Example", strTableName)

  If strTableName <> "" Then
    HideAccessObject True, acTable, strTableName
    Application.RefreshDatabaseWindow

    MsgBox strTableName & " is hidden. It will now be un-hidden."

    HideAccessObject False, acTable, strTableName

    If MsgBox("Now we'll hide/show all tables. Continue? ", vbYesNo, "HideAccessObjectS Example") = vbYes Then
      HideAllAccessObjects True, False, acTable
      Application.RefreshDatabaseWindow
      MsgBox "All tables are hidden. They will now be un-hidden."
      HideAllAccessObjects False, False, acTable
    End If
  End If

End Sub

Private Sub cmdShowHideSearchBar_Click()
  ' Example of ShowSearchBar

  Static fShowSearch As Boolean
  fShowSearch = Not fShowSearch

  ShowSearchBar fShowSearch

End Sub

Private Sub Form_Load()
  ' Setup the controls

  Dim ctl As Control
  Dim lngTop As Integer

  Me.cmdTest.Caption = "Test Access application functions"
  Me.cmdCloseAccess.Caption = "Close Access"
  Me.cmdCloseDB.Caption = "Close DB"
  Me.cmdHideShowDB.Caption = "Hide/Show DB"
  Me.cmdDBWindow.Caption = "Min/Restore DB Window"
  Me.cmdShowHideSearchBar.Caption = "Show/Hide Search Bar (Access 2007+)"
  Me.cmdHideShowObject.Caption = "Hide/Show Objects"

  lngTop = 100
  For Each ctl In Me.Controls
    If ctl.ControlType = acCommandButton Then
      ctl.Top = lngTop
      ctl.Left = 100
      ctl.Width = 4000
      ctl.Height = 400
      lngTop = lngTop + 500
    End If
  Next ctl

End Sub

Private Sub cmdCloseAccess_Click()
  ' Example of CloseAccess
  If MsgBox("Are you sure you want to close Access?", vbYesNo) = vbYes Then
    CloseAccess
  End If
End Sub

Private Sub cmdCloseDB_Click()
  ' Example of CloseCurrentDatabase
  If MsgBox("Are you sure you want to this database?", vbYesNo) = vbYes Then
    CloseCurrentDatabase
  End If
End Sub

Private Sub cmdHideShowDB_Click()
  Static fShow As Boolean

  ' Example of HideDatabaseWindow
  fShow = Not fShow
  HideDatabaseWindow fShow

End Sub

Private Sub cmdTest_Click()

  ' Example of DebugCleanup

  DoCmd.Hourglass True
  DoCmd.Echo False

  If MsgBox("Turn off hourglass and restore the Echo state?", vbYesNo) = vbYes Then
    DebugCleanup
    Debug.Print "DebugCleanup turned the hourglass cursor off and restored the Echo state"
  Else
    'Wait 3 seconds, then restore echo state (otherwise the form appears locked)
    Sleep 3000
    DoCmd.Echo True
  End If

  ' Example of GetAccessProfile
  Debug.Print "Access profile: " & GetAccessProfile()

  ' Example of GetCurrentUserName
  Debug.Print "Current user: " & GetCurrentUserName()

  ' Example of GetWorkgroupFile
  Debug.Print "Workgroup: " & GetWorkgroupFile()

  MsgBox "Check debug (or Immediate) window for application information."

End Sub

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!

Additional Resources

• List of All Modules in Total Visual SourceBook
• List of All Code Categories in Total Visual SourceBook
• Sample Module Code from Total Visual SourceBook (Example of Date, Time and Age Calculations)