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
联系客服