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.DatabaseDim qdf As DAO.QueryDefDim strSQL As String
Set dbs = CurrentDbSet 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.CloseSet qdf = NothingSet dbs = NothingEnd Sub
Nenhum comentário:
Postar um comentário