Im not sure what access does when checkmarking something and in the same code checking if the checkmark is checked, you follow me ?
I cant test it because im not at work but try this :
Code:
Private Sub chkRetired_Click()
If me.chkRetired = true then
Dim strFilter As String
Dim blnFilter As Boolean
blnFilter = False
strFilter = " 1=1 "
strFilter = strFilter + " and Dateretired <> 0"
blnFilter = True
If blnFilter Then
Me.Filter = strFilter
Else
Me.Filter = "1=2"
End If
Me.FilterOn = True
else
Dim strFilter As String
Dim blnFilter As Boolean
blnFilter = False
strFilter = " 1=1 "
strFilter = strFilter + " and isNull(Dateretired) "
blnFilter = True
If blnFilter Then
Me.Filter = strFilter
Else
Me.Filter = "1=2"
End If
End if
End Sub