[Resolvido]Exportar dados de uma consulta e criar uma tabela

Boa tarde pessoal, vi um exemplo do mestre Jpaulo onde ele exporta dados de uma tabela e cria outra tabela temporária, gostaria de criar uma tabela temporaria através de dados de uma consulta exibida em um formulário,o código que vi no exemplo do mestre Jpaulo é esse:

Public Sub ExportTabelaA()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb

Set rst = CurrentDb.OpenRecordset("Select * from consExemplo")

Do While Not rst.EOF
For nIndex = 0 To 4
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext
Loop
Set rst = Nothing
MsgBox "Registros adicionados com Sucesso..."
End Sub

funciona perfeito, é possível fazer através de uma consulta?

Modifiquei o código para executar a consulta:

Public Sub ExportTabelaA()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset



dbs.Execute ("ConsIpasgo")


Do While Not rst.EOF
For nIndex = 0 To 4
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext
Loop
Set rst = Nothing
MsgBox "Registros adicionados com Sucesso..."
End Sub

Só que aparece a mensagem que não pode executar a consulta seleção.

Talvez assim:

Public Sub ExportTabelaA()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb
Set rst = db.OpenRecordset("ConsIpasgo")

Do While Not rst.EOF
For nIndex = 0 To 4
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set dbs = Nothing
MsgBox "Registros adicionados com Sucesso..."
End Sub

Não funcionou aparece a seguinte mensagem:

Parâmetros insuficientes eram esperados 3

Faltou informar para qual linha o depurador aponta no vba. De qualquer forma, reveja a linha abaixo:

('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"

O quer for texto fica entre aspas simples e duplas e o que for número fica entre aspas duplas apenas. Por exemplo se rst.Fields(nIndex) for número, seria assim:

('" & rst.Fields(nIndex).Name & "'," & rst.Fields(nIndex) & ")"

Reveja se está tudo certo nessa linha.

NA VERDADE SÃO SEIS CAMPOS NA CONSULTA:

1 campo é número
2 campo data abrevida
3 campo hora abreviada
4 campo hora abreviada
5 campo hora abreviada
6 campo hora abreviada

teria que informar no código exemplo

CurrentDb.Execute "INSERT INTO [temp] (X,Y,A,B,C,D) E criar na tabela temp estes campos?

hcastro

O que pretende?
Não vejo semelhança do código do Grande Mestre JPaulo, que tem dois campos, com os 6 campos da sua tabela

A tabela onde será exportado os dados da consulta os campos são do tipo texto este código funciona normalmente quando exporto de uma tabela para a outra:

CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"

agora quando faço este procedimento com mesmo código fazendo de uma consulta fala que os Parâmetros são insuficientes eram esperados 3

É o seguinte na consulta que tenho montada traz os campos da seguinte forma:

mat Dt e-exp e-alm r-alm S-exp
12345789101 01/03/2011 07:00 11:00 13:00 18:00

e no exemplo que vi do Mestre Jpaulo ele coloca estes dados em uma tabela temporária na Vertical:

gotaria que ficasse assim:

12345789101 01/03/2011 07:00
12345789101 01/03/2011 11:00
12345789101 01/03/2011 13:00
12345789101 01/03/2011 18:00

Está é minha necessidade

O erro persiste em Parâmetros insuficientes eram esperados 3:

Public Sub ExportTabelaA()
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset("ConsIpasgo")

Do While Not rst.EOF
For nIndex = 0 To 4
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set db = Nothing
MsgBox "Registros adicionados com Sucesso..."
End Sub

e o erro aponta para esta linha: Set rst = db.OpenRecordset("ConsIpasgo")

A tabela temp já existe ou você está querendo criá-la nesse código para depois passar os dados? Eu fiz um teste aqui com a tabela temp já existente e desconsiderando o For que eu não sei para que é, portanto eu o desconsiderei. Veja se consegues clarear algo. Aqui deu certo assim:

Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset("ConsIpasgo")

Do While Not rst.EOF
'For nIndex = 1 To rst.RecordCount
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst!Código & "','" & rst!Nome & "')"
'Next
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set db = Nothing
MsgBox "Registros adicionados com Sucesso..."

Persiste no mesmo erro, porém consegui criar uma tabela através de uma consulta opção consulta criar tabela no access a tabela és com os dados assim:
mat Dt e-exp e-alm r-alm S-exp
12345789101 01/03/2011 07:00 11:00 13:00 18:00


gotaria que ficasse assim:

12345789101 01/03/2011 07:00
12345789101 01/03/2011 11:00
12345789101 01/03/2011 13:00
12345789101 01/03/2011 18:00

Há como fazer?

Para cada linha você quer criar um registro com os campos dessa linha, é isso?

isso mesmo

Pelo que percebi, você quer criar 4 registros para cada um que já tem na tabela, separando os horários de entrada, saída para almoço, retorno do almoço e saída. Acredito que você faria isso melhor usando For Each NReg In rst.RecordCount, algo assim, aonde você usaria quatro CurrentDb.Execute..., um para cada data, e em cada um, você passa a data a ser colocada juntamente com os outros campos.

Disse que queria a transformação seguinte:
mat Dt e-exp e-alm r-alm S-exp
12345789101 01/03/2011 07:00 11:00 13:00 18:00

agora diz que quer:

12345789101 01/03/2011 07:00
12345789101 01/03/2011 11:00
12345789101 01/03/2011 13:00
12345789101 01/03/2011 18:00


Para cada linha você quer criar um registro com os campos dessa linha, é isso? <--- cada linha é um registo. para por cada linha criar um registo, será por cada registo criar um registo. certo? se assim for, não fará sentido.

Parece-me ter mais lógica o primeiro enunciado.
Para tal, execute:
Dim rst as dao.recordset

Set rst = currentdb.OpenRecordset("ConsIpasgo")
Do While Not rst.EOF
CurrentDb.Execute "INSERT INTO [temp] (X,Y,A) VALUES (" & rst(0) & ",#" & rst(1) & "#,#" & rst(2) &"#);"
CurrentDb.Execute "INSERT INTO [temp] (X,Y,A) VALUES (" & rst(0) & ",#" & rst(1) & "#,#" & rst(3) &"#);"
CurrentDb.Execute "INSERT INTO [temp] (X,Y,A) VALUES (" & rst(0) & ",#" & rst(1) & "#,#" & rst(4) &"#);"
CurrentDb.Execute "INSERT INTO [temp] (X,Y,A) VALUES (" & rst(0) & ",#" & rst(1) & "#,#" & rst(5) &"#);"
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
MsgBox "Registros adicionados com Sucesso..."

não sei como fazer

Depende do que pretende
- se for ao sair dum formulário, coloque no acontecimento AoSair do formulário
- se for ao abri do formulário, coloque AoAbrir do formulário
- se for para executar, crie um procedimento num módulo e execute (F5)
- se quiser utilizar como função, defina o código numa função e chame-a onde pretender Call NomeDaFuncao. Caso a função tenha argumentos, chame-a com os argumentos Call NomeDaFuncao(arg1,arg2,...)

Perfeito era isso mesmo Obrigado

Só faltou clicar no botão Resolvido. Estou fazendo-o dessa vez.