Hello All:
I've pinpointed the problem, I think. Question now: How do I get
the following to filter for both integers and text?
Private Sub Form_Open(Cancel As Integer)
> > DoCmd.OpenReport "rptAtlClientList", A_PREVIEW 'Open Atlanta
> > Client List Report.
> > DoCmd.Maximize 'Maximize the report window.
> > End Sub
> >
> > Private Sub Set_Filter_Click()
> > Dim strSQL As String, intCounter As Integer
> > ' Build SQL String.
> > For intCounter = 1 To 9
> > If Me("Filter" & intCounter) <> "" Then
> >
> > strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag
> > & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34)
& "
> > And "
> > End If
> > Next
> >
> > If strSQL <> "" Then
> > ' Strip Last " And ".
> > strSQL = Left(strSQL, (Len(strSQL) - 5))
> > ' Set the Filter property.
> > Reports![rptAtlClientList].Filter = strSQL
> > Reports![rptAtlClientList].FilterOn = True
> > End If
> > End Sub
> > _________________________________________________
> >
> > Lynn in GA
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ms_access/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
