MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Ocultar janela do Access

    Compartilhe
    avatar
    Werlesson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/01/2011

    Ocultar janela do Access

    Mensagem  Werlesson em Ter 25 Jan 2011, 00:16

    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:
    ================================

    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
    avatar
    clalves
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 30/06/2011

    Re: Ocultar janela do Access

    Mensagem  clalves em Qui 21 Nov 2013, 16:49

    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.

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2274
    Registrado : 09/04/2012

    Re: Ocultar janela do Access

    Mensagem  Kaynan em Qui 21 Nov 2013, 22:59

    Muito bom pessoal gostei.
    avatar
    7byron
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 11/12/2012

    Re: Ocultar janela do Access

    Mensagem  7byron em Qui 02 Jan 2014, 00:34

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

    VBradescu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 10/01/2017

    Re: Ocultar janela do Access

    Mensagem  VBradescu em Ter 10 Jan 2017, 19:59

    Realmente simples, obrigado!

      Data/hora atual: Ter 28 Mar 2017, 07:10