Run-time Error '3464' With A Print Cmd in Access 07

[hrseebeck]

Good morning! I have created a form that has a button to open the form record as a report; however, I am receiving a run-tim error of 3464: Data type mismatch in criteria expression. My code looks like this:

Private Sub cmdPrintRecord_Click()

Dim strReportName As String
Dim strCriteria As String

strReportName = "rptPrintRecord"
strCriteria = "[QuoteNo]='" & Me![QuoteNo] & "'"
DoCmd.OpenReport strrptPrintReport, acViewPreview, , strCriteria

End Sub

The error is highlighting the last line. Any ideas what may be the issue?

Thank you

[orange]

Try
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

[hrseebeck]

Thank you for such a quick response. Unfortunatly the new code didn't work. Could there be an issue because my form has a subform and the report I am printing to has the same format including the subreport?

[Missinglinq]

The error message says "Data type mismatch in criteria expression," so the pertinent question should be is the Field named QuoteNo defined as a Number or as Text? The syntax you're using is only correct if the Field is defined as a Text Datatype. If QuoteNo is defined as a Number, the correct syntax would be

strCriteria = "[QuoteNo]=" & Me![QuoteNo]

Given the code you posted, I'd also have to guess that orange's suggestion of

DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

is probably also correct! The strrptPrintReport in the line

DoCmd.OpenReport strrptPrintReport, acViewPreview, , strCriteria

looks suspiciously like a mixed up concatenation of strReportName and rptPrintRecord.

You should always keep in mind that when trouble-shooting something like this, you can have multiple errors, and the second error will only become evident when the first error is resolved, the third when the first and second errors become resolved, and so forth.

Linq :0)>

[hrseebeck]

Thank you all so much! The main form now works but the subform won't come through. I added a line of code: strCriteria = "[QuoteNo]=" & Forms!frmQuoteSF [QuoteID] but it also is not working. The links are QuoteNo from the main form and the child link for the subform is QuoteID, both are numeral fields. Any help would be most appreciative.

[orange]

Is there really a space in the strCriteria? If so there shouldn't be.

strCriteria = "[QuoteNo]=" & Forms!frmQuoteSF [QuoteID]

Here's a link to form/control referencing syntax.
http://access.mvps.org/access/forms/frm0031.htm

[hrseebeck]

Thank you. I used the code line you provided but I am receiving a Compile error: Syntax Error. I review the link you provided but I was unable to get it to work.

[orange]

The line in my last post is a copy of the line from your post#5. I was suggesting if there is really a space in that line, then it's probably an ERROR.

The link I gave shows the syntax for referencing controls on MainForm, subform1, subsubform etc.

[hrseebeck]

The space was removed but I am still not getting my subform to show in the subreport for that particular quote. I have tried to add a line of code strCriteria = "[QuoteID]=" & me!Subform1.Form!frmQuoteSF[QuoteID] to get the info from the subform but I am still getting an error. Any help?

[orange]

Are you gettingan error message? If so, please provide the message text/number.

Can you post a copy of your database - remove anything private/confidential?

[hrseebeck]

The error that I get is Compile Error: Expected: end of statement.

My coding is :

Private Sub Command62_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "rptPrintRecord"
strCriteria = "[QuoteNo]=" & Me![QuoteNo]
strCriteria = "[QuoteID]=" & me!Subform1.Form!frmQuoteSF[QuoteID]
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

End Sub

[orange]

Your code is over writing strcriteria --- I don't think that's what you intended.

Can you post your database? (remove private info.)

[hrseebeck]

Here is the database. Thank you for your help.

[orange]

I don't see any buttons on your forms.

Perhaps you should tell us exactly which form, which control etc.

Only the Customers form looks like a form, the other are just print on a white page -- no obvious controls.
Have no idea what to look for.

[hrseebeck]

My apologies. The button I am trying to code is located on the frmQuote sheet. I have uploaded a new database where the button is visible (for some reason the previous one wasn't showing up).AccessForums2.zip