duvida em listbox

Pessoal,

Estou com a seguinte duvida, eu possuo um listbox com varias linhas de informações, porem eu preciso saber como faço para adicionar em uma outra tabela as informações que os usuarios selecionaram neste listbox, o problema eh que é possivel selecionar mais de uma informação...e com isso, utilizando a criação que o proprio access faz, não é possivel salvar.



como posso fazer para salvar tudo que o usuario selecionar em um campo de uma tabela ou então armazenar em uma outra tabela onde, cada opção selecionada vai aparecer em uma linha separada, seguida pelo campo "mestre" que seria um outro campo(combobox) no formulário.


Espero que tenha explicado direito..qualquer coisa me perguntem que eu respondo...

obrigado

Adriano944

Explicou mas sem dados concrectos não é possível ajudar em concreto.
Crie uma bd com formulário com o controlo pretendido e tabela com campos pretendidos. Carregue, por exemplo em esnips, para poder tentar ajudar em concrecto.

Alexandre

A minha duvida é apenas saber como posso salvar mais de um registro selecionado em um listbox, pois só esta salvando quando seleciono um.

Amigão bom dia;

Multi-Selecção na listbox faz update na tabela.

Veja se serve;
http://www.speedyshare.com/files/22443836/Adriano.rar

JPaulo

Agradeço por sempre me ajudar.

porem no caso enviado você apenas altera o status de ativo pra inativo ou vice-versa, porem a minha situação é a seguinte.

eu tenho uma tabela com X registros, e estes registros podem estar ligado a um codigo "mestre" ou a varios codigos "mestre",

exemplo:

um carro pode ter 5 opcionais
porem 5 opcionais podem estar em centenas de carros

compreendeu?
acho que da outra maneira que tinha explicado havia ficado meio confuso, me desculpe se nao expliquei direito.

acredito que a melhor maneira de aparecer seria:

carro1 opcional1
carro1 opcional2
carro2 opcional1
carro3 opcional2


etc etc etc...
obrigado!

Contando que a lista se chama Lista1, utilize

Dim Item
For Each Item In Lista1.ItemsSelected
Currentdb.execute "INSERT INTO Tabela(Campo1,Campo2) VALUES '" & Lista1.Column(0, Item) & "','" & Lista1.Column(1, Item) & "';"
Next

Alexandre

Obrigado Pelo retorno
Consegui fazer aqui da seguinte maneira:

Dim ctl As Control, X As Integer, selItem As Variant, sql As String
'By JPaulo Maximo Access
Set ctl = lstopc
For Each selItem In ctl.ItemsSelected

X = X + 1

VP = Me.txtvp
sql = "INSERT INTO [OPCIONAIS&VPS] VALUES ('" & VP & "','" & ctl.ItemData(selItem) & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL (sql)
DoCmd.SetWarnings True
Next selItem
ctl = X
lstopc.Requery