✔ Programação GLOBAL®: DONUT PROJECT 2014 - VBA - Access

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.

Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA

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

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)