MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    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
    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.

    Heliconrec gosta desta mensagem

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2476
    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 : 82
    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
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    Ocultar janela do Access Empty Re: Ocultar janela do Access

    Mensagem  grbpereira em 27/11/2019, 15:45

    Simples e direta, o Minimizado!!! Smile)



    Obrigado a ambos!!! ;-))
    avatar
    srantonio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 30/08/2010

    Ocultar janela do Access Empty nem lembrava mais do minimizado.rsss

    Mensagem  srantonio em 5/3/2020, 17:41

    sempre bom rever posts antigos


    valeu

      Data/hora atual: 19/9/2020, 09:52