DONUT PROJECT 2014 - VBA - Access - Atualizando o conteúdo de uma Query

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

É muito mais rápido atualizarmos internamente o conteúdo de uma query do que ficar criando-a todas as vezes que precisarmos. A performance conseguida em grandes volumetrias é incrível.

O código abaixo o ajudará a fazer isso.

Sub UpdateQuery(QueryName, SQL)

    '      Author: André Bernardes

    '        Date: 18/08/14 - 09:53

    '      Action: Atualiza o conteúdo de uma query com um novo script.

    ' Application: ****®

    ' Usando o nome da query e o respectivo script, caso a query não exista.

    If IsNull(DLookup("Name", "MsysObjects", "Name='" & QueryName & "'")) Then

        ' Cria-a, ...

        CurrentDb.CreateQueryDef QueryName, SQL

    Else

        ' Caso contrário, atualizao o script sql.

        Let CurrentDb.QueryDefs(QueryName).SQL = SQL

    End If

End Sub

 Série eBook Donut Projects: 

  

Para evocar o código basta fazer assim:

' Atualiza a query que é a base de todas as análises.

Dim nSQL2 As String

Let nSQL2 = "SELECT * " & _

                     "FROM lnk_Med " & _

                     "WHERE (((Left([FVD_Sector],2))='" & nParticula & "')) "

Call UpdateQuery("qry_lnk", nSQL2)

Lembre-se que deletar uma query inexistente pode causar um erro:

DoCmd.DeleteObject acQuery, "qry_lnk"

Conheça também:

Série Piece of Cake

• PIECE OF CAKE - MS Excel - Zipando - Compacte no formato Zip
• PIECE OF CAKE - MS Excel - Zipando - Escolha os Arquivos a Compactar
• PIECE OF CAKE - MS Excel - Zipando - Escolha uma Pasta e Compacte
• PIECE OF CAKE - MS Excel - Zipando - Compacte Todos os Arquivos da Pasta
• PIECE OF CAKE - MS Excel - Zipando - Compacte a Planilha Atual
• PIECE OF CAKE - MS Excel - Zipando - Compacte e Envie por e-Mail
• PIECE OF CAKE - Connecting to Oracle 12g with Excel VBA
• PIECE OF CAKE - Extract Path From String
• PIECE OF CAKE - Detecta se Arquivo Existe
• PIECE OF CAKE - MS Excel - Finding Last Row
• PIECE OF CAKE - Obtendo Endereço IP
• PIECE OF CAKE - Criando Arquivo Texto Externo
• PIECE OF CAKE - Criando Tabelas no SQL Server a partir do MS Excel
• PIECE OF CAKE - Notação Húngara
• PIECE OF CAKE - Usando Stored Procedures
• PIECE OF CAKE - Microsoft Access - Removendo Prefixo das Tabelas
• PIECE OF CAKE - MS Access e MS Word - Técnica de Automação
• PIECE OF CAKE - MS Access - 5 Formas Manuais de Reparo
• PIECE OF CAKE - Correção de Métricas
• PIECE OF CAKE - Convertendo Texto em Imagem
• PIECE OF CAKE - Excel - Manipule o Google Maps em sua Planilha
• PIECE OF CAKE - VBA Excel - Traduzindo Planilhas - Google Translate API
• PIECE OF CAKE - Defina a Latitude e a Longitude

Séries Donut

• DONUT PROJECT 2018 - VBA - 12 - Aumente sua Produtividade
• DONUT PROJECT 2018 - VBA - 11 - Os Benefícios do Controle de Versão
• DONUT PROJECT 2018 - VBA - 10 - Loop For-Each
• DONUT PROJECT 2018 - VBA - 09 - Método Count
• DONUT PROJECT 2018 - VBA - 08 - Referenciando Ranges
• DONUT PROJECT 2018 - VBA - 07 - Amostra de Macro
• DONUT PROJECT 2018 - VBA - 06 - Recursos Adicionais
• DONUT PROJECT 2018 - VBA - 05 - Gravando a Primeira Macro
• DONUT PROJECT 2018 - VBA - 04 - Opções de Solução
• DONUT PROJECT 2018 - VBA - 03 - Requisitos e Preparação
• DONUT PROJECT 2018 - VBA - 02 - Continua Cético
• DONUT PROJECT 2018 - VBA - 01 - Maximizando Sua Eficiência
• DONUT PROJECT 2018 - Excel - Gravando Macro Altere SELECT por RANGE
• DONUT PROJECT 2018 - O que Desenvolvedores Aprendem com Michael Jordan
• DONUT PROJECT 2018 - Excel - Macros - Mudando o Mindset
• DONUT PROJECT 2018 - Excel - Acelerando Macros
• DONUT PROJECT 2015 - Extraindo e-Mails
• DONUT PROJECT 2015 - Função - Extraindo Elementos da String
• DONUT PROJECT 2015 - Função - Retornando Nº de ocorrências de um Caractere
• DONUT PROJECT 2015 - Função - Retorna Conteúdo Delimitado por 2 Caracteres
• DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses
• DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses
• DONUT PROJECT 2015 - Excel - Report Layout
• DONUT PROJECT 2015 - Excel - Grand Totals - Inserindo Totais na Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Mudando a Fonte de Dados da Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Aplicando Refresh em Tabelas Dinâmicas
• DONUT PROJECT 2015 - Como Manter Informações parcialmente Anônimas
• DONUT PROJECT 2015 - Excel - Limpando o Filtro da Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Criando Filtros Múltiplos na Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Criando Filtro de Relatório na Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Remover Campos Calculados da Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Remover Campos da Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Adicionar Campos Calculados na Tabela Dinâmica
• DONUT PROJECT 2015 - Excel - Apagar todas as Tabelas Dinâmicas
• DONUT PROJECT 2015 - Excel - Apagar Tabela Dinâmica Específica
• DONUT PROJECT 2015 - Adicionar Rodapé de Confidencialidade no Office
• DONUT PROJECT 2015 - Excel - Criando uma Tabela Dinâmica
• DONUT PROJECT - Use os add-ins do MS Excel e dê um salto em sua performance
• DONUT PROJECT - VBA - Automatize o Outlook para enviar um e-mail com anexo
• DONUT PROJECT - VBA - Outlook - Salvando arquivos anexados nos e-mails
• DONUT PROJECT - VBA - Criando uma Matriz de Datas MAT - Moving Annual Total
• DONUT PROJECT - VBA - Excel - Atualize Tabelas Dinâmicas
• DONUT PROJECT - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais
• DONUT PROJECT 2014 - VBA - Access - Criando uma Query com Parâmetros
• DONUT PROJECT 2014 - VBA - Access - Atualizando o conteúdo de uma Query
• DONUT PROJECT - VBA - Access - Saiba o Número de Registro de cada tabela
• DONUT PROJECT - VBA - Access - Extraia Dados sem Problemas de TIMEOUT
• DONUT PROJECT - VBA - Access - Lista o Tamanho de Todas as Tabelas
• DONUT PROJECT - VBA - Excel - Populando um ListBox no seu Formulário
• DONUT PROJECT - VBA - Excel - Importando arquivos CSV
• DONUT PROJECT - VBA - Excel - Deletando Conexões de Dados
• DONUT PROJECT - VBA - Excel - Obtendo o Nome da Planilha sem a Extensão
• DONUT PROJECT - VBA - WORD - Exportação Automatizada - DOC para PDF

Leia também:

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com