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

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Insert Into não funciona.

    Mensagem  Cláudio Machado em Sab 7 Nov - 9: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.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sab 7 Nov - 9: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"

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Sab 7 Nov - 9: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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sab 7 Nov - 11: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.]

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Sab 7 Nov - 14: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.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Dom 8 Nov - 16: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.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Seg 9 Nov - 8: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.

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 9 Nov - 9: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 ***

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Seg 9 Nov - 9: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.

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 9 Nov - 9: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 ***

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Seg 9 Nov - 9: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.

    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 3 Dez - 10: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")

    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 3 Dez - 10: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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qui 3 Dez - 11: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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qui 3 Dez - 12: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.]

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Seg 7 Dez - 12: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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 7 Dez - 13: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: Qua 7 Dez - 14:14