[Resolvido]Ocultar, deixar transparente a janela do access

Bom dia Dilson, eu estou olhando agora. Por favor se possível agora podes me informar o que descrevi no final do e-mail? fico-lhe muito grato.

Sobre janela transparente que citou no email, Acompanhe os tópicos:

transparente - Formulários e janela do Access transparente

executavel - [Resolvido]Como tornar um formulário numa espécie de executavél?

executavel - [Resolvidos]Formulários do sistema se assemelhar-parecer um executável

Mais resultados, faça buscas aqui no fórum usando a palavra chave "transparente".

Dilson Boa tarde,

Um dos links está quebrado(acho que é o segundo), e onde eu coloco esse código que vc indicou a outro usuário para janela transparente?

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


aguardo sua resposta.

Esse código salve em um módulo e dê o nome que desejar.

Depois, chame a função no evento desejado assim:

Call AccessTransparente(0) 'Fica transparente, invisivel.

ou

Call AccessTransparente(250) 'Volta a visibilidade


Coloque no evento ao carregar do formulário.


Observe o exemplo disponibilizado, veja como funciona na prática: transparente - Formulários e janela do Access transparente

Disponha sempre.

Para utilizar em todos os forms, basta colocar no evento ao carregar de todos:

Call AccessTransparente(0)

e a propriedade popUp = Sim

Para aparecer apenas ao Admin, sendo apenas uma opinião minha, acho desnecessário. Mas, se sua análise justifica. Você terá que a cada login guardar em uma variável pública quem logou. Com esta variável basta no evento ao carregar:

If SuaVariável = Admin then
Call AccessTransparente(250)
else
Call AccessTransparente(0)
End if

Bom Dia Dilson, Vou testar depois depois dou um retorno.

Obrigado mais uma vez.

Dilson,
Não sei se entendi bem. Era para colocar no evento "ao carregar":Call AccessTransparente(250) ou Call AccessTransparente(0)? Quando coloco e abro o form aoprece a seguinte mensagem: Erro de compilação, era esperado variável ou procedimewnto, não modulo." Olhei o exemplo que vc disse e no evento "ao carregar" tinha isso: fInitFormShape Me, "LogoHera.bmp", RGB(255, 0, 255), CurrentProject.Path

O que será?
Aguardo sua resposta.

Bom dia Dilson, ainda aguardo sua resposta.

Obrigado

Amigo Tony, tenha paciência, pois o Dilson não estará on line. Assim que lhe for possível ele vai responder. Um bem haja.

Perdoe-me a minha ansiedade Vieira, ela vem de uma euforia de estar a cada dia aprendendo algo novo. Aguardarei com toda paciência a minha resposta.

Tenha um bom dia.

Fala Tony,

Farei um pequeno exemplo, combinado? Amanhã a noite terei o tempo necessário.

Aguarde.

Como vai Dilson?
aguardarei o exemplo; aquele que vc fez usando o RECORSET ficou excelente. A propósito, poderia botar neste exemplo ,ou se for melhor abre-se outro tópico, como armazenar o nome de um usuário numa tabela? encontrei bons exemplos aqui mas não entendi como se faz.

Obrigado pela atenção e boa noite.

Veja:
Download

Verá que apenas salvei o código que possibilita a transparência num modulo e em seguida no evento Ao Carregar dos formulários e relatório coloquei:

Call AccessTransparente(0)

Propriedade PopUp = Sim (Para todos os forms e report.)

Quanto armazenar o nome do usuário "numa tabela". Acredito que quis dizer "numa variável". Para isso, baixe o exemplo contido na mensagem nº 8 deste tópico:
base com tres tipos de acesso

Neste exemplo, você verá que o Autor criou um modulo chamado MDGeneral e lá escreveu as variáveis públicas. Observe lá que no form login, no momento que loga ou altera senha, por Dlookup ele alimenta as variáveis públicas, que apartir disso, poderão ser chamadas em qualquer instrução no banco.

Se ocorrer dúvidas sobre variáveis, depois de visto o exemplo, abra um novo tópico OK.

Bom estudo.

Olá Dilson, Estou sem internet em casa e o bd está no meu pc, logo que resolver esta situação lhe dou um retorno.

Obrigado mais uma vez pela sua atenção.

Olá Dilson, o problema é que o módulo que eu tinha usava o mesmo nome da função (call accessTransparente) e gerava o seguinte erro: "era esperado variável ou procedimento e não um módulo." troquei o nome do módulo pelo o que vc me cedeu e deu certo. Eu coloquei em um apenas um form e todos ficaram iguais, era pra ser assim?

Tem um detalhe, eu não uso forms em tela cheia e achei a estética esquisita (até porque o design dos meus forms não está bom), na sua visão como profissional é melhor assim (na trasnparência) ou como vc faz nos seus exemplos que ficam dentro da janela do access mais ninguém vê a base do BD, nem barra de ferramentas e etc?

Eu limito o uso deste efeito a pequenos bancos (que possuem poucas tabelas e poucos campos), que evidentemente terá poucas janelas, baixa complexidade.

Motivo: Exatamente a estética.

Poucos dados, poucos espaços nos formulários (e poucos formulários) para serem usados.

Se poucos espaços, então padroniza-se o tamanho.

Dilson,
o meu bd não é muito grande mas também não é tão pequeno assim, é um banco para gerenciar uma escola tanto na parte disciplinar como na financeira, sendo assim os forms variam de tamanho pela quantidade de campos não ficando( segundo minha visão)com uma estética muito agradável um form com três campos em tela cheia. Teria como vc me indicar um exemplo com uma estética profissional para eu ter uma base de e me amparar nele?

agredeço a atenção.

Neste caso podes usar essa função somente para o login e também no splash.

Utilize o menu de controle maximizado;
Se 2003, vá na barra de ferramenta, crie um menu sem controles e coloque no inicializar como padrão;
Utilize a função de retirar botões do JPaulo (tá no repositório);

E exercite um ponto importante. Pare para observar os sistemas de informação a sua volta e siga as tendências.

A frente, não agora logo, farei um exemplo. Tá agendado.

Obrigado pelas dicas amigo Dilson, aguardarei seu exemplo, nesses poucos dias de participação neste fórum o meu bd melhorou muito.

Que Deus o abençoe.

Boa tarde,

estou com o problema em colocar o código Call Accesstransparente(0) pois esta a dar me erro sub or function not defined.

este e código colocado:

Private Sub Form_Load()
Call Acesstransparente(0)
End Sub

Copiou o módulo para a secção módulos?

Eu fiz formulário para login e é nesse que queria colocar o código para quando iniciar o Access ela mostras o formulário do login.

Sim, mas a minha pergunta foi: E o módulo? Copiou o módulo para o seu projecto?

Não copiei apelas no formulário do login coloquei ao carregar esse código (Call AccessTransparente(0))

Qual é o modulo?

Abra um novo módulo e copie o código abaixo

Option Compare Database
Option Explicit

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

Feche o módulo e dê-lhe o nome
api Janela transparente

Agora já deve funcionar direitinho

Já fiz varias base de dados access e nao precisei disso verifique o estas base

Aqui fica exemplo:

Esta base esta igual e da me o erro

Obrigado mas já esta resolvido


Abraço

Obrigado pelo retorno.

Olá,

Os códigos que encontrei aqui no fórum para deixar a janela do Access transparente funcionam muito bem em máquinas que tem o Access instalado, mas ao rodar somente pelo RunTime, em máquinas sem Office, dá o seguinte erro: "O Aplicativo foi interrompido devido a um ERRO em tempo de execução".

Alguém tem um diagnóstico aí?

Tente com o seguinte procedimento em um módulo.

Código:

#If VBA7 Then
    Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As LongPtr,ByVal crKey As Long,ByVal bAlpha As Byte,ByVal dwFlags As Long) As Long
    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#Else
    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
#End If

Public Sub fncOcultaAccess(Optional ByVal booOculto As Boolean = True)
' ----------------------------------------------------------------
' Propósito : Ocultar e mostrar a janela do Access.
' ----------------------------------------------------------------

    Dim lngHwnd As Long
   
    lngHwnd = Application.hWndAccessApp
    Call SetWindowLong(lngHwnd, (-20), GetWindowLong(lngHwnd, (-20)) Or &H80000)
    Call SetLayeredWindowAttributes(lngHwnd, 0, IIf(booOculto, 0, 250), &H2)

End Sub

Pra ocultar, basta chamar

Código:

Call fncOcultaAccess

Pra mostrar, basta chamar

Código:

Call fncOcultaAccess(False)

DamascenoJr,

Apenas hoje eu pude testar sua dica da mensagem nº 34.

Funcionou perfeitamente! Valeu!