Views

Histats

Vitrine

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





É 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"

Inline image 1

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias