[Resolvido]Inserir dados em uma tabela a partir de uma listbox

Boa tarde, estou novamente com um problema. Tenho uma listbox onde o usuário inserir alguns dados para conferência para posteriormente gravar esses dados em uma tabela. Como faço para que esses dados do listbox sejam gravados na tabela? Minha tabela possui 7 colunas e a quantidade de linha será variada, dependendo do que o usuário for inserir. Como faço isso?

Muito obrigado,

Você quer gravar cada linha como novo registro na tabela? Se for isso, tente algo assim:

Código:

Dim N As Long

For N = 0 To Me.NomeDaListbox.ListCount - 1
    CurrentDb.Execute "INSERT INTO NomeDaTabela(NomeCampo1DaTabela, NomeCampo2DaTabela, NomeCampo3DaTabela) VALUES('" & Me.NomeDaListbox.Colum(0, N) & "', '" & Me.NomeDaListbox.Colum(1, N) & "', '" & Me.NomeDaListbox.Colum(2, N) & "'"
Next

Boa noite Criquio,

Primeiramente muito obrigado por me responder rapidamente. Eu utilizei seu código e está funcionando até uma parte. Fiz um teste inserindo 5 linhas no meu listbox e quando cliquei no botão para inserir aparece a seguinte mensagem:

Erro '3134' Syntax error in INSERT INTO statement.

Fiz uma parada no código e verifiquei que esse ocorre justamente na última linha da listbox durante o procedimento do for, a única coisa que alterei do seu código foi o fato do -1 após o listcount, pois a minha tabela não possui o cabeçalho.

Sabe me dizer como faço para corrigir isso?

Muito obrigado,

Talvez seja exatamente por ter tirado o -1. Como a contagem da listbox começa em 0, é preciso tirar 1 para poder dar o número de linhas correto. Imagine que você tenha 5 linhas:

Linha | Índice
 1    |   0
 2    |   1
 3    |   2
 4    |   3
 5    |   4

O listcount vai dar 5, porque ele conta a quantidade de linhas, mas o índice, que é o que usamos como referência da linha irá só até quatro porque começa a contar no 0.

Por isso colocamos For N = 0 To ListCount -1, ou seja, Para N = 0 até a quantidade de linha -1, ou seja, do índice 0 até o último.

Foi exatamente isso...agora funcionou perfeitamente. Realmente preciso colocar o -1 conforme a sua explicação.

Muito obrigado pela ajuda....

Grato pelo retorno. O fórum agradece.