Good Afternoon,

I watched Combo search video https://www.youtube.com/watch?v=vS2ZlUKu26A&t=0s and I get the below error. and get the attached error.  Below is the code I used.  Thank you

Code:
Private Sub AddToFilter(FilterComboName As String)

    If IsNull(Me(FilterComboName)) Then Exit Sub
    If TempVars("Filter") <> "" Then TempVars("Filter") = TempVars("Filter") & " AND "
    TempVars("Filter") = TempVars("Filter") & Left(FilterComboName, Len(FilterComboName) - 6) & "=""" & Me(FilterComboName) & """"
    
    

End Sub
Private Function UpdateFilter()

    Dim C As Control
    
    TempVars("Filters") = ""
    For Each C In Me.Controls
      If C.ControlsType = acComboBox Then
        If Right(C.Name, 6) = "Filter" Then AddToFilter C.Name
      End If
    Next
    Me.Filter = TempVars("Filter")
    Me.FilterOn = (TempVars("Filter") <> "")

End Function

I added =UpdateFilter() to AfterUpdate property.