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 - Hide the Acces Window

    andre.lr
    andre.lr
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011

    Ocultar janela do Access - Hide the Acces Window Empty Ocultar janela do Access - Hide the Acces Window

    Mensagem  andre.lr em Qui 01 Dez 2011, 4:13 pm

    Como achei esse comando útil para todos os usuários vou deixar aqui no repositório para enrriquecer o fórum!

    Espero que gostem!

    Como ocultar janela do Access passo a passo!

    Créditos: http://www.tek-tips.com/
    ' Tópico: Access Enviroment
    ' Hide The Access Window
    ' faq705-2562
    ' Posted: 10 Oct 02 (Edited 27 Sep 06)


    Passo 1. Copie o código que está após o passo 5 em um módulo. Nomei-o como basAccessHider , os nomes são apenas exemplos para facilitar, use o que achar melhor.

    Passo 2. Crie uma macro e chame-a de mcrHide .Na linha de ação da macro "RunCode" ou "ExecutarCódigo" coloque o seguinte na caixa de função ou Function Box:

    fAccessWindow ("Minimize", False, False)

    Passo 3. Crie outra macro e chame-a de mcrRestore .Na linha de ação da macro coloque o seguinte na caixa de função:

    fAccessWindow ("Show", False, False)

    Passo 4. Coloque o seguinte código no evento Ao Abrir do seu formulário de inicialização que deverá ter sua propriedade PopUp como sim (se você não tiver um formulário de inicialização, basta usar o primeiro formulário que você abre quando executa o banco de dados, desde que tenha a propriedade PopUp como sim):

    DoCmd.RunMacro "mcrHide"

    Passo 5. No evento Ao Fechar do seu formulário de inicialização, coloque o seguinte código:

    DoCmd.RunMacro "mcrRestore"


    CÓDIGO DO PASSO 1

    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
    End Function


    Tenho certeza que quem implementar vai curtir.... Smile

    Sucesso a todos!!
    avatar
    fmdadamos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 17/09/2012

    Ocultar janela do Access - Hide the Acces Window Empty Meus Parabens!

    Mensagem  fmdadamos em Qui 18 Abr 2013, 3:34 pm

    Meu camarada,meus Parabens! Very Happy

    Eu estava me matando para fazer este codigo e vc disponibilizou um completo direitinho, funcionou perfeitamente.

    Não precisei mudar nada, apenas seguir o passo a passo fielmente.

    Virei seu fã!
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 23/02/2011

    Ocultar janela do Access - Hide the Acces Window Empty Re: Ocultar janela do Access - Hide the Acces Window

    Mensagem  JOSEMORAES em Sex 26 Abr 2013, 7:18 pm

    Eu utilizo um outro método,

    Em um módulo existe esse código:

    Option Compare Database
    Option Explicit
    'Autor de la función base: Indeterminado
    'Declaraciones
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long

    Private Declare Function SetLayeredWindowAttributes Lib "user32" _
    (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

    'Constantes
    Private Const GWL_EXSTYLE = (-20)
    Private Const WS_EX_LAYERED = &H80000
    Private Const LWA_ALPHA = &H2

    Function AccessTransparente(Nivel As Integer)
    'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
    'Objetivo: Ajustar el nivel de transparencia de la ventana principal
    ' de access. El nivel de transparencia debe estar entre 0 a 250
    '.............................................................................
    Dim lngHwnd As Long
    If Nivel < 0 Or Nivel > 250 Then Exit Function
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
    End Function



    Depois no seu form inicial chame a função da seguinte maneira

    Call AccessTransparente(0)


    seu form deve estar como pop-up como sim


    At+


    .................................................................................
    Ocultar janela do Access - Hide the Acces Window 10715412

      Data/hora atual: Ter 01 Dez 2020, 6:10 pm