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

    Werlesson
    Werlesson
    Novato
    Novato

    Respeito às Regras 100%

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

    Ocultar janela do Access Empty Ocultar janela do Access

    Mensagem  Werlesson em 25/1/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
    clalves
    clalves
    Novato
    Novato

    Respeito às Regras 100%

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

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  clalves em 21/11/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.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  Kaynan em 21/11/2013, 22:59

    Muito bom pessoal gostei.
    7byron
    7byron
    Novato
    Novato

    Respeito às Regras 100%

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

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  7byron em 2/1/2014, 00:34

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

    Respeito às Regras 100%

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

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  VBradescu em 10/1/2017, 19:59

    Realmente simples, obrigado!
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 11/01/2018

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  Anslu em 12/9/2018, 03:32

    Obrigado! Muito útil

    Conteúdo patrocinado

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/11/2019, 02:13