'отфильтровать: поле 'FieldName' формы [FormName] = 1
[Forms]![FormName].Filter = "FieldName = " & 1
[Forms]![FormName].FilterOn = True