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, deixar transparente a janela do access

    Compartilhe

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.

    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 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".

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Ocultar, deixar transparente a janela do access

    Mensagem  Tony Arruda em 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, [Você precisa estar registrado e conectado para ver este link.]
    '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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 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

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 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

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

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

    Obrigado mais uma vez.

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Bom dia Dilson, ainda aguardo sua resposta.

    Obrigado
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  vieirasoft em 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.

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 12/9/2011, 19:41

    Fala Tony,

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

    Aguarde.

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 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.



    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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?
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 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.


    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Tony Arruda em 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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 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

    Tony Arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 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
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  vieirasoft em 22/11/2018, 19:17

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 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.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  vieirasoft em 22/11/2018, 20:44

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 22/11/2018, 20:59

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 22/11/2018, 21:02

    Qual é o modulo?
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  vieirasoft em 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
    avatar
    flashphone
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 22/11/2018, 21:13

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 22/11/2018, 21:21

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 22/11/2018, 21:24

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

    Respeito às Regras 100%

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

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

    Mensagem  flashphone em 22/11/2018, 21:33

    Obrigado mas já esta resolvido


    Abraço
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  vieirasoft em 22/11/2018, 22:36

    Obrigado pelo retorno.

      Data/hora atual: 16/12/2018, 11:22