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


3 participantes

    [Resolvido]Envento disparado quando mudamos o foco de um formulário

    avatar
    Marcos Pinheiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/02/2013

    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Marcos Pinheiro 7/2/2014, 22:54

    Bem amigos, é o seguente:
    Tenho o formulário 1 que abre junto com o formulário 2.

    Assim os dois formulários ficam abertos ao mesmo tempo.

    Sei que que existe o evento "Ao perder o foco" dos formulários. Mas curiosamente
    esse evento não funciona. Explicando:

    Pus no evento "Ao perder o foco" do formulário 1 o código: Msgbox "Executou código"
    Clico no formulário 1 para por o foco nele.

    Quando clico no formulário 2, o código do formulário 1 não é executado. Pois deveria executar,
    uma vez que com o clique no formulário 2, o formulário 1 não tem mais o foco, ou seja: o evento
    "Ao perder o foco" do formulário 1 deveria ter ocorrido. Mas não ocorreu!

    Poderiam me dar uma ajuda nessa questão?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty Re: [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Avelino Sampaio 8/2/2014, 07:30

    Olá!

    Do Help Do VBA:

    Quando você alterna entre dois formulários abertos, o evento Deactivate ocorre para o primeiro formulário e o evento Activate para o segundo formulário. Se os formulários contiverem controles ativados não visíveis, o evento LostFocus ocorrerá para o primeiro formulário antes do evento Deactivate, e o evento GotFocus ocorrerá para o segundo formulário depois do evento Activate.

    Conclusão: Os eventos "ao perder foco" e "ao receber foco" dos formulários só ocorrem se não tiverem controles visíveis. Devendo então utilizar os eventos "ao desativar" e " ao ativar"

    Assista este meu vídeo para aprender a explorar ao máximo o help do VBA

    http://www.usandoaccess.com.br/tutoriais/tuto2.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Marcos Pinheiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/02/2013

    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty Re: [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Marcos Pinheiro 8/2/2014, 19:18

    Grato pela resposta metre Avelino, mas já li várias vezes
    os artigos dos eventos dos formulários e mesmo assim não
    consegui o resultado que preciso.

    Abaixo, pus um exemplo do que eu já fiz (baseado inclusive no que me indicou)
    para chegar ao resultado esperado. Mas sem sucesso...

    Por gentileza, se puder me dar uma força, ficarei muito grato.

    O exemplo tem as informação adicionais do que pretendo.

    Desde já grato!

    Exemplo: https://dl.dropboxusercontent.com/u/31669146/Teste.zip


    Última edição por Marcos Pinheiro em 9/2/2014, 05:00, editado 1 vez(es) (Motivo da edição : Por link do anexo)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011

    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty Re: [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Marcelo David 9/2/2014, 19:17

    Olá, com licença do amigo Avelino.
    Fiz alguns testes nesses eventos e não consegui o resultado que o autor do tópico quer.

    Para o caso desse tópico, eu costumo usar Screen.ActiveForm.Name.
    Daí é possível obter o nome do formulário que está ativo!

    Por exemplo, determinar se o formulário frm2 tem o foco:

    Intervalo do cronômetro do frm2 = 1

    No evento Timer:

    If Screen.ActiveForm.Name <> "frm2" Then
          MsgBox "Perdeu o foco"
    End If


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Envento disparado quando mudamos o foco de um formulário Marcel11
    avatar
    Marcos Pinheiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/02/2013

    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty Re: [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Marcos Pinheiro 10/2/2014, 12:51

    Deu certo Marcelo, muito obrigado!!
    avatar
    Marcos Pinheiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/02/2013

    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty Re: [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Marcos Pinheiro 10/2/2014, 12:51

    Esqueci do resolvido. Very Happy 

    Conteúdo patrocinado


    [Resolvido]Envento disparado quando mudamos o foco de um formulário Empty Re: [Resolvido]Envento disparado quando mudamos o foco de um formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 08:39