Print Report

[D Willett]

Hi

I keep getting type Mismatch with the following code ( The bold section after "[Est No] = " & JN.
I think the 0 is a tect property.

Dim stDocName As String
Dim JN As String
JN = InputBox("Please Enter A Valid Job Number", "")
DoCmd.OpenReport "Fleet Referral", acViewNormal, , "[Est No] = " & JN And "[Supp] = '0'"

[HansV]

Hi Dave, the quotes are not quite correct.

If Supp is a text field:

DoCmd.OpenReport "Fleet Referral", acViewNormal, , "[Est No] = " & JN & " And [Supp] = '0'"

If it is a number field:

DoCmd.OpenReport "Fleet Referral", acViewNormal, , "[Est No] = " & JN & " And [Supp] = 0"

[D Willett]

Hi Hans

I knew it was the quotes, they're confusing.
It was a number field and works fine.

Thanks again.