MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 2284
    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: Qua 26 Jul 2017, 03:31