Retorno de dados [Resolvido]

[avgsantos]

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

[srobles]

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

[avgsantos]

Boa noite, Srobles

Problema resolvido com sucesso, obrigado amigo

avgsantos