VBA Tipp: Access Anwendungsfenster minimieren/maximieren

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung:

Ich möchte erzwingen, dass das gesamte Access-Anwendungsfenster maximiert (bzw.: minimiert / wiederhergestellt) wird.

Lösung

DoCmd.RunCommand acCmdAppMinimize
DoCmd.RunCommand acCmdAppMaximize
DoCmd.RunCommand acCmdAppRestore

API-Lösung

Private Declare Function ShowWindow Lib "user32" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const SW_MINIMIZE = 6
Private Const SW_MAXIMIZE = 3
Private Const SW_RESTORE = 9
 
Public Function MinimizeAccess()
  ShowWindow Application.hWndAccessApp, SW_MINIMIZE
End Function
 
Public Function MaximizeAccess()
  ShowWindow Application.hWndAccessApp, SW_MAXIMIZE
End Function
 
Public Function RestoreAccess()
  ShowWindow Application.hWndAccessApp, SW_RESTORE
End Function

Aufruf

BeimLaden-Ereignis des Startformulars:

Private Sub Form_Load()
  MaximizeAccess
End Function