MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Criar e acrescentar em tabela via VBA

    avatar
    SAPMM
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 07/08/2011

    [Resolvido]Criar e acrescentar em tabela via VBA Empty Criar e acrescentar em tabela via VBA

    Mensagem  SAPMM 13/10/2011, 12:55

    Senhores,

    Atualmente tenho duas consultas, sendo a consulta "cns_Maiorcriatb" para criar uma tabela e a outra consulta "Cns_MenorSuboutrosacrestb" acrescenta a tabela criada.

    Atualmente utilizo um botão para acionar a execução das duas consultas, mas gostaria de fazer todo o processo via VBA para criar as consultas e criar e acrescentar a tabela via VBA de modo que o processamento fosse mais rápido e transparente para o usuário. Como devo proceder?


    Em modo sql as consultas são:

    cns_Maiorcriatb

    SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia
    FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA]
    GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME]
    HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]))>=30000))
    ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];


    Cns_MenorSuboutrosacrestb

    INSERT INTO TabRelPresidencia ( [RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] )
    SELECT "Outros" AS Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO]
    FROM cns_Menor
    GROUP BY "Outros", cns_Menor.[DATA PREVISTA];
    Anexos
    [Resolvido]Criar e acrescentar em tabela via VBA AttachmentBD_exemplo_-_ref_cruzada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 22 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8056
    Registrado : 05/11/2009

    [Resolvido]Criar e acrescentar em tabela via VBA Empty Re: [Resolvido]Criar e acrescentar em tabela via VBA

    Mensagem  Alexandre Neves 13/10/2011, 18:14

    donizeth,


    Currentdb.execute "DROP TABLE TabRelPresidencia;" 'Este código não deve ser executado enquanto não houver tabela TabRelPresidencia
    SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia
    FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA]
    GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME]
    HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]))>=30000))
    ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];"

    Currentdb.execute "DROP TABLE Cns_MenorSuboutrosacrestb;" 'Este código não deve ser executado enquanto não houver tabela Cns_MenorSuboutrosacrestb
    Currentdb.execute "INSERT INTO TabRelPresidencia ( [RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] )
    SELECT 'Outros' as Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO]
    FROM cns_Menor
    GROUP BY Outros, cns_Menor.[DATA PREVISTA];"
    avatar
    SAPMM
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 07/08/2011

    [Resolvido]Criar e acrescentar em tabela via VBA Empty Re: [Resolvido]Criar e acrescentar em tabela via VBA

    Mensagem  SAPMM 13/10/2011, 18:45

    Alexandre,

    Não funcionou o código abaixo, por favor, poderia ver no bd que envio agora no form "Formcriar_e_atualizar_tabela" ?

    Obrigado.
    Anexos
    [Resolvido]Criar e acrescentar em tabela via VBA AttachmentBD exemplo - ref cruzada - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (122 Kb) Baixado 31 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8056
    Registrado : 05/11/2009

    [Resolvido]Criar e acrescentar em tabela via VBA Empty Re: [Resolvido]Criar e acrescentar em tabela via VBA

    Mensagem  Alexandre Neves 13/10/2011, 21:08

    Código correcto

    CurrentDb.Execute "DROP TABLE TabRelPresidencia;" 'Este código não deve ser executado enquanto não houver tabela TabRelPresidencia
    CurrentDb.Execute "SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA] GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME] HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO])) >= 30000)) ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];"

    CurrentDb.Execute "DROP TABLE Cns_MenorSuboutrosacrestb;" 'Este código não deve ser executado enquanto não houver tabela Cns_MenorSuboutrosacrestb
    CurrentDb.Execute "INSERT INTO TabRelPresidencia ([RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] ) SELECT 'Outros' AS Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO] FROM cns_Menor GROUP BY 'Outros', cns_Menor.[DATA PREVISTA];"
    avatar
    SAPMM
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 07/08/2011

    [Resolvido]Criar e acrescentar em tabela via VBA Empty Re: [Resolvido]Criar e acrescentar em tabela via VBA

    Mensagem  SAPMM 14/10/2011, 18:59

    resolvido, ficou ótimo. muito obrigado.

      Data/hora atual: 19/1/2022, 02:22