Subform Filter Kevin76 26.09.2006 22:03:02 I have a search form that when searched opens a subform in the bottom with the results of the search. I have many parameters to search by in the event procedure of the on click function of the actual search button. In the below code all the parameter searches work except the "If Assigned To" parameter of "Issues.[Company] = " & Me.AssignedTo & "'" I get the run time error 2448 You can not assign a value to this object. When I debug it highlights the second to bottom line of code in yellow Me.Browse_All_Issues1.Form.Filter = strWhere Please review the below code and let me know what I am missing. Private Sub Search_Click() Const cInvalidDateError As String = "You have entered an invalid date." Dim strWhere As String Dim strError As String strWhere = "1=1" ' If Assigned To If Not IsNull(Me.AssignedTo) Then 'Create Predicate strWhere = strWhere & " AND " & "Issues.[Company] = " & Me.AssignedTo & "'" End If ' If Opened By If Not IsNull(Me.OpenedBy) Then 'Add the predicate strWhere = strWhere & " AND " & "Issues.[Opened By] = " & Me.OpenedBy & "" End If ' If Opened By If Not IsNull(Me.TicketNumber) Then 'Add the predicate strWhere = strWhere & " AND " & "Issues.[ID] = " & Me.TicketNumber & "" End If ' If Status If Nz(Me.Status) <> "" Then 'Add it to the predicate - exact match strWhere = strWhere & " AND " & "Issues.Status = '" & Me.Status & "'" End If ' If Category If Nz(Me.Category) <> "" Then 'Add it to the predicate - exact match strWhere = strWhere & " AND " & "Issues.Category = '" & Me.Category & "'" End If ' If Priority If Nz(Me.Priority) <> "" Then 'Add it to the predicate - exact match strWhere = strWhere & " AND " & "Issues.Priority = '" & Me.Priority & "'" End If ' If Branch Manager If Nz(Me.BranchManager) <> "" Then ' Add it to the predicate - match on leading characters strWhere = strWhere & " AND " & "Issues.BranchManager Like '*" & Me.BranchManager & "*'" End If ' If Opened Date From If IsDate(Me.OpenedDateFrom) Then ' Add it to the predicate - exact strWhere = strWhere & " AND " & "Issues.[Opened Date] >= " & GetDateFilter(Me.OpenedDateFrom) ElseIf Nz(Me.OpenedDateFrom) <> "" Then strError = cInvalidDateError End If ' If Opened Date To If IsDate(Me.OpenedDateTo) Then ' Add it to the predicate - exact strWhere = strWhere & " AND " & "Issues.[Opened Date] <= " & GetDateFilter(Me.OpenedDateTo) ElseIf Nz(Me.OpenedDateTo) <> "" Then strError = cInvalidDateError End If ' If Title If Nz(Me.Title) <> "" Then ' Add it to the predicate - match on leading characters strWhere = strWhere & " AND " & "Issues.Title Like '*" & Me.Title & "*'" End If If strError <> "" Then MsgBox strError Else 'DoCmd.OpenForm "Browse Issues", acFormDS, , strWhere, acFormEdit, acWindowNormal If Not Me.FormFooter.Visible Then Me.FormFooter.Visible = True DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height End If Me.Browse_All_Issues1.Form.Filter = strWhere Me.Browse_All_Issues1.Form.FilterOn = True End If End Sub

Re: Subform Filter Marshall Barton <marshbarton[ at ]wowway.com> 27.09.2006 03:56:21 That line is appending an extraneous apostrophe to the end of the string. Why you feel the need to cancatenate an empty string to the end of those lines is beyobd me. This should be shorter, easier to read, more efficient and produce the same result: strWhere = strWhere & " AND Issues.ID = " & Me.TicketNumber I don't relate to that error message, perhaps it's because the filter has invalid syntax. -- Marsh MVP [MS Access] Kevin76 wrote: [Quoted Text] >I have a search form that when searched opens a subform in the bottom with >the results of the search. I have many parameters to search by in the event >procedure of the on click function of the actual search button. In the below >code all the parameter searches work except the "If Assigned To" parameter of > > "Issues.[Company] = " & Me.AssignedTo & "'" > >I get the run time error 2448 You can not assign a value to this object. >When I debug it highlights the second to bottom line of code in yellow > Me.Browse_All_Issues1.Form.Filter = strWhere > >Please review the below code and let me know what I am missing. > >Private Sub Search_Click() > Const cInvalidDateError As String = "You have entered an invalid date." > Dim strWhere As String > Dim strError As String > > strWhere = "1=1" > > ' If Assigned To > If Not IsNull(Me.AssignedTo) Then > 'Create Predicate > strWhere = strWhere & " AND " & "Issues.[Company] = " & >Me.AssignedTo & "'" > End If [snip the ones that work]