搜索功能中的语法错误

Question

我找到了这个搜索函数代码并按照说明进行操作，但我收到一个语法错误，指出表达式中缺少运算符，而且我找不到错误所在。这是错误所在：

Me.RecordsetClone.FindFirst "dateassigned" _
& Chr(34) & "*" & Me.txtSearch & "*" & Chr(34)

代码如下：

Dim bkmk As Variant
Dim strField As String
Me.RecordsetClone.MoveFirst

Me.RecordsetClone.FindFirst "dateassigned" _
& Chr(34) & "*" & Me.txtSearch & "*" & Chr(34)

If Me.RecordsetClone.NoMatch Then
    MsgBox "No Match"
Else
    bkmk = Me.RecordsetClone.Bookmark
    Me.Recordset.Bookmark = bkmk
End If

谢谢！

Answer 1

此处您的行需要改为：

Me.RecordsetClone.FindFirst "dateassigned LIKE " _
& Chr(34) & "*" & Me.txtSearch & "*" & Chr(34)

您必须包含您的比较运算符 (LIKE)，以及一些额外的空格才能使您的查找生效。

搜索功能中的语法错误

Syntax error in Search function

ms-access

vba

ms-access-2010