DONUT PROJECT - VBA - Access - Criando uma Query com Parâmetros

DONUT PROJECT - VBA - Access - Criando uma Query com Parâmetros

​

​

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

Essa técnica pode ajudá-lo em projetos nos quais precise de certa agilidade para criar bases de dados para análises.

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

Sub CrieQueriesComParametros()

    '      Author: André Bernardes

    '        Date: 18/08/14 - 10:38

    '      Action: Cria uma query com Parâmetros.

    ' Application: ****®

    Dim dbs As DAO.Database

    Dim qdf As DAO.QueryDef

    Dim strSQL As String

    Set dbs = CurrentDb

    Set qdf = dbs.CreateQueryDef("nQuery")

    Application.RefreshDatabaseWindow

    Let strSQL = "PARAMETERS Param1 TEXT, Param2 INT; "

    Let strSQL = strSQL & "SELECT * FROM [Table1] "

    Let strSQL = strSQL & "WHERE [Field1] = [Param1] AND [Field2] = [Param2];"

    Let qdf.SQL = strSQL

    qdf.Close

    Set qdf = Nothing

    Set dbs = Nothing

End Sub

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