MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

+2
Dilson
Tony Arruda
6 participantes

    [Resolvido]Ocultar, deixar transparente a janela do access

    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 8/9/2011, 13:25

    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.

    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 8/9/2011, 18:59

    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".
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 8/9/2011, 21:34

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 8/9/2011, 23:27

    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
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 9/9/2011, 01:08

    Dilson, algumas dúvidas: eu tenho que colocá-lo em todos os meus forms um a um? tem alguma maneira de ser colocado em alguma parte uma só vez e afetar todos os forms, tabelas ou seja todo o bd? Em um bd com login posso criar uma rotina como por exemplo: "If login=admin then..." para reaparecer o bd quando o admin logar, se possível como farei e onde colocar?

    espero não ter feito perguntas demais, mas é por que aqui eu me sinto seguro por ter pessoas altamente profissionais, responsáveis , capazes , atenciosas e sempre dispostas a nos atender.

    Não tenho tanta conhecimento em fóruns mas, eu espero de coração que exista outros tão bons quanto esse,e se ainda não existir que o exemplo de vcs seja capaz de levar a outros seguirem o mesmo caminho. Vcs estão me fazendo sentir a cada dia parte desta grande família.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 9/9/2011, 20:00

    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
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 10/9/2011, 14:38

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

    Obrigado mais uma vez.
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 10/9/2011, 15:41

    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.
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 11/9/2011, 14:32

    Bom dia Dilson, ainda aguardo sua resposta.

    Obrigado
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  vieirasoft 11/9/2011, 14:37

    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.
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 11/9/2011, 14:41

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 12/9/2011, 19:41

    Fala Tony,

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

    Aguarde.
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 13/9/2011, 03:53

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 14/9/2011, 08:23

    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.


    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 14/9/2011, 18:56

    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.
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 15/9/2011, 04:31

    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?
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 17/9/2011, 08:34

    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.

    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 17/9/2011, 19:23

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Dilson 20/9/2011, 11:26

    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. bom
    avatar
    Tony Arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 20/08/2011

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda 20/9/2011, 12:46

    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.
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 18:58

    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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  vieirasoft 22/11/2018, 19:17

    Copiou o módulo para a secção módulos?
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 20:20

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  vieirasoft 22/11/2018, 20:44

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 20:59

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 21:02

    Qual é o modulo?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  vieirasoft 22/11/2018, 21:04

    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
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 21:13

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 21:21

    Aqui fica exemplo:
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 21:24

    Esta base esta igual e da me o erro
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  flashphone 22/11/2018, 21:33

    Obrigado mas já esta resolvido


    Abraço
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  vieirasoft 22/11/2018, 22:36

    Obrigado pelo retorno.
    4nderson
    4nderson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 62
    Registrado : 25/03/2022

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Erro ao executar com o RunTime

    Mensagem  4nderson 1/4/2022, 20:05

    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í?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  DamascenoJr. 2/4/2022, 01:40

    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)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    4nderson gosta desta mensagem

    4nderson
    4nderson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 62
    Registrado : 25/03/2022

    [Resolvido]Ocultar, deixar transparente a janela do access Empty Re: [Resolvido]Ocultar, deixar transparente a janela do access

    Mensagem  4nderson 22/4/2022, 21:20

    DamascenoJr,

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

    Funcionou perfeitamente! Valeu!

      Data/hora atual: 24/9/2022, 21:44