MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Capturar qual objeto no form foi clicado

    Compartilhe

    mbflpa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 25/01/2011

    Capturar qual objeto no form foi clicado

    Mensagem  mbflpa em Sex 03 Out 2014, 14:37

    Olá!

    Sou novo no fórum. Gostaria de saber como capturar o nome de um objeto clicado em um formulário. Exemplo: Tenho um form com 42 botões e gostaria que o nome do botão clicado ficasse armazenado em uma variável pública (de preferência) sem eu ter que inserir no evento "ao clicar" de cada botão um código para isso.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: Capturar qual objeto no form foi clicado

    Mensagem  Cláudio Machado em Seg 06 Out 2014, 21:49

    Olá seja bem vindo ao fórum.

    Bem, você pode criar um módulo com as funções que deseja tipo:


    Public Function FechaForm()
       DoCmd.Close
    End Function


    E na ação de cada botão informar o comando com o nome da função:

    =FechaForm()

    Espero que ajude.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    mbflpa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 25/01/2011

    Capturar qual objeto no form foi clicado

    Mensagem  mbflpa em Qua 08 Out 2014, 11:10

    Cláudio,

    Agradeço pela resposta porém, o que eu gostaria de fazer é capturar o nome do controle que foi clicado, exemplo: em um form foi clicado o botão BT01. Eu gostaria que, ao clicar neste botão, o nome dele fosse incluído em uma variável indicando o evento realizado (um clique ou dois cliques) sem que eu tenha que incluir uma linha de código para cada controle (o meu forme é um calendário com 42 botões, 42 caixas de texto e 42 labels).

    MGASSIS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/05/2010

    Re: Capturar qual objeto no form foi clicado

    Mensagem  MGASSIS em Ter 12 Maio 2015, 16:28

    Creio que a rotina abaixo possa lhe ajudar:

    Sub Mensagem()
    Dim frm As Form
    Dim ctl As Control
    Set frm = Me.Form
               
               MsgBox frm.ActiveControl.Name 'Este comando lhe mostrará o nome do controle.

    Set frm = Nothing

    End Sub

    mbflpa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 25/01/2011

    Ok! Muito Obrigado!

    Mensagem  mbflpa em Ter 12 Maio 2015, 19:54

    Ok! Muito Obrigado!

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: Capturar qual objeto no form foi clicado

    Mensagem  Cláudio Machado em Sex 11 Set 2015, 14:00

    Bom dia.
    Se o problema foi resolvido, por favor fechem o tópico.
    Obrigado


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: Dom 04 Dez 2016, 12:11