Access窗体筛选查询功能不能实现
作了1个窗体,想实现筛选功能,但出现提示“Microsoft Access不能找到表达式中引用的字段”Q01_ItemMaster_Factory_ItemQ"
使用的是Access2000
请求各位高手紧急救援!
Private Sub Search_Click()
Dim DBS As Database, strSQL As String
Dim strWHERE As String, frmF01 As Form
'On Error GoTo Error_Handler
strWHERE = ""
If Not IsNull([Text104]) Then
strWHERE = "[Factory_Name] Like '" & [Text104] & "'"
End If
If strWHERE = "" Then
Me!Q01_ItemMaster_Factory_ItemQ.Form.RecordSource = "SELECT * FROM Q01_ItemMaster_Factory_ItemQ ;"
Else
Me!Q01_ItemMaster_Factory_ItemQ.Form.RecordSource = "SELECT * FROM Q01_ItemMaster_Factory_ItemQ WHERE " _
& strWHERE & ";"
End If
Q01_ItemMaster_Factory_ItemQ.Requery
Exit_Sub:
DoCmd.Hourglass False
Exit Sub
'Error_Handler:
'MsgBox Err.Description
'Resume Exit_Sub
End Sub