Add second where condition

[tagteam]

I am using this vba code to open a form with a where condition



DoCmd.OpenForm FormName:="frmInvoices", WhereCondition:="[InvoiceNumber]='" & Me.InvoiceNumber & "'"

I would like to add an additional where condition but cant get it to work, I have tried

DoCmd.OpenForm FormName:="frmInvoices", WhereCondition:="[InvoiceNumber]='" & Me.InvoiceNumber & "'", WhereCondition:="[CarNumber]='" & Me.CarNumber & "'"

However, i get the error: Named Argument already specified

I also tried
DoCmd.OpenForm FormName:="frmInvoices", WhereCondition:="[InvoiceNumber]='" & Me.InvoiceNumber & "'" AND WhereCondition:="[CarNumber]='" & Me.CarNumber & "'"

But that one gives me a syntax errror

[orange]

Try this:
DoCmd.OpenForm FormName:="frmInvoices", WhereCondition:="[InvoiceNumber]='" & Me.InvoiceNumber & "'" & " AND [CarNumber]='" & Me.CarNumber & "'"

Note: You only have 1 WHERE statement, but it can have several criteria

eg: WHERE fld1 = "val1" AND fld2 = "Val2" AND fldx = "ValX"

[tagteam]

The solution listed by orange gave me a Data Type mismatch in criteria expression (runtime error 3464) Because i had field in there that was a number type field and i did not specify that. I will figure out how to set the number type field and retry the code from orange.

However, I was able to get it to work with this code

Dim strDocName As String
Dim strLinkCriteria As String
Dim strLinkCriteria1 As String
Dim strLinkCriteria2 As String


strDocName = "frmInvoices"


strLinkCriteria1 = "[InvoiceNumber]=" & "'" & Me.[InvoiceNumber] & "'"
strLinkCriteria2 = "[CarNumber]=" & Me.[CarNumber]
strLinkCriteria = strLinkCriteria1 & " AND " & strLinkCriteria2
'Debug.Print "Resolved String = " & strLinkCriteria
DoCmd.OpenForm strDocName, , , strLinkCriteria

The debug is just in there for when i was testing

[orange]

Using Debug statements is a great testing technique, and you can always comment them after testing.

So Car Number was really a number data type, not a text/string as per your earlier post

...WhereCondition:="[CarNumber]='" & Me.CarNumber & "'"

[tagteam]

Yes, that is correct. The carnumber field was a number field.

Is there a different way to have written it if it was a number field instead of a text field. I would like to try your method as well to see if I can get it working. It is a little easier and cleaner.
Thanks