One cannot filter a subreport. One either has to modify an existing query with a querydef OR set the RecrordSource in the Open event via a SQL "SELECT" expression.
My solution:
Code:
Private Sub Report_Open(Cancel As Integer)
Dim PDate As Date
Dim strSQL As String
PDate = DLookup("[PerCapReportDate]", "tblSettings")
strSQL = "SELECT LastName, FirstName, DOPmt, PCCode, Address, City, State, ZIP, HomePhone, Fax, Cell, EMA FROM tblMembers" & _
" WHERE (((DOPmt)>#" & PDate & "#) AND ((PCCode)='N')) OR (((DOPmt)>#" & PDate & "#) AND ((PCCode)='R'))" & _
" ORDER BY LastName, FirstName;"
Me.RecordSource = strSQL
End Sub