Do away with the filter. Just alter the form's recordsource with the combobox value:
Code:
Private Sub Combo113_AfterUpdate()
Me.RecordSource = "Select * from CombinedStandardsT Where ConstructionType = '" & Combo113 & "'"
' Me.Combo113.SetFocus
' Me.FilterOn = False
' Me.Filter = "[SearchStructure] Like '*" & Combo113 & "*'"
' Me.FilterOn = True
' Me.Requery
End Sub
Then the Clear button code would be:
Code:
Private Sub Command41_Click()
Me.RecordSource = "Select * from CombinedStandardsT"
'DoCmd.ShowAllRecords
'Me.Find21.SetFocus
Me.Find21 = ""
Me.Check105 = ""
Me.Check107 = ""
Me.Check111 = ""
Me.Combo113 = ""
End Sub