Hello Friends!
I have an Excel Spreadsheet acting as a Tbl for my "TVDB" by being
linked. I have a form that will filter the TEXT data, but I'm
having trouble when the search is performed on a field that captures
NUMBERS. Since it's a linked table, I can't change the data type on
on the Tbl Properties. NOTE: All number capturing fields are
listed as "Number" in the Table Properties. They are also
designated as a "Number" in the Excel Spreadsheet.
I'm wondering if the trouble is with my Filter Form code conflicting?
These fields pull up fine and dandy on the Query that runs the
report that is filtered. They also show up on the report when it is
filtered by a TEXT field. Soooooo, by default I'm guessing the
Filter Form must be where the problem is coming from. The Row
Source property for one of the filter boxes is:
SELECT DISTINCT QryALLAtlClientList.[Proj # of Annual Visits] FROM
QryALLAtlClientList;
(Tag has: Proj # of Annual Visits)
The name of the box is "Filter7"
My Event Procedures for the Filter Form are as follows....is this
somehow saying it won't take numbers? And if this is the problem,
how can I fix it???? Any help is greatly appreciated....
Private Sub Clear_Click()
Dim intCounter As Integer
For intCounter = 1 To 6
Me("Filter" & intCounter) = ""
Next
End Sub
_______________________________________________
Private Sub Close_Click()
DoCmd.Close acForm, Me.Form.Name
End Sub
_______________________________________________
Private Sub Form_Close()
DoCmd.Close acReport, "RptAtlClientList" 'Close the Report.
DoCmd.Restore 'Restore the window size.
End Sub
_______________________________________________
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/
