DONUT PROJECT - 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

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"

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart |