Ocultar janela do Access

Olá pessoal,

Sou novo por aqui e gostaria, desde já, de retribuir o auxílio que já encontrei neste fórum.
Trata-se de um módulo que ao ser chamado na abertura dos formulários, mantém a janela do ambiente do Access oculto (não encontrei referência sobre o autor, mas fica evidente que não é da minha autoria).

Faça esta chamada ao abrir seu formulário para ocultar a janela do Access:
 faccesswindow ("minimize", false, false)
Faça esta chamada ao fechar seu formulário para mostrar a janela do Access:
 faccesswindow ("show", false, false)


O código do módulo segue abaixo:
================================

Código:

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

Outra maneira simples e rápida, vale principalmente para quem está iniciando em access, é colocar seu BD em uma pasta em Meus Documentos (ou em outra parte qualquer), criar um atalho na área de Trabalho e em Propriedades deste atalho na função "Executar", colocar a janela para abrir "Minimizado". Pronto o fundo cinza não aparecerá na abertura do banco de dados.

Muito bom pessoal gostei.

Dessa ainda não me tinha lembrado... Muito útil, vou usar. Vale sempre a pena dar uma espreitadela nos pots! Cumprimentos

Realmente simples, obrigado!

Obrigado! Muito útil

Simples e direta, o Minimizado!!! )



Obrigado a ambos!!! ;-))

sempre bom rever posts antigos


valeu