String Filter works in Public but not Private Sub

[msreed]

I created a string filter in a private sub and I get an error;
"Can't find the field referred to in your expression"

I have used this same expression in a Public sub and it works fine. What do I need to do differently to get it to work in the Private sub?

strFILTER = [qryrptComprehensiveRevenue_byClient_REDO3]![ClientID] = [Forms]![frmHubReports]![cmbClientNumber]
DoCmd.OpenReport strRPT, acViewPreview, strFILTER

 

[Rolliee]

I think you problem is something other than private or public sub. You could show us your code.

Rollie E

 

[msreed]

This same code(Select Case OPTCLIENT) works in another area but not here.
I keep playing with how to direct my ClientID and so far nothing works.

Select Case [optOwnerReports]
Case 4
strRPT = "rptComprehensiveRevenueSummary_byClient"
Select Case [optCLIENT]
Case 1 'ALL Clients...
Case 2 'Single Client...
strFILTER = [qryrptComprehensiveRevenue_byClient_REDO3]![ClientID] = [Forms]![frmHubReports]![cmbClientNumber]
Case 3 'Negotiation Clients...
strFILTER = [ARTypeID] = 8
End Select
DoCmd.OpenReport strRPT, acViewPreview, strFILTER
End

 

[Rolliee]

Is the problem only on case 2? It looks to me like you need a run-time value and you have a compile time value.

strFILTER = "[qryrptComprehensiveRevenue_byClient_REDO3]![ClientID] = '" * [Forms]![frmHubReports]![cmbClientNumber] & "';"


Rollie Easter