MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Insert Into não funciona.

    Compartilhe
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Sab 07 Nov 2015, 13:14

    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:

    [Você precisa estar registrado e conectado para ver esta imagem.]

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

    Obrigado


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3418
    Registrado : 20/04/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Silvio em Sab 07 Nov 2015, 13:34

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

    se for texto:'"Numero_SS"'

    se for número: "Numero_SS"
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Sab 07 Nov 2015, 13:51

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9091
    Registrado : 04/11/2009

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  JPaulo em Sab 07 Nov 2015, 15:23

    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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Sab 07 Nov 2015, 18:57

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Dom 08 Nov 2015, 20:42

    Subindo tópico.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Seg 09 Nov 2015, 12:31

    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.

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2825
    Registrado : 06/11/2009

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Assis em Seg 09 Nov 2015, 13:18

    Cláudio

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

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Seg 09 Nov 2015, 13:35

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2825
    Registrado : 06/11/2009

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Assis em Seg 09 Nov 2015, 13:46

    Cláudio

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

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Seg 09 Nov 2015, 13:56

    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.

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    walisilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 10/09/2015

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  walisilva em Qui 03 Dez 2015, 14:58

    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")
    avatar
    walisilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 10/09/2015

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  walisilva em Qui 03 Dez 2015, 14:59

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9091
    Registrado : 04/11/2009

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  JPaulo em Qui 03 Dez 2015, 15:51

    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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9091
    Registrado : 04/11/2009

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  JPaulo em Qui 03 Dez 2015, 16:34

    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;


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1340
    Registrado : 17/03/2011

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Seg 07 Dez 2015, 16:53

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9091
    Registrado : 04/11/2009

    Re: [Resolvido]Insert Into não funciona.

    Mensagem  JPaulo em Seg 07 Dez 2015, 17:10

    Fico feliz;

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 30 Abr 2017, 21:33