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

    [Resolvido]Atribuir uma função a botão em tempo de execução

    Compartilhe

    mediros2001
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/04/2016

    [Resolvido]Atribuir uma função a botão em tempo de execução

    Mensagem  mediros2001 em Seg 18 Abr 2016, 14:40

    Bom dia!!!

    Pessoal, estou com o seguinte problema:

    Estou criando um formulário com um organograma utilizando botões de comando, até ai tudo bem consigo fazer sem problemas, porém não estou conseguindo atribuir função para esses botões, que deverão abrir outro formulário filtrando os registros conforme o nome do botão clicado.

    Private Sub Comando0_Click()
       Set tabOrganograma = CurrentDb.OpenRecordset("Organograma")
       tabOrganograma.MoveFirst
       DoCmd.OpenForm "Organograma", acDesign, , , , acHidden
       Do While tabOrganograma.EOF = False
           vName = tabOrganograma!nomeuor
           vLeft = tabOrganograma!vLeft
           vTop = tabOrganograma!vTop
           CriaBotão
           tabOrganograma.MoveNext
       Loop
               
                           
       DoCmd.OpenForm "Organograma"
    End Sub
    Public Function CriaBotão()
       With CreateControl( _
           FormName:="Organograma", _
           ControlType:=acCommandButton, _
           Section:=acDetail, _
           Left:=vLeft, _
           Top:=vTop, _
           Width:=1500, _
           Height:=750)
           
           .Name = vName
           .Caption = vName
           .OnClick = "AbreForm" 'o AbreForm é uma macro, que estou usando para abrir outro form, porém preciso que quando o form abrir ele filtre os registro da consulta conforme o nome do botão'
       End With

    End Function

    Alguém consegue me ajudar? desde já agradeço a todos.

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 554
    Registrado : 02/10/2011

    Re: [Resolvido]Atribuir uma função a botão em tempo de execução

    Mensagem  rubenscouto em Qua 20 Abr 2016, 03:15

    voce consegue postar o bd para melhor entendimento?

    mediros2001
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/04/2016

    Re: [Resolvido]Atribuir uma função a botão em tempo de execução

    Mensagem  mediros2001 em Qua 20 Abr 2016, 13:36

    Rubens,

    Obrigado pela presteza!

    Hoje pela manhã consegui implementar o que eu precisava.

    Mais uma vez obrigado pela disponibilidade em ajudar.

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 554
    Registrado : 02/10/2011

    Re: [Resolvido]Atribuir uma função a botão em tempo de execução

    Mensagem  rubenscouto em Qui 21 Abr 2016, 05:12

    envia parte do modelo pra que os outros colaboradores do forum possam usufruir também do que você conseguiu.

    mediros2001
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/04/2016

    Re: [Resolvido]Atribuir uma função a botão em tempo de execução

    Mensagem  mediros2001 em Seg 25 Abr 2016, 13:43

    Bom dia!

    Estava um pouco tumultuado aqui, por isso não postei antes.

    Mas segue o arquivo em anexo.
    Anexos
    Organograma.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (70 Kb) Baixado 5 vez(es)

      Data/hora atual: Sex 09 Dez 2016, 07:43