[Resolvido]Insert Into nao Popula tabela

bom dia amigos!

tenho código que cria uma tabela temporária com alguns campos e um Insert into para popular, simplesmente copiei de outros projetos que tenho aqui e nunca me deu problema. Então o miseravi  começou apresentar problemas.

Esta dando erro 3010:

A TABELA X JA EXISTE


O que estou achando estranho que sempre funcionou certinho, com nome de tabela declarado. Primeria vez que uso variavel e ele diz que tabela ja existe estranho

Código:

Dim strTbl As String
Dim sSql As String
Dim strSql
Dim formatTable As String

formatTable = Format(Now(), "ddmmyyyyhhnnss")


strTbl = "cme_" & formatTable & ""
strTabelaTemp = strTbl
            sSql = "CREATE TABLE " & strTbl & "(" & ""
            sSql = sSql & " PROTOCOLO int"
            sSql = sSql & " ,CODPASTA int"
            sSql = sSql & " ,COD_HOLIST int"
            sSql = sSql & " ,NOME_RESPONSAVEL varchar(255)"
            sSql = sSql & " ,CNPJ int"
            sSql = sSql & " ,TIPO varchar(255)"
            sSql = sSql & " ,SERVICO varchar(255)"
            sSql = sSql & " ,RAZAO_SOCIAL varchar(255)"
            sSql = sSql & " ,NOME_FANTASIA varchar(255)"
            sSql = sSql & " ,ENDERECO varchar(255)"
            sSql = sSql & " ,NUMERO int"
            sSql = sSql & " ,COMPL varchar(255)"
            sSql = sSql & " ,CIDADE varchar(255)"
            sSql = sSql & " ,BAIRRO varchar(255)"
            sSql = sSql & " ,UF varchar(255)"
            sSql = sSql & " ,CEP int"
            sSql = sSql & " ,N varchar(255)"
            sSql = sSql & " ,NOME_BANCO varchar(255)"
            sSql = sSql & " ,NUMERO_AGENCIA int"
            sSql = sSql & " ,CONTA_CORRENTE int"
            sSql = sSql & " ,NUMERO_CONTA int"
            sSql = sSql & " ,DIA varchar(255)"
            sSql = sSql & " ,MES varchar(255)"
            sSql = sSql & " ,ANO varchar(255)"
            sSql = sSql & " ,Contrato LONGTEXT"
            sSql = sSql & " ,STAtUS varchar(255)"
            sSql = sSql & " ); "
DoCmd.RunSQL sSql


strSql = "INSERT INTO strTbl " & _
         "SELECT CONSULTA_CONTRATO.* " & _
         "FROM CONSULTA_CONTRATO"
DoCmd.SetWarnings False
DoCmd.RunSQL sSql

Código:

Dim strTbl As String
Dim sSql As String
Dim formatTable As String
Dim strTabelaTemp$

formatTable = Format(Now(), "ddmmyyyyhhnnss")

strTbl = "cme_" & formatTable & ""
strTabelaTemp = strTbl
            sSql = "CREATE TABLE " & strTbl & "(" & ""
            sSql = sSql & " PROTOCOLO int"
            sSql = sSql & " ,CODPASTA int"
            sSql = sSql & " ,COD_HOLIST int"
            sSql = sSql & " ,NOME_RESPONSAVEL varchar(255)"
            sSql = sSql & " ,CNPJ int"
            sSql = sSql & " ,TIPO varchar(255)"
            sSql = sSql & " ,SERVICO varchar(255)"
            sSql = sSql & " ,RAZAO_SOCIAL varchar(255)"
            sSql = sSql & " ,NOME_FANTASIA varchar(255)"
            sSql = sSql & " ,ENDERECO varchar(255)"
            sSql = sSql & " ,NUMERO int"
            sSql = sSql & " ,COMPL varchar(255)"
            sSql = sSql & " ,CIDADE varchar(255)"
            sSql = sSql & " ,BAIRRO varchar(255)"
            sSql = sSql & " ,UF varchar(255)"
            sSql = sSql & " ,CEP int"
            sSql = sSql & " ,N varchar(255)"
            sSql = sSql & " ,NOME_BANCO varchar(255)"
            sSql = sSql & " ,NUMERO_AGENCIA int"
            sSql = sSql & " ,CONTA_CORRENTE int"
            sSql = sSql & " ,NUMERO_CONTA int"
            sSql = sSql & " ,DIA varchar(255)"
            sSql = sSql & " ,MES varchar(255)"
            sSql = sSql & " ,ANO varchar(255)"
            sSql = sSql & " ,Contrato LONGTEXT"
            sSql = sSql & " ,STAtUS varchar(255)"
            sSql = sSql & " ); "
DoCmd.RunSQL sSql

CurrentDb.Execute "INSERT INTO [" & strTbl & "] SELECT * FROM CONSULTA_CONTRATO;"

funcionou JP! obg

poderia me dar um breve explicação do que ocorreu no meu codigo para seu codigo pf


abraços

O nome da tabela vem de uma variavel, então terá de ser como [" & strTbl & "], senão ele diz sempre que já existe porque não enxerga qual tabela.

Fico feliz pelo retorno.

obg jp, uma duvida eu consigo fazer um insert into com uma consulta estabelecida e ainda colocar mais uns texto igual um recorset?

tipo:

no recordset:

rs("dia") = Day


no insert into daria pra fazer algo assim

CurrentDb.Execute "INSERT INTO [" & strTbl & "] SELECT * FROM CONSULTA_CONTRATO; + values(dia) = day ??

tenho uns campos na tabela de dia mes e ano, alem da consulta_contra de popular a tabela queria declarar no campos dia mes ano (day, moth, year)


sei la nao sei fui claro.

Com esta instrução não "SELECT * FROM CONSULTA_CONTRATO".

Para fazer o que pretende terá de mencionar todos os campos no insert;