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]Ocultar janela access 2013

    Compartilhe
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    [Resolvido]Ocultar janela access 2013

    Mensagem  cafpr em 4/8/2018, 04:37

    Boa noite colegas.

    Utilizo Win 7 Professional, Service Pack 1, Office 2013 sistema operacional 64Bits.

    Para esconder pode-se no atalho do aplicativo, executar, minimizado.
    l
    Mas o que procuro é por vba.

    Esse abaixo não da resultado esperado.

    [Você precisa estar registrado e conectado para ver este link.]


    Obr
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5550
    Registrado : 15/03/2013

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  ahteixeira em 7/8/2018, 07:57

    Olá Clóvis Fedrigo,

    Mas pretende esconder a janela do Access ou abrir base de dados minimizada?

    Abraço
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  cafpr em 7/8/2018, 18:27

    Boa tarde Alvaro.

    Seria a mesma função de minimizar onde ao clicar no atalho na área de trabalho ira carregar o form de login.
    Não aparece a janela do acccess e nenhuma barra de menu;


    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1035
    Registrado : 07/12/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  tauron em 7/8/2018, 23:38

    Eu utilizo este código em módulo

    Option Compare Database
    Option Explicit
    #If VBA7 Then

    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 LongPtr, _
    ByVal nCmdShow As Long) As Boolean

    #Else

    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

    #End If

    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 = "Maximize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If

    If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWNORMAL)
    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
    ElseIf IsWindowVisible(hWndAccessApp) = 1 Then
    fAccessWindow = True
    End If
    End If

    End Function

    e no evento "ao carregar" do formulario login(popup=sim e restrito=sim):

    Call fAccessWindow("hide", False, False)
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  cafpr em 8/8/2018, 02:54

    Boa noite tauron

    Obrigado em me ajudar.

    Testei seu código e não deu resultado esperado.liz

    Esta em anexo aparte envolvida, por gentileza onde deve estar o erro

    Obs: Utilizo Win 7 Professional, Service Pack 1, Office 2013 sistema operacional 64Bits.

    Usuario: Administrador
    Senha: apdf125
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 8 vez(es)
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1035
    Registrado : 07/12/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  tauron em 8/8/2018, 03:39

    Então, como meu computador não possui licenca para rodar o programa, Very Happy Very Happy , proceda estas correcoes e veja se funfa:

    no formulario frmLogin no evento ao carregar quando digitou, colocou um "C" a mais;

    nos modulos "serialHD" e "mudamouse": as funcoes estao para 32 bits.

    proceda a correcoes, compile e tente rodar.
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  cafpr em 8/8/2018, 05:39

    Boa noite

    Fiz as alterações que solicitou e não deu o resultado esperado.

    O que mais poderia ser.

    Ou terei que reinstalar o 32 bits...
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5550
    Registrado : 15/03/2013

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  ahteixeira em 8/8/2018, 09:55

    Olá a todos,

    Clóvis Fedrigo, teste exemplo abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1035
    Registrado : 07/12/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  tauron em 8/8/2018, 11:09

    Veja bem, eu utilizo o Office 2013 Professional Plus juntamente com Win10, ambos 64 Bits e, quando clico no app me surge a mensagem sobre a autorizacao.

    Declare as funcoes para 64 Bits no modulos que informei

    Declare PtrSafe Function
    Anexos
    teste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 11 vez(es)
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  cafpr em 9/8/2018, 01:20

    Boa noite.

    Fiz as alterações e também testei o exemplo com Splash Screen, ambos derão o resultado esperado.

    Não iria consegui sem ajuda dos colegas.

    Agora vou implementar aos futuros Bds a serem entregues.

    Obrigado a vocês, Tauron e Alvaro.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5550
    Registrado : 15/03/2013

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  ahteixeira em 9/8/2018, 08:05

    Olá, que bom que resolveu.

    Obrigado pelo retorno, o fórum agradece.

    Abraço a todos
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1035
    Registrado : 07/12/2011

    Re: [Resolvido]Ocultar janela access 2013

    Mensagem  tauron em 9/8/2018, 10:58

    Laughing

      Data/hora atual: 21/10/2018, 22:36