Hi All: Was anyone able to help me out with this? I didn't see any responses......
Lynn in GA --- In [email protected], "Lynn" <[EMAIL PROTECTED]> wrote: > > 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/
