[Resolvido]Insert Into não funciona.

Bom dia galera.

Tenho este código para acrescentar alguns dados á uma tabela Temporária:

CurrentDb.Execute "INSERT INTO REGISTRO_SS_GRAPH_TEMP ( NumeroSS )SELECT Numero_SS FROM Cns_Relatorio_SS_Aprovadas;"

O problema é que ele não executa, estou buscando os dados em uma consulta, precisa de mais algum parâmetro?

Este código irá levar mais 3 campos ai, mas tentei desta forma que é a mais simples e não funciona, eis a mensagem:



Os campos são numéricos tanto na consulta quanto na tabela.

Obrigado

Bom dia...acho que pode ser isso....não tenho bem a certeza.

se for texto:'"Numero_SS"'

se for número: "Numero_SS"

Bom dia.
Obrigado pela ajuda amigo Silvio, mas não é isso.
Se coloco aspas ele exibe a mensagem: Era esperado fim da instrução.

Como o nome do campo é igual dos dois lados, tem de colocar o nome da tabela ou consulta antes de cada um, ligados por ponto.

Tabela.campo

Boa tarde.
Obrigado JPaulo pelo interesse.
Mas se reparar os campos são diferentes:
Numero_SS e NumeroSS

E também já tentei desta forma Tabela.Campo.
E não funciona.

Subindo tópico.

Bem fiz um teste copiando de tabela para tabela e funcionou certinho com este código:

CurrentDb.Execute "INSERT INTO REGISTRO_SS_GRAPH_TEMP (NumeroSS) SELECT REGISTRO_SS.Numero_SS FROM REGISTRO_SS;"

Só que na verdade, preciso que funcione pegando os dados da consulta.

Desta forma.

CurrentDb.Execute "INSERT INTO REGISTRO_SS_GRAPH_TEMP (NumeroSS) SELECT Cns_Relatorio_SS_Aprovadas_Conta.Numero_SS FROM Cns_Relatorio_SS_Aprovadas_Conta;"

Segue o link da parte do sistema.
Obrigado pela ajuda.

https://db.tt/0W3Lyi4D

Cláudio

O interesse final é abrir o relatório "Mapão" filtrado com as datas do Formulário "4-DIALOGO_RELATORIO_SS"

Aguardo

Bom dia Assis.

O que pretendo:
Tenho várias consultas que filtram informações para a parte final do relatório: MAPÃO
Preciso criar vários gráficos baseados nestas consultas, como são informações separadas não consigo usar as consultas para montar o gráfico, tipo:

Um dos gráficos terá:
S.S. Canceladas
S.S. Aprovadas
S.S. Não Aprovadas.

Outro terá:
S.S. Aprovadas em 1 Dia
S.S. Aprovadas em 3 Dias
S.S. Aprovadas em 5 Dias
S.S. Aprovadas em 7 Dias
S.S. Aprovadas em mais de 7 Dias

Ou seja, todas as informações que estão no final da página deste relatório MAPÃO serão convertidas em gráficos.

Ai para facilitar eu queria que ao clicar no botão para gerar o relatório, que o sistema pegasse as informações das consultas e levasse para a tabela temporária: REGISTRO_SS_GRAPH_TEMP que é de onde eu iria extrais todas as informações para geração do gráfico.

Eu sei que posso criar consultas de acréscimo para fazer isso, mas seriam muitas consultas para o sistema.

Obrigado pela ajuda amigo.

Cláudio

Teste executando o formulário 4-DIALOGO_RELATORIO_SS no botão visualizar.

http://ge.tt/6uuI9UR2/v/0?c

Assis meu amigo, acho que você não compreendeu.
Eu não quero abrir o relatório filtrado pelo form, isso eu já faço.
Leia a mensagem acima amigo.

https://www.maximoaccess.com/t24641-insert-into-nao-funciona#176111

Veja seu código: INSERT INTO REGISTRO_SS_GRAPH_TEMP ( NumeroSS )SELECT Numero_SS FROM Cns_Relatorio_SS_Aprovadas;

o "SELECT" está junto do ")".

Veja se não é isso.

O padrão é: "insert into [tabela] ([campo1], [campo2]) select [campo], [campo2] from [tabela2]"

Teste também DoCmd.RunSql ("seu código")

Esqueci: uma outra forma de ver se está tudo ok, é copiar seu codigo sql e colar numa consulta e ver se ela exibe e se ela executa. Caso de algum erro, faça tudo na consulta, quando der certo, copie o sql dela e use no seu vba.

Um pitaco;

Substitua o "CurrentDb.Execute "INSERT INTO REGISTRO_SS_GRAPH_TEMP bla bla bla"

Por:

Código:

Dim strSQL As String
DoCmd.SetWarnings False
    strSQL = "INSERT INTO REGISTRO_SS_GRAPH_TEMP ( NumeroSS )"
    strSQL = strSQL & " SELECT Cns_Relatorio_SS_Aprovadas_Conta.Numero_SS"
    strSQL = strSQL & " FROM Cns_Relatorio_SS_Aprovadas_Conta;"
    DoCmd.RunSQL (strSQL)
DoCmd.SetWarnings True

Para o seu grafico;

S.S. Aprovadas em 1 Dia
S.S. Aprovadas em 3 Dias
S.S. Aprovadas em 5 Dias
S.S. Aprovadas em 7 Dias
S.S. Aprovadas em mais de 7 Dias

Faça o seguinte;

Em cada consulta, acrescente num campo novo assim;

Na consulta "Cns_Relatorio_SS_Aprovadas_Conta1Dia" num campo novo Dia: "1"
Na 3 Dia: "3"
Na 5 Dia: "5"
Na 7 Dia: "7"
Na +7 Dia: "+7"

Depois faça uma consulta de UNIÃO e terá o resultado que pretende para poder fazer a soma;

Código:

SELECT REGISTRO_SS.Autonumeração, Count(REGISTRO_SS.Data_SS) AS ContarDeData_SS1, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "1" AS Dia
FROM REGISTRO_SS
GROUP BY REGISTRO_SS.Autonumeração, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "1"
HAVING (((REGISTRO_SS.Data_Apovação)=[Data_SS]+1) AND ((REGISTRO_SS.Data_SS) Between [forms]![4-DIALOGO_RELATORIO_SS]![DataInicial] And [forms]![4-DIALOGO_RELATORIO_SS]![DataFinal]) AND ((REGISTRO_SS.Excluida)=False))
UNION
SELECT REGISTRO_SS.Autonumeração, Count(REGISTRO_SS.Data_SS) AS ContarDeData_SS1, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "3" AS Dia
FROM REGISTRO_SS
GROUP BY REGISTRO_SS.Autonumeração, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "3"
HAVING (((REGISTRO_SS.Data_Apovação)=[Data_SS]+2 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+3) AND ((REGISTRO_SS.Data_SS) Between [forms]![4-DIALOGO_RELATORIO_SS]![DataInicial] And [forms]![4-DIALOGO_RELATORIO_SS]![DataFinal]) AND ((REGISTRO_SS.Excluida)=False))
UNION
SELECT REGISTRO_SS.Autonumeração, Count(REGISTRO_SS.Data_SS) AS ContarDeData_SS1, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "5" AS Dia
FROM REGISTRO_SS
GROUP BY REGISTRO_SS.Autonumeração, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "5"
HAVING (((REGISTRO_SS.Data_Apovação)=[Data_SS]+4 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+5) AND ((REGISTRO_SS.Data_SS) Between [forms]![4-DIALOGO_RELATORIO_SS]![DataInicial] And [forms]![4-DIALOGO_RELATORIO_SS]![DataFinal]) AND ((REGISTRO_SS.Excluida)=False))
UNION
SELECT REGISTRO_SS.Autonumeração, Count(REGISTRO_SS.Data_SS) AS ContarDeData_SS1, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "7" AS Dia
FROM REGISTRO_SS
GROUP BY REGISTRO_SS.Autonumeração, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "7"
HAVING (((REGISTRO_SS.Data_Apovação)=[Data_SS]+6 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+7) AND ((REGISTRO_SS.Data_SS) Between [forms]![4-DIALOGO_RELATORIO_SS]![DataInicial] And [forms]![4-DIALOGO_RELATORIO_SS]![DataFinal]) AND ((REGISTRO_SS.Excluida)=False))
UNION SELECT REGISTRO_SS.Autonumeração, Count(REGISTRO_SS.Data_SS) AS ContarDeData_SS1, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "+7" AS Dia
FROM REGISTRO_SS
GROUP BY REGISTRO_SS.Autonumeração, REGISTRO_SS.Data_Apovação, REGISTRO_SS.Data_SS, REGISTRO_SS.Excluida, "+7"
HAVING (((REGISTRO_SS.Data_Apovação)=[Data_SS]+8 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+9 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+10 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+11 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+12 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+13 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+14 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+15 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+16 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+17 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+18 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+19 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+20 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+21 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+22 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+23 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+24 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+25 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+26 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+27 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+28 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+29 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+30 Or (REGISTRO_SS.Data_Apovação)=[Data_SS]+31) AND ((REGISTRO_SS.Data_SS) Between [forms]![4-DIALOGO_RELATORIO_SS]![DataInicial] And [forms]![4-DIALOGO_RELATORIO_SS]![DataFinal]) AND ((REGISTRO_SS.Excluida)=False));


Numa outra consulta para os totais;

Código:

SELECT qryUNIAO.Dia, Count(qryUNIAO.Autonumeração) AS Total
FROM qryUNIAO
GROUP BY qryUNIAO.Dia;

Perfeito Jpaulo!
Obrigado mais uma vez amigo.
Grande abraço.

Fico feliz;

Obrigado pelo retorno o forum agradece.