Manter Janela MS Access Minimizada!

Boa tarde a todos,

Tenho um Form que carrego ao abrir o BD minimiza a janela do MSACCESS, estou utilizando o seguinte comando:

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMinimize

Até ai tudo bem está perfeito! Porem quando eu navego para uma outra janela (Ex.: Excel) e retorno ao MSACCESS a janela minimizada acaba maximizando.

Gostaria de mante-la minimizada. Como posso fazer isso?

Desde já agradeço a ajuda de todos!

Boa Tarde !


Crie um modulo e cole...
Option Compare Database

Private Declare Function IsWindowVisible Lib "User32" (ByVal Hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "User32" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

Depois chame a funcao fAccessWindow no load do form.

Saudacoes !

E iae Amigão conseguiu Resolver ?

Aguardo o Retorno !

Saudacoes !