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

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

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.

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

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