1

我有一个搜索表单，其中有一个子表单。

我不断收到运行时错误 '3075': Syntax error(missing operator) in query expression '[MC_No] like ' ' [Customer] like ' ' [Date_Recorded] = #23/11/2016# AND [Product] like ' *”。

任何人都可以识别我的错误吗？我检查了每一行。也许我错过了什么。

这些是我的代码

Private Sub Search_Click()

Dim strDatePicker As String
Dim cboMC As String
Dim strProduct As String
Dim cboCustomer As String
Dim sql As String

sql = "select * FROM 3_OEE WHERE "

If IsDate(Me.DatePicker) Then
strDatePicker = " [Date_Recorded] = #" & DateValue(Me.DatePicker) & "#"
Else
strDatePicker = " [Date_Recorded] like '*'"
End If

If IsNull(Me.MC_No) Then
cboMC = " [MC_No] like '*'"
Else
cboMC = " [MC_No] like '" & Me.MC_No & "'"

If IsNull(Me.Customer) Then
cboCustomer = " [Customer] like '*'"
Else
cboCustomer = " [Customer] = '" & Me.Customer & "'"
End If

Me.subfrmOEE.Form.RecordSource = sql (*Error highlights this code*)
Me.subfrmOEE.Form.Requery
4

1 回答 1

0

在出现错误的那一行，您的变量sql与您第一次声明它时的变量相同，即："select * FROM 3_OEE WHERE "。

这不是一个有效的查询。您需要WHERE从该查询的末尾删除或将sql查询语句的其余部分附加到变量（换句话说，将WHERE条件添加到查询的末尾）。

于 2020-09-10T10:46:47.257 回答