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

    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty [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.

    http://www.maximoaccess.com/t5410-ocultar-janela-do-access-hide-the-acces-window#44746


    Obr
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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;


    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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)
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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
    [Resolvido]Ocultar janela access 2013 Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 14 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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.
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty Re: [Resolvido]Ocultar janela access 2013

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

    Olá a todos,

    Clóvis Fedrigo, teste exemplo abaixo:
    http://www.maximoaccess.com/t5566-splash-screen-incrementada

    Abraço
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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
    [Resolvido]Ocultar janela access 2013 Attachmentteste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 14 vez(es)
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty 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
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Ocultar janela access 2013 Empty Re: [Resolvido]Ocultar janela access 2013

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

    Laughing

    Conteúdo patrocinado

    [Resolvido]Ocultar janela access 2013 Empty Re: [Resolvido]Ocultar janela access 2013

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/7/2019, 10:58