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


    [Resolvido]Como esconder a Janela do Access ao executar um sistema?

    zacariassantos
    zacariassantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 16/01/2011

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty [Resolvido]Como esconder a Janela do Access ao executar um sistema?

    Mensagem  zacariassantos em 21/10/2018, 12:17

    Olá bom dia a todos

    estou aqui para pedir mais uma ajuda.

    tenho um programa em access e quando executo ele abre sempre no access a janela e eu queria q abrisse apenas a tela
    login na area de Trabalho, tem como fazer fico no aguardo

    tenha um bom dia
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2043
    Registrado : 13/04/2012

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty Re: [Resolvido]Como esconder a Janela do Access ao executar um sistema?

    Mensagem  Fernando Bueno em 22/10/2018, 02:55

    Boa noite;
    Em um módulo cole a função abaixo e salve-a:

    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

    Para chamar a função, no evento ao abrir do form Login:

    Código:
    Call AccessTransparente(0)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Como esconder a Janela do Access ao executar um sistema? 16rzeq
    zacariassantos
    zacariassantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 16/01/2011

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty Como esconder a Janela do Access ao executar um sistema?

    Mensagem  zacariassantos em 22/10/2018, 10:58

    Olá Fernado bom dia

    estou feliz por vc tar me ajudando, fiz os procedimento como vc falou, funcionou legal só que ao abrir o sistema fica minimizado
    e nao restaura como deve ser para ao abri nao ficar minimizado?

    fico no aguardo
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2043
    Registrado : 13/04/2012

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty Re: [Resolvido]Como esconder a Janela do Access ao executar um sistema?

    Mensagem  Fernando Bueno em 23/10/2018, 03:56

    Boa noite Zacarias;
    Me perdoe entendi outra coisa em sua mensagem, segue abaixo o código que necessita:

    Em um módulo coloque:
    Código:
    Option Compare Database

    Private Declare PtrSafe 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 PtrSafe 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


    No evento ao abrir do formulário:

    Código:
    Call fAccessWindow("minimize", False, False)
    Anexos
    [Resolvido]Como esconder a Janela do Access ao executar um sistema? AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 23 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Como esconder a Janela do Access ao executar um sistema? 16rzeq
    zacariassantos
    zacariassantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 16/01/2011

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty Como esconder a Janela do Access ao executar um sistema?

    Mensagem  zacariassantos em 23/10/2018, 11:57

    Olá bom dia a todos

    venho agradecer o Fernando Bueno, por ter me ajudado fico feliz foi resolvido beleza
    abraço a todos
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2043
    Registrado : 13/04/2012

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty Re: [Resolvido]Como esconder a Janela do Access ao executar um sistema?

    Mensagem  Fernando Bueno em 23/10/2018, 18:29

    Boa tarde Zacarias;

    Que bom que resolveu sua duvida, precisando estamos por aqui.

    O fórum agradece o retorno!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Como esconder a Janela do Access ao executar um sistema? 16rzeq

    Conteúdo patrocinado

    [Resolvido]Como esconder a Janela do Access ao executar um sistema? Empty Re: [Resolvido]Como esconder a Janela do Access ao executar um sistema?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 10:29