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

    avatar
    luigustavo
    Novato
    Novato


    Respeito às regras : 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 Dom 08 Nov 2020, 2:10 am

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    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 Dom 08 Nov 2020, 8:30 am

    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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    luigustavo
    Novato
    Novato


    Respeito às regras : 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 Dom 08 Nov 2020, 3:54 pm

    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 : 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 Qua 11 Nov 2020, 2:05 am

    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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 2:37 pm