[Resolvido]Tabela Temporária

Tenho um formulário que tem uma listbox que filtra alguns dados!
Precisava enviar para uma tabela esses dados, e após imprimir, ao fechar o formulário apagasse automaticamente todos os dados dessa tabela.

Obrgado!

Já procurou no repositório de exemplos? Creio que tem lá exemplos disso, incluso do Mestre JPaulo.

Procurei!

Mas não achei nenhum exemplo q atendesse as minhas necessidades...

Boa tarde, Mai

Não deu elementos que lhe possa ajudar.
Não sabe fazer nenhum dos passos que precisa? Sabe fazer uns e não sabe fazer outros? Julga saber fazer, mas dá erro?
Dê elementos precisos

Preciso saber o código para enviar os dados da listbox para uma tabela.
Também preciso do código para apagar todos os dados dessa tabela, o resto sei fazer...

Para enviar os dados da caixa de listagem para a tabela
Dim I As Integer
For I = 0 To NomeLista.ListCount
Currentdb.execute "INSERT INTO Tabela(Campo1,Campo2,...) VALUES ('" & NomeLista.Column(0,I) & "'," & NomeLista.Column(1,I) & ",#" & NomeLista.Column(0,I) & "#)
Next

Nota: '" & NomeLista.Column(0,I) & "' para campo texto
" & NomeLista.Column(0,I) & " para campo número
#" & NomeLista.Column(0,I) & "# para campo data

Para eliminar todos os registos da tabela
Currentdb.execute "DELETE * FROM Tabela;"

Funcionou!
Mas com apenas uma coluna
Dá um erro.

Private Sub Comando0_Click()
Dim I As Integer
For I = 0 To Lista1.ListCount
CurrentDb.Execute "INSERT INTO teste(op,op1) VALUES ('" & Lista1.Column(0, I) & "'&'" & Lista1.Column(1, I) & "') "

Next
MsgBox "arquivo gerado"
End Sub
*a mensagem de erro e a seguinte
*erro em tempo de execucão '3346'
*numero de valores da consulta e campos de destino não coincidem.

Ora, aqui está um exemplo de má explicação:
- Funcionou! mas com apenas uma coluna. Dá um erro
ou
- Funcionou! Mas com apenas uma coluna dá um erro

O código apresentado, funcionará para campos texto. Para formato data, terá substituir as pelicas por cardinal. Para campos número terá de retirar as pelicas.

boa tarde a todos

Estamos junto com o usuario maicom desemvolvendo um sitema para a industria de moveis onde trabalhamos, boa parte do programa vem da ajuda deste forum, agradeçemos todas as vezes que fomos atendidos.
No caso desta duvida que temos, o formato dos campos da tabela de destino não igual a de origem no formato de texto, fico grato se puderem me ajudar mais esta vez. vou postar o exemplo para vcs verem o que estou fazendo errado.
desde ja agradeço


Private Sub Comando0_Click()
Dim I As Integer
For I = 0 To Lista1.ListCount
CurrentDb.Execute "INSERT INTO teste(descprod,cor) VALUES ('" & Lista1.Column(0, I) & "'&'" & Lista1.Column(1, I) & "') "

Next
MsgBox "arquivo gerado"

End Sub

Douglas

Diz que o formato dos campos não é texto. Não é preciso saber o que não é; precisa-se saber o que é!

peço desculpas pelo engano na hora de postar.
ambas as tabelas estão no formato de texto

Se os campos são texto, o código acima deve funcionar. Deve carregar, na tabela, os dados da primeira coluna no campo descprod e os dados da segunda coluna no campo cor

pois é, devo tar fazendo alguma coiza errada

se puder dar uma olhada eu te mando por email

só me passar o email

Não é permitido aos membros resolverem assuntos por c.e.
Deve publicar num sítio público e indicar a hiperligação

SEGUE O LINK DO ARQUIVO

http://www.4shared.com/file/jMXMfN0M/teste_tabela.html

LINK CORRIGIDO:

http://www.4shared.com/folder/y5d_a_QU/tabela_teste.html

Oh pá, o 4shared parece bom para impingir publicidade, mas para descarregar ficheiros não vejo como.

Não conseguiu baixar o arquivo?

É simples, ele tem um protetor de download.

Certamente abriu uma página com este link:
http://adf.ly/246619/http://www.4shared.com/folder/y5d_a_QU/tabela_teste.html

Remova a parte anterior ao do 4shared q vai dar certo.

fica assim:

http://www.4shared.com/folder/y5d_a_QU/tabela_teste.html

Espero ter ajudado!

Tens razão Alexandre, aquilo não tem assunto.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.