此段代码用于从文本框筛选子窗体内容

Private Sub Text2_Change()
    Dim strWhere As String
    strWhere = Trim$(Me.Text2.Text)
    If Len(strWhere) > 0 Then
        strWhere = " WHERE [供应商] & [供应商电话] & [供应商传真] & [电话] & [传真] & [地址] & [联系人] & [经营项目] Like '*" & strWhere & "*'"
    End If
    a = "SELECT * FROM 供应商资料表" & strWhere
   Me.Child6.Form.RecordSource = a

End Sub