Filter on a form true/false/neither

Private Sub txt_Toggle_Records_Click()
On Error GoTo Err_Handler

[COLOR="DarkGreen"]'Form opens filtered for All Active records

'txt_Toggle_Records is configured as a pseudo button _
to allow formatting of back colour and caption etc and _
cycles through Current, Active & Archived Projects

'txt_Check_Toggle is an unbound text box with a default value of "0" _
and formatted as hidden (Visible = No)

'Select case checks the contents of txt_Check_Toggle _
and runs the appropriate code

'Archive is a Boolean field in the underlying underlying table _
and is included in the query the form is based on without any _
criteria set.[/COLOR]
    Select Case [txt_Toggle_Count]

'Current records = all records not marked as 'Archive'
    Case "0"
        Me!txt_Toggle_Records.Caption = "Current Projects"
        Me!txt_Toggle_Records.BackColor = 10485760      [COLOR="darkgreen"]'Dark Blue[/COLOR]
        Me.txt_Toggle_Count = "1"             [COLOR="DarkGreen"]'Increment the counter[/COLOR]
        Me.FilterOn = True
        Me.Filter = "[Archive]=No"
        Call Sort_Records
 
[COLOR="darkgreen"]'Archive records = all records marked as 'Archive'[/COLOR]
    Case "1"
        Me!txt_Toggle_Records.Caption = "Archived Projects"
        Me!txt_Toggle_Records.BackColor = 16757657      [COLOR="DarkGreen"]'Light Blue[/COLOR]
        Me.txt_Toggle_Count = "2"      [COLOR="DarkGreen"]'Increment the counter[/COLOR]        
        Me.FilterOn = True
        Me.Filter = "[Archive]=Yes"
        Call Sort_Records
  
[COLOR="darkgreen"]'Active projects = records not marked "Archive" or in Pases: "CA", "CO" or "RA"[/COLOR]
    Case Else             [COLOR="darkgreen"]'If counter in not 0 or 1[/COLOR]
        Me!txt_Toggle_Records.Caption = "Active Projects"
        Me!txt_Toggle_Records.BackColor = 5788922       [COLOR="DarkGreen"]'Red[/COLOR]
        Me.txt_Toggle_Count = "0"    [COLOR="DarkGreen"]'Reset the counter[/COLOR]        
        Call Active_Projects_Filter     [COLOR="DarkGreen"]'Filter that the form opens with[/COLOR]
        Call Sort_Records
  
    End Select

Exit_Here:
    Exit Sub

Err_Handler:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Here
    
End Sub

Private Sub txt_Toggle_Records_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me!txt_Toggle_Records.SpecialEffect = 2 [COLOR="darkgreen"]'Create the button click effect[/COLOR]
End Sub

Private Sub txt_Toggle_Records_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me!txt_Toggle_Records.SpecialEffect = 1 [COLOR="darkgreen"]'Create the button click effect[/COLOR]
End Sub