Capturar qual objeto no form foi clicado

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.

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.

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

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

Ok! Muito Obrigado!

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