[Resolvido]Mover de listbox para listbox

Bom dia!!!

Tenho um form que tem 2 listbox.
1º já me complica porque eu nunca trabalhei com listbox, então me desculpem as duvidas bobas.

As consultas seriam 3? Do form, da listbox1(origem) e da listbox2(detsino)?
Ou eu faria isso através do VBA(que foi o que meu chefe fez)??


Eu usei aquelas setinhas p/ mover as linhas, então no VBA ficou assim:


Private Sub cmb_add_fiscal_Click()

If (lsb_fiscais.ListIndex > -1) Then
'Formato do item: "coluna1;coluna2", número da linha
lsb_fiscais_cont.AddItem (lsb_fiscais.Column(0, lsb_fiscais.ListIndex) & ";" & lsb_fiscais.Column(1, lsb_fiscais.ListIndex))
lsb_fiscais.RemoveItem (lsb_fiscais.ListIndex)
Else
MsgBox "Por favor selecione um item a ser removido.", vbCritical, "Erro"
End If

End Sub


Private Sub cmb_rem_fiscal_Click()

If (lsb_fiscal_cont.ListIndex > -1) Then
lsb_fiscal.AddItem (lsb_fiscais_cont.Column(0, lsb_fiscal_cont.ListIndex) & ";" & lsb_fiscal_cont.Column(1, lsb_fiscal_cont.ListIndex))
lsb_fiscal_cont.RemoveItem (lsb_fiscais_cont.ListIndex)
Else
MsgBox "Por favor selecione um item a ser removido.", vbCritical, "Erro"
End If

End Sub


Da erro 404, o objeto é obrigatorio(nao aparace nd na lista de origem).
Se eu mudo em propiedades para Tabela/consulta em vez de lista de valores, aparece as linhas(então não da erro 404), mas o depurador solicita para que eu mude para lista de valores (erro 3014) ¬¬

Conclusão, estou perdida com essas listbox.

Alguém tem alguma sugestão???

Está confuso p/ mim também, acredite.

Vamos lá, vou tentar.

Tenho um form principal(f_contrato), e tenho um form para cadastros de fiscais(f_fiscal), em f_contrato tenho um botão que abre um form para adicionar os fiscais cadastrados à aquele contrato (f_add_fiscais).

Tem a tabela do contrato(t_contrato) e a tabela de fiscais(t_fiscal) e criei uma auxiliar com somente a sua pk, e as fks de t_contrato e t_fiscal.

Os form f_contrato e f_fiscal funcionam perfeitamente.


No form f_add_fiscal q mora o problema, ele constitui apenas de 2 listbox, na qual a primeira deve constar os fiscais cadatsrados, e no segundo deve constar os selecionados para aquele contrato.

Bem, essa é a situação.


Mas esse form ta empacado, não sei como devo proceder na consulta, como devo ligar o contrato a ele, como passar o fiscal de um listbox pro outro, como usar a auxiliar...

É isso. ^^

Boa tarde, Csmelan

Parece-me que, em cada caixa de listagem:
1 - origem dos dados
alimenta a caixa de listagem a partir de instrução SQL (propriedade rowsource)
Neste caso, tem por tipo de origem de linha, tabela/consulta
ou
alimenta a partir de recordset
neste caso, tem por tipo de origem de linha, lista de valores

Em qualquer dos casos um dos campos deve ser a chave primária de forma a identificar inequivocamente o registo.

2 - Eliminar na tabela, ao clicar no item
elimina na tabela o registo e actualizar a origem da caixa de listagem

É relativamente fácil, faça por passos pequenos e teste com situações que satisfaçam todas as possibilidades.

Alexandre, você pode me explicar melhor o item 2? Por favor.

Este exemplo já ajudou muitos usuários aqui;

https://www.dropbox.com/s/h0zb4ehqwblq3db/ListBox_Passa_ListBoxII.rar?dl=0

Boa noite.
Alguém teria esse ou algum exemplo semelhante?