[Resolvido]Ocultar janela access 2013

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.

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


Obr

Olá Clóvis Fedrigo,

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

Abraço

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;

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)

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

Então, como meu computador não possui licenca para rodar o programa, , 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.

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

Olá a todos,

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

Abraço

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

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.

Olá, que bom que resolveu.

Obrigado pelo retorno, o fórum agradece.

Abraço a todos