[Resolvido]Ajuda com exemplo do JPaulo (ListBox)

Boa noite
Vi esse exemplo do mestre JPaulo e estou tentando adaptar.

Criei 2 funções... ao form Exemplo modificado.

Sub listaAtivos()
Dim i As Integer, S As String
   
   With Me.listaAtivos
       For i = 0 To .ListCount - 1
           S = S & .ItemData(i) & "; "
       Next
   End With
         
   S = Left(S, Len(S) - 2)
   
   Me.Texto1 = S
End Sub

Sub listaInativos()
Dim i As Integer, S As String
   
   With Me.lstDisp
       For i = 0 To .ListCount - 1
           S = S & .ItemData(i) & "; "
       Next
   End With
         
   S = Left(S, Len(S) - 2)
   
   Me.Texto2 = S
End Sub

e acrescentei a chamada

Private Sub Comando1_Click()
Call listaAtivos
Call listaInativos
End Sub


E não funciona mais a listBox e com erro de membro ja existe em modulo de objeto em qual ja se deriva.

Alguém poderia ajudar por favor.

Obrigado.

Mylton

Não sei o que pretende,

mas de pronto vejo que duplicou os nomes

das funções.

Mude o nome das duas funções que criou para diferenciar

das funções do JPaulo.

Balem

Bom dia.
Noobezinho
Já to a caminho do trabalho (médico).
Qdo voltar vejo.
Mais uma vez obrigado.

Agora se pudesse lhe incomodar um pouco a mais...
Teria como orientar nesse assunto...
https://www.maximoaccess.com/t39700-enxugar-melhorar-codificacao-no-exemplo

Obrigado.

Noobezinho
Funcionou.
O único senão é que copia o código dos produtos e não os nomes nas caixas de texto. Teria como modificar...

Resolvido.
Obrigado Noobezinho.

Opa!

Resolveu então, Ótimo!

Boa sorte!


Balem