[Resolvido]Esconder Access

Ola feras
estou usando os comando abaixo para esconder as janelas do access
o problema e que abre o form principal mas os outros form que sao chamados do form principal nao aparecem.
Private Sub Form_Open(Cancel As Integer)


fAccessWindow acHide, False, False
DoCmd.Echo False
DoCmd.Restore
Application.Echo True

Esse código chama a função fAccessWindow que deve estar em uma função no formulário ou em um módulo. Como está o código dessa função?

Eu uso o código abaixo em um módulo para colocar a janela do Access transparente.

Para chamá-lo no seu form de entrada, coloque Call AccessTransparente(0). Aumentando o vaor de 0, diminui o grau de transparência. Dá para se obter ótimos efeitos assim.

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
'
'Ejemplo de uso:
'Private Sub Form_Load()
'Call AccessTransparente(175)
'End Sub

Neste comando que vc esta utilizando deve definir os formularios como popoup = sim e deve pedir pro formulario restaurar ou maximizar no momento da abertura

Abraços

Boa tarde amigos!

Em um projeto que estou criando em meu trabalho, consegui esconder a janela do Access corretamente com a opção indicada pelo colega Criquio, chamando a função no evento "Ao carregar" do formulário de login:

Call AccessTransparente(0)

O problema é que, após o login, quero que a função seja interrompida e o fundo do Access apareça normalmente. Até chamei a função novamente após a validação de usuário e senha de login, alterando o valor para 250, mas o fundo do Access apareceu semitransparente e eu gostaria que a função de transparência fosse interrompida para mostrar a janela como se não houvesse nenhum código mudando a aparência.

Algum de vocês sabe de algum comando para chamar a função "AccessTransparente" para interromper sua execução?

Abraços amigos, e desde já meu muito obrigado!


Claudio

Amigos, ao usar essa função AccessTransparent abre legal o form de login (sem nenhuma tela do Access por tras), porem ao efetuar o login o BD só fica minimizado e não restaura mais....

Alguem teve esse mesmo problema ?

Vê este exemplo meu:

https://www.maximoaccess.com/t9333-botoes-minimizar-restaurar?highlight=minimizar+maximizar

Olá toyebom...funciona no Access 2016 ?

Ao abri-lo já ai em modo design e o contador não está a funcionar...

Abs

Abre no 2016 ainda ontem abri.
Aqui funciona tudo.
Vê a segurança das tuas macros.

Olá toyebom...funcionou...

Vou estudar seu exemplo para aplicar...interessante essa do contador.

Abs!

Aqui funciona perfeito no Access 2010.
Porém nas máquinas dos usuários (que só tem o Runtime) da erro de execução e fecha o programa, sem mostrar maiores detalhes do erro de execução.
Pra resolver o problema, tive que remover o módulo que contém o código pra deixar transparente o access.

Alguém já conseguiu implementar isso com o Runtime 2010?

Estou usando o

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