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 Const SW_MINIMIZE As Long = 6
Private Const SW_MAXIMIZE As Long = 3
Private Const SW_RESTORE  As Long = 9
 
 
#If VBA7 Then
 
Private Declare PtrSafe Function ShowWindow Lib "user32" ( _
   ByVal hwnd As LongPtr, _
   ByVal nCmdShow As Long) As Long
 
#Else
 
Private Declare Function ShowWindow Lib "user32" ( _
   ByVal hWnd As Long, _
   ByVal nCmdShow As Long) As Long
 
#End If
 
Public Function MinimizeAccess()
   ShowWindow hWndAccessApp, SW_MINIMIZE
End Function
 
Public Function MaximizeAccess()
   ShowWindow hWndAccessApp, SW_MAXIMIZE
End Function
 
Public Function RestoreAccess()
   ShowWindow hWndAccessApp, SW_RESTORE
End Function

Aufruf

BeimLaden-Ereignis des Startformulars:

Private Sub Form_Load()
   MaximizeAccess
End Function