访问 VBA - 未找到 qdf 参数项 - 错误 3265

Question

我似乎无法理解我在这里做错了什么。我在以“qdf.Parameters ...”开头的三行收到错误3265（在此集合中找不到项目）我的理解是我在这里定义了我的sql语句的where子句，但也许我错了?对 vba 来说非常新，访问权限有点混乱。

Sub Save_Invoices_Meet_Criteria()

Dim FileName As String
Dim FilePath As String
Dim myStmt As String
Dim Db As DAO.Database
Dim myrs As DAO.Recordset

Set Db = CurrentDb()

Dim qdf As DAO.QueryDef
Set qdf = Db.QueryDefs("qryCreateInvoicesApproved")

qdf.Parameters("[Forms]![frmAccountingDatabaseInput]![Invoice_approved]") = [Forms]![frmAccountingDatabaseInput]![Invoice_approved]
qdf.Parameters("[Forms]![frmAccountingDatabaseInput]![invoice_date]") = [Forms]![frmAccountingDatabaseInput]![Combo272]
qdf.Parameters("[Forms]![frmAccountingDatabaseInput]![Invoice_Type}") = [Forms]![frmAccountingDatabaseInput]![Combo274]

Set myrs = CurrentDb.OpenRecordset("SELECT distinct [reference] from qryCreateInvoicesApproved", 2)

Do Until myrs.EOF

FileName = Me.reference
foldername = Format(Now(), "YYYY-MM-DD")
FilePath = "C:\Users\company\Desktop\Invoicing Database\Save_Test\" & foldername & "\" & FileName & ".pdf"

DoCmd.OpenReport "RPTInvoice", acFormatPDF, FilePath
'DoCmd.OutputTo acOutputReport, , acFormatPDF, FilePath



DoCmd.Close
myrs.MoveNext

Loop

myrs.Close
Set myrs = Nothing

End Sub

我的sql语句：

SELECT tblAccountingDatabase.*
FROM tblAccountingDatabase
WHERE (((tblAccountingDatabase.Invoice_approved)=Yes) And ((tblAccountingDatabase.invoice_date)=Forms!frmAccountingDatabaseInput!Combo272) And ((tblAccountingDatabase.Invoice_Type)=Forms!frmAccountingDatabaseInput!Combo274));

Answer 1

只需在存储查询的开头添加PARAMETERS 行，然后在 VBA querydef 对象中引用该行。然后使用Querydef.OpenRecordset() 方法将参数化查询传递给记录集对象。现在您正在传递不存在的命名参数：

SQL

PARAMETERS [Approveparam] YesNo, [Dateparam] Datetime, [Typeparam] String;
SELECT DISTINCT [reference]
FROM tblAccountingDatabase
WHERE (((tblAccountingDatabase.Invoice_approved) = [Approveparam]) 
  AND ((tblAccountingDatabase.invoice_date) = [Dateparam]) 
  AND ((tblAccountingDatabase.Invoice_Type) = [Typeparam]));

VBA

...
Dim qdf As DAO.QueryDef
Set qdf = Db.QueryDefs("qryCreateInvoicesApproved")

qdf!Approveparam = [Forms]![frmAccountingDatabaseInput]![Invoice_approved]
qdf!Dateparam = [Forms]![frmAccountingDatabaseInput]![Combo272]
qdf!Typeparam = [Forms]![frmAccountingDatabaseInput]![Combo274]

Set myrs = qdf.OpenRecordset()
...

要将参数传递给使用相同参数化查询的表单/报告/宏，请使用DoCmd.SetParameter 方法。是的，您需要用引号包裹每个值，因此引号会转义。也可以使用DoCmd.OutputTo 将报告转换为 PDF：

DoCmd.SetParameter "Approveparam", _
            """" & [Forms]![frmAccountingDatabaseInput]![Invoice_approved] & """"
DoCmd.SetParameter "Dateparam", _
            """" & [Forms]![frmAccountingDatabaseInput]![Combo272] & """"
DoCmd.SetParameter "Typeparam", _
            """" & [Forms]![frmAccountingDatabaseInput]![Combo274] & """"

DoCmd.OpenReport "RPTInvoice", acViewPreview
DoCmd.OutputTo acOutputReport, "RPTInvoice", acFormatPDF, FilePath

Answer 2

看起来您正试图强迫自己使用参数查询，但并没有真正致力于它。如果您不想真正使用一个，您可以更改您的 SQL 结构以使用通用参数名称 - 然后使用 qdf.Parameters 方法从您的表单中填充值。

但我认为这是你现在所拥有的最简单的。

替换这些行：

Dim qdf As DAO.QueryDef
Set qdf = Db.QueryDefs("qryCreateInvoicesApproved")

qdf.Parameters("[Forms]![frmAccountingDatabaseInput]![Invoice_approved]") = [Forms]![frmAccountingDatabaseInput]![Invoice_approved]
qdf.Parameters("[Forms]![frmAccountingDatabaseInput]![invoice_date]") = [Forms]![frmAccountingDatabaseInput]![Combo272]
qdf.Parameters("[Forms]![frmAccountingDatabaseInput]![Invoice_Type}") = [Forms]![frmAccountingDatabaseInput]![Combo274]

Set myrs = CurrentDb.OpenRecordset("SELECT distinct [reference] from qryCreateInvoicesApproved", 2)

用这一行打开你的记录集

Set myrs = qdf.OpenRecordset("SELECT * from qryCreateInvoicesApproved", 2)

将您的查询更改为：

SELECT DISTINCT [reference]
FROM tblAccountingDatabase
WHERE (tblAccountingDatabase.Invoice_approved=[Forms]![frmAccountingDatabaseInput]![Invoice_approved]) 
AND (tblAccountingDatabase.invoice_date=Forms!frmAccountingDatabaseInput!Combo272) 
AND (tblAccountingDatabase.Invoice_Type=Forms!frmAccountingDatabaseInput!Combo274);