Here is a quick way to do a wildcard match on a number field using a simple query command.  Either put this code
in the open event on your form or on a button.  This code works on an employee table and you could define the Level 
variable value any number of ways.  In this case, if Level = 2 then when the query runs it displays all employees, if not
the query only displays those that are in DeptID = 23.

Dim Level
Dim DeptID
Dim RecSel
DeptID = 23
Level = 1

If Level = 2 Then
RecSel = " like '*'"
Else
RecSel = " = " & DeptID

End If

sql = "SELECT Employees.ID, Employees.ProjectNum, Employees.Date, Employees.Description FROM Employees 
WHERE (((Employees.ID)" & RecSel & ")); "
Form.RecordSource = sql