Abrir consultas parâmetro por código

Como abro uma Consulta Parâmetro por código?

Autor: Dev Hashish

Para abrie uma consulta parametrizada por meio de código é necessário passar explicitamente cada parâmetro usando explicitamente a propriedade Parameters antes de abrir um recordset baseado na consulta.

Por exemplo, no pedaço de código abaixo, a consulta "Qry1" tem dois parâmetros: [Por favor entre o Código:] e [Por favor, entre a cidade:].

'************ Início do código ****************
Dim db As Database 'Banco de dados atual
Dim rs As Recordset 'Contém o conjunto resultante da consulta
Dim qdfParmQry As QueryDef 'O objeto consulta atual
    Set db = CurrentDb()
    Set qdfParmQry = db.QueryDefs("Qry1")
    qdfParmQry("Please Enter Code:") = 3

    ' Ou tente este método alternativo
    ' para passar os parâmetros
   
    qdfParmQry![Please Enter City:] = "New York"
    Set rs = qdfParmQry.OpenRecordset()
'************** Final do código ***************