Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Retorno de dados [Resolvido]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
avgsantos
Colaborador
Colaborador
Mensagens: 77
Registrado em: Ter Fev 02, 2016 6:39 pm

Retorno de dados [Resolvido]

Mensagem por avgsantos » Ter Abr 16, 2019 10:22 pm

Boa noite, Fórum

Solicito ajuda referente retorno de dados, não estou conseguindo retornar todos os dados de registro para tabela listbox2 conforme selecionado nome na listbox1, está retornando apenas um registro, sendo que no banco temos vários registro para aquele nome.

Obrigado pela ajuda

avgsantos
Anexos
Controle Ferr.rar
(72.7 KiB) Baixado 3 vezes
Editado pela última vez por avgsantos em Qua Abr 17, 2019 9:08 pm, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Sabe muito
Sabe muito
Mensagens: 685
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Retorno de dados

Mensagem por srobles » Qua Abr 17, 2019 3:19 pm

avgsantos,

Substitua a rotina busca_registros existente no formulário. pela que deixo abaixo :

Código: Selecionar todos

Sub busca_regitros()

Dim Linha As Integer
Dim codigo As String
Dim Coluna   As Integer

    Set w = Sheets(2)
    
    
    codigo = txt_codigo
    Linha = 2
    ListBox1.Clear
    
    w.Select
    
        Do Until Sheets(2).Cells(Linha, 1) = ""
            If Sheets(2).Cells(Linha, 1) = codigo Then
            
                With ListBox1
                
                    .AddItem
                    
                    .List(.ListCount - 1, 0) = Format(Cells(Linha, 6), "DD/MM/YYYY")
                    .List(.ListCount - 1, 1) = Cells(Linha, 3)
                    .List(.ListCount - 1, 2) = Cells(Linha, 4)
                    .List(.ListCount - 1, 3) = Cells(Linha, 5)
                
                
                 End With
                         
            End If
        
        Linha = Linha + 1
        
        Loop

End Sub
Repare que nesta rotina, foi eliminada a variável LinListBox e suas atribuições e a mesma foi substituida pela propriedade .ListCount -1 (que preenche sempre os demais campos do ultimo item adicionado ao ListBox), pois, ao realizar o Loop pela segunda vez, a mesma não recebia valor algum, ocasionando o não preenchimento do controle.

Espero ter ajudado.

Abs


Saulo

Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

avgsantos
Colaborador
Colaborador
Mensagens: 77
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Retorno de dados

Mensagem por avgsantos » Qua Abr 17, 2019 9:07 pm

Boa noite, Srobles

Problema resolvido com sucesso, obrigado amigo

avgsantos



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder