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]Executar rotina com todos os dados de uma listbox

    avatar
    luigustavo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/07/2010

    [Resolvido]Executar rotina com todos os dados de uma listbox Empty [Resolvido]Executar rotina com todos os dados de uma listbox

    Mensagem  luigustavo em 8/11/2020, 02:10

    Boa noite.

    Possuo um formulário aonde tem um listbox com todos os médicos cadastrados e ao clicar no nome de um, escolher o mês e o ano, o Access apresenta todos os dados desse médico.

    Em seguida tenho um botão que faz a cópia para uma tabela.

    Funciona muito e preciso que esse processo fosse automático ou seja, no Listbox tem 20 médicos e queria que tivesse um botão aonde fosse feito dessa forma.

    Fiz uma busca no fórum, porém, não achei algo parecido. Achei alguns tópicos parecidos e tentei adaptar, só que sem sucesso.

    Alguma dica?

    Obrigado!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3686
    Registrado : 04/04/2010

    [Resolvido]Executar rotina com todos os dados de uma listbox Empty Re: [Resolvido]Executar rotina com todos os dados de uma listbox

    Mensagem  Avelino Sampaio em 8/11/2020, 08:30

    Olá!

    O senhor pode percorrer a lista através do uso do FOR.  Algo assim:

    Dim n as byte
    For n = 0 To (Me!lstMedicos.ListCount - 1) 'percorre a lista de médicos
      Debug.Print Me!lstMedicos.ItemData(n) 'captura o nome do médico na lista
      Call NomeFunçãoDoBotão 'executa o botão que realiza a gravação na tabela
    Next
    End Sub


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    luigustavo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/07/2010

    [Resolvido]Executar rotina com todos os dados de uma listbox Empty Re: [Resolvido]Executar rotina com todos os dados de uma listbox

    Mensagem  luigustavo em 8/11/2020, 15:54

    Boa tarde sr. Avelino.

    Esse código funcionou perfeitamente e agradeço a ajuda, estou a tempos tentando fazer isso e não conseguia.

    Porém, ficou um adendo para resolver de vez: ao percorrer a lista, preciso, por favor, que ao percorrer, o nome do médico apareça em uma textbox.

    Porque nessa textbox com o nome do médico é onde o botão "puxa" todos os dados necessários.

    Obrigado.
    avatar
    luigustavo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/07/2010

    [Resolvido]Executar rotina com todos os dados de uma listbox Empty Re: [Resolvido]Executar rotina com todos os dados de uma listbox

    Mensagem  luigustavo em 11/11/2020, 02:05

    Boa noite.

    Após alguns ajustes na rotina que o sr. Avelino passou, consegui adaptar o código para o completo uso no meu sistema.

    Agradeço a ajuda, foi resolvido a minha dúvida.

    Obrigado!

      Data/hora atual: 4/12/2020, 14:52