4
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.
Aufruf beim starten des Formular
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)
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 FunctionAufruf beim starten des Formular
Private Sub Form_Load()
minimizeaccess
end fuctionProblem 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)
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 222972
Url: https://administrator.de/contentid/222972
Printed on: April 20, 2024 at 02:04 o'clock
4 Comments
Latest comment
Moin,
versuch mal die Formulare vor dem Minimieren auf Modal=true und Popup=true zu setzen.
lg,
Slainte
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
das formular heisst login
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 Subdas 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
oder setze die Eigenschaften direkt in der Entwurfsansicht.
Du erstellst beim Laden des Formulars eine neue Instanz... das kann nicht funktionieren.
Ersetze mal die Zeilen 2-6 durch
me.modal=true
me.popup=true
Danke schön,
den wald vor lauter Baumen nicht gesehen.
den wald vor lauter Baumen nicht gesehen.
