MS访问搜索表格查询

Question

我是访问的新手，并且需要在2016年访问中提供多文本框搜索表格。我的表单有6个字段，用户可以在其中输入数据以获取搜索结果。。用户需要有选项将一个或多个字段中的搜索参数输入以获取结果。我们在人们喜欢的2003年访问数据库中也有类似的形式。我尝试从Access 2003数据库复制和更新代码，但是我似乎无法在2016年数据库中工作。我花了数周的时间寻找答案，并且完全损失了。

以下代码是我从访问2003数据库中复制的内容，并为当前数据库进行了更新：

Private Sub cmdWCSearch_Click()
Dim strsql As String
strsql = "SELECT * FROM qryWCSearch WHERE ID > 0"
If Not IsNull(Me.WCLastName) Then
strsql = strsql & "And [WCLastName] Like '*" & Me.WCLastName & "*'"
End If
If Not IsNull(Me.WCDOI) Then
strsql = strsql & "And [WCDOI] Like '*" & Me.WCDOI & "*'"
End If
If Not IsNull(Me.WCWorkStatus) Then
strsql = strsql & "And [WCWorkStatus] Like '*" & Me.WCWorkStatus & "*'"
End If
If Not IsNull(Me.WCClaimNumber) Then
strsql = strsql & "And [WCClaimNumber] Like '*" & Me.WCClaimNumber & "*'"
End If
If Not IsNull(Me.WCBodyPart) Then
strsql = strsql & "And [WCBodyPart] Like '*" & Me.WCBodyPart & "*'"
End If
If Not IsNull(Me.WCClaimStatus) Then
strsql = strsql & "And [WCClaimStatus] Like '*" & Me.WCClaimStatus & "*'"
End If
End Sub

在查询中，我在标准下具有Like "*" & [Forms]![WelcomePage]![WCLastName] & "*" Or ([Forms]![WelcomePage]![WCLastName] Is Null)。

每当我运行搜索时，我会收到一条错误消息，说"当事件属性设置产生以下错误时，单击您输入的表达式：在Microsoft Access与Ole Server或ActiveX Controls通信时发生了问题。"

任何帮助使此工作的任何帮助将不胜感激！

Answer 1

您需要在所有面前的空间"one_answers" S：

If Not IsNull(Me.WCLastName) Then
    strsql = strsql & " And [WCLastName] Like '*" & Me.WCLastName & "*'"
End If