Help with (Example Filtering on a Form).

[Cat123]

Hi,

I've tried using this following code but I keep getting the following error:

Runtime Error 2448
You can't assign a value to this object.

Do you know what the problem may be?

CHAPTER 5 - FORM MODULE

Option Compare Database
Option Explicit
 
Private Sub txtFindAccountCode_AfterUpdate()
    Call CheckFilter
End Sub
 
Private Sub txtFindCreationDate_AfterUpdate()
    Me!txtFindCreationDate = IIf(IsDate(Me!txtFindCreationDate), _
                                 Format(Me!txtFindCreationDate, "d mmm yyyy"), _
                                 "")
    Call CheckFilter
End Sub
 
Private Sub cboFindAccountType_AfterUpdate()
    Call CheckFilter
End Sub
 
'CheckFilter produces the new Filter depending on the values currently in
'txtFindAccountCode, txtFindCreationDate & cboFindAccountType.
Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
 
    strOldFilter = Me.Filter
    'txtFindAccountCode - Text
    If Me!txtFindAccountCode > "" Then _
        strFilter = strFilter & _
                    " AND ([AccountCode] Like '" & _
                    Me!txtFindAccountCode & "*')"
    'txtFindCreationDate - Date
    If Me!txtFindCreationDate > "" Then _
        strFilter = strFilter & _
                    " AND ([CreationDate]=" & _
                    Format(CDate(Me!txtFindCreationDate), _
                           "\#m/d/yyyy\#") & ")"
    'cboFindAccountType - Numeric
    If Me!cboFindAccountType > "" Then _
        strFilter = strFilter & _
                    " AND ([AccountType]=" & _
                    Me!cboFindAccountType & ")"
    'Debug.Print ".Filter = '" & strOldFilter & "' - ";
    'Debug.Print "strFilter = '" & strFilter & " '"
    'Tidy up results and apply IF NECESSARY
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
    End If
End Sub

[NeoPa]

In the article itself (Example Filtering on a Form) is not the place to start a discussion or a question so I've moved your post as a question to the Access Forum.

I will try to get to this sometime today to see if I can answer your question.

[NeoPa]

Having now looked at your question it seems you want me to debug your code without even letting me know where your error occurred. The error message helps - but without the line of code it appears in it doesn't mean much

Please provide the information I need so that I can try to help you.

[Cat123]

My apologies. The error occurs on Line 46

Me.Filter = strFilter

Having now looked at your question it seems you want me to debug your code without even letting me know where your error occurred. The error message helps - but without the line of code it appears in it doesn't mean much

Please provide the information I need so that I can try to help you.

[NeoPa]

I was being Naive - I thought you'd posted your code.
I will need the code you're using as well as the line number the error occurrs on. We'll get there I'm sure - I just need the question.

*Edit - You're using the original code directly?

[Cat123]

I was being Naive - I thought you'd posted your code.
I will need the code you're using as well as the line number the error occurrs on. We'll get there I'm sure - I just need the question.

Here's the code I used.....

Private Sub cboFindTL_AfterUpdate()
    Call CheckFilter
End Sub
 
Private Sub cboFindSurname_AfterUpdate()
    Call CheckFilter
End Sub
 
Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
 
     strOldFilter = Me.Filter
 
    If Me!cboFindSurname > "" Then _
        strFilter = strFilter & _
                   " AND ([Surname] Like '" & _
                     Me!cboFindSurname & "*')"
 
 
    If Me!cboFindTL > "" Then _
        strFilter = strFilter & _
                    " AND ([Team Leader]=" & _
                    Me!cboFindTL & ")"
 
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
    End If
End Sub

[NeoPa]

If you can confirm that the error occurred on line #27 then I can look at it in more detail.

[Cat123]

I'm getting the error on line 27
Me.Filter = strFilter

Here's the code I used.....

Private Sub cboFindTL_AfterUpdate()
    Call CheckFilter
End Sub
 
Private Sub cboFindSurname_AfterUpdate()
    Call CheckFilter
End Sub
 
Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
 
     strOldFilter = Me.Filter
 
    If Me!cboFindSurname > "" Then _
        strFilter = strFilter & _
                   " AND ([Surname] Like '" & _
                     Me!cboFindSurname & "*')"
 
 
    If Me!cboFindTL > "" Then _
        strFilter = strFilter & _
                    " AND ([Team Leader]=" & _
                    Me!cboFindTL & ")"
 
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
    End If
End Sub

[Cat123]

Hi,

When debugging if I hoover over the variable strFilter on line 26 I can see that it has an actual valid string. But on line 27 it just doesn't seem to want to assign that string to the form.filter property. Does this help at all?

I'm getting the error on line 27
Me.Filter = strFilter

[NeoPa]

What type of field is [Team Leader]?
Is Me!cboFindTL of the same type?

[NeoPa]

Hi,

When debugging if I hoover over the variable strFilter on line 26 I can see that it has an actual valid string. But on line 27 it just doesn't seem to want to assign that string to the form.filter property. Does this help at all?

That does help and confirms my fear that this is not a code issue as much as a design issue. I can't imagine why this might happen I'm afraid.

Have you downloaded the example DB and seen if that works on your system?

PS. Ignore questions in earlier post as this info takes us past there.