[Resolvido]Criando tabela a partir de consulta

É possivel se criar uma tabela access partindo de uma consulta onde, as colunas da nova tabela seriam os dados apontados nos registros colhidos da consulta. Exemplo. Uma consulta gera 05 nomes diferentes de empresas cadastradas. Ao criar a nova tabela as colunas criadas seriam Empresa A, Empresa B, Empresa C, Empresa D.... A criação da tabela seria semelhante ao resultado de uma consulta referencia cruzada com o diferencial que ao ter um formulario poderia editar e inserir valores, coisa que na referencia cruzada não consegui (acho que não é possivel). O mestre JPaulo, uma vez disponibilizou um código de criação de tabela temporaria, mas não consegui identificar onde preciso fazer as adapatações. Transcrevo abaixo o código por ele fornecido à epoca.

Option Compare Database

Public Function cmdCriatemp_Click()
Dim rst As DAO.Recordset, _
strSQL As String, _
strSQL1 As String, _
dbs As Database
Set dbs = CurrentDb
dbs.Execute "CREATE TABLE temp " _
& "(ItensSC CHAR, Adicional CHAR, Unidades CHAR, Quantidade CHAR, " & "Valorestimado CHAR);"
strSQL1 = "INSERT INTO temp ( ItensSC, Adicional, Unidades, Quantidade, Valorestimado ) " & "SELECT * FROM Cns_testeitem;"
DoCmd.RunSQL strSQL1
dbs.TableDefs.Delete "temp"
End Function

Tentou tirar a linha em vermelho?

Option Compare Database

Public Function cmdCriatemp_Click()
Dim rst As DAO.Recordset, _
strSQL As String, _
strSQL1 As String, _
dbs As Database
Set dbs = CurrentDb
dbs.Execute "CREATE TABLE temp " _
& "(ItensSC CHAR, Adicional CHAR, Unidades CHAR, Quantidade CHAR, " & "Valorestimado CHAR);"
strSQL1 = "INSERT INTO temp ( ItensSC, Adicional, Unidades, Quantidade, Valorestimado ) " & "SELECT * FROM Cns_testeitem;"
DoCmd.RunSQL strSQL1
dbs.TableDefs.Delete "temp"
End Function

Isso eu já havia identificado. Esse procedimento que o JPaulo havia passado criava a temp para uso e depois deletava-a. Minha duvida é onde adapatar para que esse codigo gere uma tabela composta não pelos campos que no codigo estão e sim por registros filtrados a partir de uma consulta, por exemplo Empresa A, Empresa B, Empresa C.....Essa tabela iria permitir que eu criasse um formulario usando-a para inserir dados, coisa que a consulta referencia cruzada não permite.

A tabela terá número fixo de registros? Por exemplo 5 empresas? Se tiver, pode criar variáveis como:

Dim Var1 As String, Var2 As String, Var3 As String, Var4 As String, Var5 As String,
Var1 = DLookup("Campo", "Tabela", "Código=1")
Var2 = DLookup("Campo", "Tabela", "Código=2")
Var3 = DLookup("Campo", "Tabela", "Código=3")
Var4 = DLookup("Campo", "Tabela", "Código=4")
Var5 = DLookup("Campo", "Tabela", "Código=5")

Depois, muda os valores do código para as variáveis:

"(Var1 CHAR, Var2 CHAR, Var3 CHAR, Var4 CHAR, Var5 CHAR" & "Valorestimado CHAR);"

Se tiver número variado de campos, aí precisará dar um loop.

vou tentar adaptar conforme sua orientação e testar. A principio, pelo historico, não tenho mais que seis ocorrencias de empresas. Pelo que entendi, no seu o "Codigo=1, ´Codigo=2..." seria uma ordem para inclusão na tabela a ser criada, certo? Para concluir, como eu conseguiria nomear essa tabela a ser criada, ao inves de Temp para um registro comum às empresas apontado na consulta. Exemplo. Todas as empresas serão filtradas na consulta por um numero de processo, 001/11. Onde coloco no codigo que o nome a ser assumido pela nova tabela seria 001/11 (Processo).