Open Report with where clause

[Cloonalt]

Seems to me that this should work but doesn't:

Dim stDocName As String
stDocName = "rptInvoice"
DoCmd.OpenReport stDocName, acPreview, , [InvoiceID] = [Forms]![frmPaymentInvoice]![InvoiceID]


It retrieves all records, instead of the invoiceID on the form.

InvoiceID is also a field in the query that the report is based on and is displayed on the report.

Any help appreciated. Thanks.

 

[yduckfr]

Use

DoCmd.OpenReport stDocName, acPreview, , "InvoiceID = '" & [Forms("frmPaymentInvoice").InvoiceID & "'"

 

[MakeItSo]

That's because it treats "INVOICEID" as variable, not as field. You need to enclose the criteria in quotes:

DoCmd.OpenReport stDocName, acPreview, , "[InvoiceID] = [Forms]![frmPaymentInvoice]![InvoiceID]"

Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://www.andygalambos.de

 

[Cloonalt]

Thanks for the help. It worked.