MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Como pegar o nome do Botão clicado

    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 15/06/2013

    [Resolvido]Como pegar o nome do Botão clicado Empty [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  Eloirp em 26/5/2020, 02:33

    Olá Amigos,

    Preciso pegar o nome do botão clicado, existe alguma opção?
    No exemplo abaixo seria o "Comando13"


    Private Sub Comando13_Click()

    End Sub
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 662
    Registrado : 11/12/2017

    [Resolvido]Como pegar o nome do Botão clicado Empty Re: [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  Ismael Silva em 26/5/2020, 03:25

    Boa noite,

    Explique melhor, qual seria a finalidade de pegar o nome do botão?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Como pegar o nome do Botão clicado Empty Re: [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  DamascenoJr. em 26/5/2020, 03:34

    me.activecontrol.name


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 15/06/2013

    [Resolvido]Como pegar o nome do Botão clicado Empty Re: [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  Eloirp em 26/5/2020, 03:48

    Muitíssimo obrigado, ficou show!
    Eu tinha pesquisado no fórum e na net e nada de encontrar...

    vou utilizar no nível 1 de um controle de acesso de dois níveis via menu personalizado que estou montando, bem resumido fica assim:

    No Menu:
    Código:
    Private Sub btoRequisEstoque_Click()
       strFormName = "reg_Estoque_Requisicao"
       Call ControleAcessoMenu(strFormName, strUserAcess)
       If strAcessoMenu = "N" Then Me.ActiveControl.Enabled = False
       Call Invisivel
    End Sub

    No Módulo:
    Código:
    Public Function ControleAcessoMenu(strFormName, strUserAcess)
       
       Call Cnn_Open
       strRS = "SELECT Codigo FROM tbl_Usuario_CtrlAcesso WHERE Formulario='" & strFormName & "' AND Usuario='" & strUserAcess & "' AND Status='ATIVO'"
       Set rs = cnn.Execute(strRS)
       
       If Not rs.BOF Then
           Forms!Main_Menu!SubFormAplicacao.SourceObject = strFormName
       Else
           strAcessoMenu = "N"
           MsgBox "     Acesso negado!     ", vbOKOnly, "SieWeb"
       End If

       Set rs = Nothing: Close
       Set cnn = Nothing: Close

    End Function
    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 15/06/2013

    [Resolvido]Como pegar o nome do Botão clicado Empty Re: [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  Eloirp em 26/5/2020, 03:52

    Resolvido!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Como pegar o nome do Botão clicado Empty Re: [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  DamascenoJr. em 26/5/2020, 04:15

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 15/06/2013

    [Resolvido]Como pegar o nome do Botão clicado Empty Re: [Resolvido]Como pegar o nome do Botão clicado

    Mensagem  Eloirp em 26/5/2020, 05:21

    Anexei uma imagem para facilitar o entendimento do controle...

    Nível 1 - Se o formulário a ser aberto pelo menu não estiver cadastrado para o usuário nega o acesso e bloqueia o botão no menu
    Nível 2 - O usuário só poderia utilizar o formulário de acordo com o seu grid de acesso (Novo, Salvar, Alterar, Excluir e Consultar)

    O sistema é 100% em base MySQL on-line (uolhost), atualiza versão automaticamente via web (ao user acessar informa que tem que atualizar e ele aceitando faz tudo sozinho, bkp do arquivo atual, download e instalação da nova versão. Esconde totalmente o MS Access (exceto por alguns segundo ao clicar no ícone da tela), importa xml, controla estoque, ordens de produção, estrutura de produto, WMS (simples óbvio), catálogo on-line (www.elper.com.br), formação de preço de venda com DRE...  e só cheguei até aqui graças a grande ajuda que sempre tive no fórum, por isso sou muito grato!
    Anexos
    [Resolvido]Como pegar o nome do Botão clicado AttachmentSieWeb - Controle de Acesso.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (144 Kb) Baixado 6 vez(es)

      Data/hora atual: 2/12/2020, 15:35