Here is another method that work very well....
1) Set the default value of the check box to TRUE
2) In the after update event of the check box,
Code:
Private Sub Admin_Check_AfterUpdate()
Me.Requery
End Sub
3) In the form open event,
Code:
Private Sub Form_Open(Cancel As Integer)
Me.Requery
End Sub
4) In a blank column of your query, enter:
Code:
expr1: IIf([Forms]![frm_Report_Filter_Form]![Admin_Check], True, IIf([AccountNo] Between 64690 And 64698, False, True))
5) Uncheck the SHOW check mark
6) In the criteria of the new column, enter TRUE