[Resolvido]Apresentar o nome do controle(Botão) com foco

Boa tarde!

Gostaria de saber como faço para apresentar em uma msgbox o nome do Botão de comando acionado!

Ex.: Tenho um formulário com vários botões de comando, e ao clicar em um dele, antes de executar o código me fosse apresentado algo do tipo:

Msgbox " Vc clicou no botão "Nome do botão", confirma sua sleção?


Se alguém puder me dar uma luz, desde já agradeço!!

Talvez isso te ajude:

Código:


Sub MostraNomeControleAtual()
    MsgBox Screen.ActiveControl.Name
End Sub


Boa tarde Marco!

Me serviria se eu não tivesse que apagar o fomulário e recria-lo novamente depois!

Vou explicar:

A partir de um comando em um formulário, eu crio um novo formulário em tempo de execução; que irá conter diversos botões e um descrição do item a ser selecionado na frente.

A parte do código que adiciona os botões no formulario criado é o seguinte:

Código:

'Botão para seleção
        bt_Selec.Name = "bt_Selec" & "_" & Item
        'bt_Selec.Name = ID_Name
        bt_Selec.OnClick = "=SelecionaItem()"
        bt_Selec.Caption = "SELECIONAR"

Ali no evento Onclick, eu estou adicionando um função que vai salvar o item selecionado em uma tabela!

Então a questão é: Como pegar o nome do botão clicado e apresentar em uma Msgbox?

Penso que terei que criar uma função que pegue o nome do botão e salve em uma variável puplica, sendo que essa função tem que ser chamada de dentro da  função SelecionarItem().

Só que não me caiu a ficha ainda de como fazer!

Se você colocar o código MsgBox Screen.ActiveControl.Name dentro da função SelecionaItem já não ajuda?

Ou então, porque não criar um parâmetro String na função SelecionaItem passando o valor de bt_Selec.Name?

Assim:

Código:


'Botão para seleção
bt_Selec.Name = "bt_Selec" & "_" & Item
bt_Selec.OnClick = "=SelecionaItem(" & bt_Selec.Name & ")"
bt_Selec.Caption = "SELECIONAR"


Colocando o MsgBox Screen.ActiveControl.Name dentro da Função SelecionaItem(), funcionou perfeito!!


Em relação a sua outra dica não funcionaria, porque  é um formulário simples, e cada botão tem um nome diferente!

Ex.:  

bt_Selec_01
bt_Selec_02
bt_Selec_03
etc...

Mas valeu mesmo! já ajudou d+++++++++++++++

Ah sim, porque você muda o nome dele em tempo de execução, então seria assim:

[code]
bt_Selec.Name =
bt_Selec.OnClick = "=SelecionaItem("""bt_Selec_" & Item & """)"