Mover de ListBox para outra ListBox

Em ajuda a um colega do Fórum que disse estar tentando adaptar o código em um form...Código disponível na Internet..

Confeccionei o exemplo com o código citado por ele.

O Tópico referente a dúvida suscitada pelo colega Murilo Rosa e com participação do colega Luis Augusto, tendo este indicado o código utilizado neste exemplo

Pelo que assimilei na confecção, este código transforma a segunda lista em lista de valores e insere os registros na mesma, no entanto ainda não grava os mesmos na segunda tabela, deixando isto para um código separado, que percorrerá a mesma inserindo através do comando INSERT INTO na tabela 2 (Este código não está feito neste exemplo)


Tópico:
http://maximoaccess.forumeiros.com/t8659-passar-do-listbox-1-para-o-listbox-2-e-cadastrar-nova-tabela

Exemplo:
https://dl.dropbox.com/u/26441349/MoverEntre_Listas.rar

Cumprimentos.

Modelo com a atualização para inserir os produtos na tabela respectiva.

Como Citado na origem do tópico, para a passagem de uma lista a outra se converte em lista de valores as listBox's, e com os comandos seguintes se insere nas respectivas tabelas.


https://dl.dropbox.com/u/26441349/MoverEntre_Listas_Atualiza.rar

'Código adaptado por Harysohn Pina (PILOTO)
'Para Luis Augusto Fórum MáximoAccess em 17/07/2012
'Este código extrai os valores da listBox e o insere na tabela
'Para isto se lança os valores em uma variável (ListValue) adicionando um simbolo gráfico "|"
'Depois carrego uma Array com essa variável, separando os valores contidos na mesma
'Pegando em seguida a posição 1 e 2 da Array (excetuando a posição 0, que á a ID) e inserindo em seguida na tabelaSub AtualizaTabela(lstBoxFrom As Access.ListBox)
Dim colCounter As Integer
Dim varListItem As Variant
Dim listValue As String
Dim VarArray

For Each varListItem In lstBoxFrom.ItemsSelected
For colCounter = 0 To lstBoxFrom.ColumnCount - 1
listValue = listValue & CStr(Nz(lstBoxFrom.Column(colCounter, varListItem))) & " | "
Next colCounter
VarArray = Split(listValue, "|")
CurrentDb.Execute "INSERT INTO Tbl_2(Campo1, Campo2) Values(""" & LTrim(VarArray(1)) & """,""" & LTrim(VarArray(2)) & """ );"
CurrentDb.Execute "DELETE * From Tbl_1 WHERE Código = " & VarArray(0) & ";"
listValue = Left(listValue, Len(listValue) - 1)
'Limpo as variáveis para carregá-las com a proxima linha da listBox
listValue = ""
VarArray = ""
'Vai para a próxima linha da listBox
Next varListItem
listValue = ""
VarArray = ""
Me.txtRecebeFoco.SetFocus
Me.btnAtualizar.Enabled = False
End Sub


Enjoy!!