selection Formula Please Help Resolved

[mohd333]

Dim LQuote as string
Dim UpnR as string

lQuote = Chr$(34)
UpnR=Text.Text ' Gender M or F

'Yr2 & Yr3 are boolean fields

CReport1.ReplaceSelectionFormula ("{table1.Yr2}= true And {table1.gender}= " & lQuote & [uPnR] & lQuote)

'The above works fine, it selects all the attendees in Year 2 based on their gender (UpnR). However when I try to add the 2nd option I get error 13 "Type mismatch", I can't seem to get a resolution. Could someone point out the obvious. I want to able print all attendees in Yr2 and Yr3 based on their gender.

Or ("{table1.Yr3}= true And {table1.gender}=" & lQuote & [uPnR] & lQuote)

[mohd333]

Just got it, this works fine!

CReport1.ReplaceSelectionFormula (("{table1.Cyn}= true And {table1.gender}= " & lQuote & [uPnR] & lQuote) & _
"Or" & "{table1.CyR}= true And {table1.gender}=" & lQuote & [uPnR] & lQuote)