在主窗体上设置一个“条件”框，当输入条件时，按输入逐字筛选子窗体里的某字段符合条件的数据。代码如下－－

If IsNull(Me.条件.Text) = True Then
  Me.子窗体.Form.Filter = ""
  Me.子窗体.Form.FilterOn = False
Else
Me.子窗体.Form.Filter = "[子窗体字段名] Like '*" & Me.条件.Text & "*'"
Me.子窗体.Form.FilterOn = True
End If

        这段代码应该在“条件”框的“键释放”事件里。