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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Retorno de dados [Resolvido]
Retorno de dados [Resolvido]
- Anexos
-
- Controle Ferr.rar
- (72.7 KiB) Baixado 180 vezes
Editado pela última vez por avgsantos em Qua Abr 17, 2019 9:08 pm, em um total de 1 vez.
Re: Retorno de dados
avgsantos,
Substitua a rotina busca_registros existente no formulário. pela que deixo abaixo :
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
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
Espero ter ajudado.
Abs