Hi i have a subform that is a datasheet view and i want to filter the records that have "Adam" as the value plus the records that are blank in the same field.
Private Sub Check45_Click()
If Me.Check45.Value = True Then
Me.NotEmptySubform.Form.Filter = "CTGOPP = 'Adam'" Or CTGOPP IsNull
Me.NotEmptySubform.Form.FilterOn = True
Me.NotEmptySubform.Form.Requery
Else
Me.NotEmptySubform.Form.FilterOn = False
Private Sub Check45_Click()
If Me.Check45.Value = True Then
Me.NotEmptySubform.Form.Filter = "CTGOPP = 'Adam'" Or CTGOPP IsNull
Me.NotEmptySubform.Form.FilterOn = True
Me.NotEmptySubform.Form.Requery
Else
Me.NotEmptySubform.Form.FilterOn = False