Syntax Contains Problem

[pimlicosnail]

Hello, I'm having a problem with developing code to generate a report with only those records containing the value in an unbound textbox. I'm using the OnClick event on the Preview Report button on the form (I'd rather use this than create a query because I use the same report for other filters).

Here is the code I'm using:

If Not IsNull(Me.Text21.Value) Then

    stDocName = "rptReport"
    DoCmd.OpenReport stDocName, acPreview, , Chr(34) & Me.Text21 & Chr(34) & "In ([fldTitle])"

End If

What is wrong with my code?

[RuralGuy]

Try:
DoCmd.OpenReport stDocName, acPreview, , "[fldTitle] = '" & Me.Text21 & "'")

[pimlicosnail]

Thanks for the info, but I'm actually looking for Contains vs Equals. How would I do that?

[RuralGuy]

I'm not sure you can do that with a filter. You'll just have to experiment. How many different values might you be looking for?

[pimlicosnail]

It's just one value in the unbound textbox.

[RuralGuy]

How about something like:

If Not IsNull(Me.Text21.value) Then
    stDocName = "rptReport"
    stWhereClause = "InStr(1,[fldTitle],'" & Me.Text21 & "') > 0"
    DoCmd.OpenReport stDocName, acPreview, , stWhereClause
End If

[pimlicosnail]

That did the job! Thanks... however, is there a way to have it search all record fields (vs just fldTitle)?

[RuralGuy]

It is *only* a filter you know. How about passing the value of Me.Text21 to the Report in the OpenArgs and then you can do whatever you need in the OnLoad event.

[pimlicosnail]

I'm not sure what you mean by passign the value to the report in the OpenArgs and do whatever in the OnLoad event.

[RuralGuy]

Here's a couple of links that might offer some insite into what you are trying to achieve.
http://allenbrowne.com/ser-62.html
http://allenbrowne.com/AppFindAsUType.html