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

2 participantes

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

    EvandoNunes
    EvandoNunes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/01/2012

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

    Mensagem  EvandoNunes 18/12/2013, 15:38

    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!!
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

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

    Mensagem  Marco Messa 18/12/2013, 16:03

    Talvez isso te ajude:

    Código:

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


    .................................................................................
    Tea with me that I book your face Cool
    EvandoNunes
    EvandoNunes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/01/2012

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

    Mensagem  EvandoNunes 18/12/2013, 16:58

    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!
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

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

    Mensagem  Marco Messa 18/12/2013, 17:18

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


    .................................................................................
    Tea with me that I book your face Cool
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

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

    Mensagem  Marco Messa 18/12/2013, 17:21

    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"


    .................................................................................
    Tea with me that I book your face Cool
    EvandoNunes
    EvandoNunes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/01/2012

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

    Mensagem  EvandoNunes 18/12/2013, 17:38

    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+++++++++++++++
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

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

    Mensagem  Marco Messa 18/12/2013, 17:53

    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 & """)"

      Data/hora atual: 5/12/2022, 17:04