[resolvido] Atualizar listbox através de outra listbox

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Atualizar listbox através de outra listbox

Mensagempor José Waldick » 16 Jan 2018, 23:34

Boa noite!
Já postei um tópico com este título, só que a dúvida agora é outra.
Teria uma maneira que a listbox2 exibisse as duas colunas da listbox1 em ordem crescente por 'cliente'?
A situação seria a seguinte: Ao clicar em um botão, o aplicativo deverá inserir na listbox2, todos os registros selecionados na listbox1, em ordem crescente por cliente; e que ficasse permanente.
Tentei, mais não consegui; o interessante é que a funcionalidade do código só funciona para uma lista de valores, não funciona para uma 'tbl'.
Estamos enviando o exemplo anexo.
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1870
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Atualizar listbox através de outra listbox

Mensagempor Avelino Sampaio » 20 Jan 2018, 11:07

Jose

segue as modificações no código:

Código:
Private Sub Lista_DblClick(Cancel As Integer)
Dim k, j() As String, l%, p%
'verifica se o nome já está na lista
k = Split(Me!Lista2.RowSource, ";")
For l = 1 To UBound(k) Step 2
If k(l) = Me!Lista.Column(1) Then
MsgBox "O nome já está na lista...", vbInformation, "Aviso"
Exit Sub
End If
Next
'limpa as matrizes
Erase k: Erase j
'Adiciona item selecionado na listbox 2
Me!Lista2.AddItem Me!Lista & ";" & Me!Lista.Column(1)
'captura a lista e passa para uma matriz
k = Split(Me!Lista2.RowSource, ";")
'redimensiona a matriz j em função do tamanho da matriz k
ReDim j(((UBound(k) + 1) / 2) - 1)
'passa o conteúdo da matriz k para a matriz j
p = 0
For l = 0 To UBound(k) Step 2
j(p) = k(l + 1) & "|" & k(l)
p = p + 1
Next
'ordena a matriz j em ordem alfabética
WizHook.SortStringArray j
'limpa a listbox 2
Me!Lista2.RowSource = ""
'remonta a listbox2 com os dados ordenados da matriz j
For l = 0 To UBound(j)
Me!Lista2.AddItem Mid(j(l), InStr(j(l), "|") + 1) & ";" & Left(j(l), InStr(j(l), "|") - 1)
Next
End Sub


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Atualizar listbox através de outra listbox

Mensagempor José Waldick » 21 Jan 2018, 13:15

Muito obrigado!
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante