WhereCondition with a Type Mismatch error

[eRed]

Please help

This works

DoCmd.OpenReport "ReportName", acViewPreview, , "[ReportName].[FieldID]=" & Me.FieldID

and this works

DoCmd.OpenReport "ReportName", acViewPreview, , "[ReportName].[DateRec]= #" & Me.[DateRec] & "#"


But this doesn't work

DoCmd.OpenReport "ReportName", acViewPreview, , "[ReportName].[FieldID]=" & Me.FieldID And "[ReportName].[DateRec]= #" & Me.[DateRec] & "#"


Run-time error '13';

Type mismatch

Thank you

 

[John Big Booty]

Try;

DoCmd.OpenReport "ReportName", acViewPreview, , "[ReportName].[FieldID]=" & Me.FieldID  And [B][COLOR="Red"]&[/COLOR][/B] "[ReportName].[DateRec]= #" & Me.[DateRec] & "#"

 

[WayneRyan]

E,

DoCmd.OpenReport "ReportName", acViewPreview, , "[ReportName].[FieldID]=" & Me.FieldID [B][SIZE="3"]& " And " &[/SIZE][/B] [ReportName].[DateRec] =  #" & Me.[DateRec] & "#"

hth,

Wayne

 

[John Big Booty]

Ah yes the And need to be wrapped in double quotes too

 

[John Big Booty]

... the associated ampersands

 

[eRed]

Thank you very much...

this was the code that worked:

DoCmd.OpenReport "ReportName", acViewPreview, , "[ReportName].[FieldID]=" & Me.FieldID & " And " & "[ReportName].[DateRec] = #" & Me.[DateRec] & "#"

Thanks again!

E

 

[MyTech]

Thanks guys!

 

[MyTech]

eRed,

I have a little stupid comment on your conclusion:

you could use:
... & "And [Control] ....
Instead of:
... & " And " & "[Control] ....

 

[boblarson]

eRed,

I have a little stupid comment on your conclusion:

you could use:
... & "And [Control] ....
Instead of:
... & " And " & "[Control] ....

That's not a stupid comment. It is a good comment and the method that I use. No need to concatenate strings together when you can just have one string.