Beim starten Access verkleinert zeigen und Formular in den Vordergrund VBA

Hallo,
ich lasse über ein Startformular Access minimiert starten, so dass nur das Formulari m Vordergrund steht.

Option Compare Database

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 beim starten des Formular

Private Sub Form_Load()
minimizeaccess
end fuction

Problem hierbei, dass das Formular nicht vorne bleibt, sondern Access wie angegeben minimiert gestartet wird,
wie bekomem ich es hin, das dann doch das Startfomular im Vordergrund bleibt, Access aber minimiert startet ( oder verkleinert startet)

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 222972

Url: https://administrator.de/forum/beim-starten-access-verkleinert-zeigen-und-formular-in-den-vordergrund-vba-222972.html

Ausgedruckt am: 06.04.2025 um 18:04 Uhr

4 Kommentare

Neuester Kommentar

Moin,

versuch mal die Formulare vor dem Minimieren auf Modal=true und Popup=true zu setzen.

lg,
Slainte

Ich habe foglenden Code eingefügt,
danach bleibt Access hängen

Private Sub Form_Load()
    Set objFrmlogin = New Form_Login
    With objFrmlogin
    .Modal = True
    .Visible = True
    End With

MinimizeAccess

If IsEXERunning("cmd.exe") Then  
   Shell "taskkill /f /im cmd.exe"  
End If

rpasswort = ""  
varuser = ""  
varemail = ""  

End Sub

das formular heisst login

Dein Code macht auch nur bedingt Sinn..
Du erstellst beim Laden des Formulars eine neue Instanz... das kann nicht funktionieren.

Ersetze mal die Zeilen 2-6 durch