Zugang VBA - qdf Parameter Artikel nicht gefunden - Fehler 3265

Question

Ich kann nicht scheinen zu verstehen, was ich hier falsch gemacht habe. Ich bekomme einen Fehler 3265 (Artikel nicht in dieser Sammlung gefunden) in den drei Zeilen beginnend mit "qdf.Parameters ..." Ich verstehe, dass ich hier die where-Klausel meiner SQL-Anweisung definiere, aber vielleicht liege ich falsch ? Ziemlich neu zu vba mit Zugang so ein wenig verwirrt.

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 

My SQL-Anweisung:

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

Es Art sieht aus wie Sie versuchen, sie zu zwingen, eine Parameterabfrage zu verwenden, aber nicht wirklich zu ihm verpflichtet. Wenn Sie nicht wirklich einen verwenden möchten, können Sie Ihre SQL-Struktur ändern, um generische Parameternamen zu verwenden - und dann die qdf.Parameters-Methode verwenden, um die Werte aus Ihrem Formular zu füllen.

Aber ich denke, das ist das einfachste für das, was Sie jetzt haben.

Ersetzen Sie diese Zeilen:

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) 

Mit dieser Linie Recordset zu öffnen

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

Ändern Sie Ihre Anfrage an:

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); 

Answer 2

Fügen Sie einfach eine PARAMETERS Zeile am Anfang Ihrer gespeicherten Abfrage hinzu, auf die Sie dann im VBA-Objekt querydef verweisen. Verwenden Sie dann die Querydef.OpenRecordset() Methode, um parametrisierte Abfrage in einem Re-Cord-Set-Objekt zu übergeben. Gerade jetzt Sie übergeben benannte Parameter, die nicht existieren:

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() 
... 

Um Parameter zu einem Formular/Bericht/Makro übergeben, die denselben verwendet parametrisierte Abfrage verwenden DoCmd.SetParameter Methode. Und ja, Sie müssen jeden Wert mit Anführungszeichen versehen, damit das Zitat verschwindet. Verwenden Sie auch DoCmd.OutputTo, um Bericht in PDF zu konvertieren:

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