Views

Histats

Vitrine

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

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





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

✔ VBA Brazil®

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