[Resolvido]Gravar listbox em tabela

Olá, amigos

Por gentileza gostaria de saber como gravar todo o conteúdo de uma listbox em uma tabela...

Desde já agradeço...

Em um campo só ou cada linha em um registro diferente?

E também, de onde vem os dados da que alimentam a listbox senão de uma tabela?

Em um campo só ou cada linha em um registro diferente?
- Toda a listbox... (Todas as linhas)

E também, de onde vem os dados da que alimentam a listbox senão de uma tabela?
- Os dados vem de outras tabelas com filtros específicos...

Anexe um exemplo.

Estou enviando o projeto para analise.
Como disse, estou tentando gravar os dados da listbox em uma tabela (OFERTADBF) e também gostaria de gravar alguns campos do formulário nessa nova tabela.

A Ajuda de voces será muito bem vinda.

Desde já agradeço...

Alguém pode me ajudar?

Olá, bom dia!
Faltaram algumas informações:
- Quando você fala gravar todos os campos da listbox, você se refere a todas as colunas da listbox?
- Precisamos saber que coluna da listbox deve ir para qual coluna da tabela.
- Quais campos do formulário devem também ser gravados na tabela? E se esses campos se repetem para cada registro da tabela?
- O DamascenoJr fez uma pergunta importante, porém não entendi bem a resposta.

Sem essas informações (e talvez outras) será bem difícil alguém conseguir lhe ajudar, mas queremos sim te ajudar.

Aguardamos,

Desculpa se não expliquei direito, vou tentar


Tenho uma listbox filtrada com todos os campos que preciso para gerar uma tabela, cada campo corresponde a uma coluna específica, porém, pode haver mais de um registro.
Ex.
Filtro todos produtos que tenha a palavra "óleo" e que esteja ativo, haverá mais de um produto na minha listbox com os dados dos mesmos (Preço, código, etc) uma vez filtrado, gostaria de clicar em um botão e incluir todos registros em uma tabela.

Obrigado pela atenção

Ainda precisamos das repostas que pontuei na minha mensagem anterior.

Por exemplo:
Campo da tabela: NPESQUISA, CODPRO, DATA, PRECO, DATAINI, CDMOTOFE
Campo da ListBox: CODIGO, DESCRIÇÃO, QTD MD, PV_NORMAL, TOTAL_PV, PR_OFERTA

Como sabermos onde gravar cada coluna da listbox nas colunas da tabela?
E as outras dúvidas?

Ok... Entendi as vossas perguntas.

Por exemplo:


NPESQUISA : (eu gravaria sempre 0 (zero))
CODPRO = CÓDIGO (da listbox)
DATA = Data preenchida em um campo no formulário
PRECO = PR_OFERTA (da listbox)
DATAINI = Data preenchida em um campo no formulário
CDMOTOFE: (eu gravaria sempre "99" é um campo carácter)

Esse é só um exemplo pq a listbox e tabela em questão tem mais campos, mas,creio q recebendo a resposta dessas questões em si, seria mais fácil elaborar uma solução.

Em um botão:

Código:

On Error GoTo trataerro

BeginTrans
For i = 1 To Me.ListaPromR.ListCount - 1
    With Me.ListaPromR
    CurrentDb.Execute "INSERT INTO OFERTADBF (NPESQUISA,CODPRO,DATA,PRECO,DATAINI,CDMOTOFE) " _
                    & "VALUES(0," & .Column(0, i) & ",#" & Format(Me.CDataIniR, "mm/dd/yyyy") & "#,'" _
                    & IIf(.Column(5, i) = "", 0, .Column(5, i)) & "',#" & Format(Me.CDataIniR, "mm/dd/yyyy") & "#,'99');"
    End With
Next
CommitTrans

MsgBox "Informações gravadas com sucesso.", vbInformation, "Informação"

Exit Sub
trataerro:
Rollback
MsgBox Err.Description, vbExclamation, "Erro ao gravar: " & Err.Number

As datas para inserção considerei o campo do formulário CDataIniR.

Marcelo David

Muito Obrigado, deu certinho o seu código.
Aproveitei e aproveitei esse código para gravar outras tabelas com outras situações também.

Deus abençoe, amigo!

Fico feliz que deu certo! Obrigado pelo feedback e fique com Deus também!