如何更新此代码而不出现运行时间错误 3075？

Question

我创建了一个表单，员工可以在其中按姓名或 ID 搜索客户。我正在尝试添加 select 复选框和 "Customer Types/Opportunity Types" 的功能，以进一步过滤搜索结果。我收到运行时间错误 3075 感谢任何帮助。

Private Sub btnSearch_Click()

'Code to show results based on keyword entered and checkbox selected

    Dim strSearch As String
    Dim strText As String
    Dim NewBuild As String
    Dim Winback As String
    Dim Renewal As String

    If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
    MsgBox "You must enter a Name or ID to search!", vbOKOnly, "Keyword Needed"
    Me.txtSearch.SetFocus

    Else

    If Me.chkNewBuild = True Then
        NewBuild = "New Build"
    End If

    If Me.chkWinback = True Then
        Winback = "Winback"
    End If

    If Me.chkRenewal = True Then
        Renewal = "Renewal"
    End If

    strText = txtSearch.Value
    strSearch = "SELECT * FROM qryPropertiesALL " _
    & "WHERE ((([OpportunityType] = " _
    & NewBuild & ")or ([OpportunityType] = " _
    & Winback & ") or ([OpportunityType] = " _
    & Renewal & ") AND (PropertyName like ""*" & strText & "*"") or (Property_ID like ""*" & strText & "*"")))"
    Me.RecordSource = strSearch


    End If

End Sub

Answer 1

试试这个：

Private Sub btnSearch_Click()

'Code to show results based on keyword entered and checkbox selected

    Dim strSearch As String
    Dim strText As String
    Dim NewBuild As String
    Dim Winback As String
    Dim Renewal As String

    If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
    MsgBox "You must enter a Name or ID to search!", vbOKOnly, "Keyword Needed"
    Me.txtSearch.SetFocus

    Else

    If Me.chkNewBuild = True Then
        NewBuild = "New Build"
    End If

    If Me.chkWinback = True Then
        Winback = "Winback"
    End If

    If Me.chkRenewal = True Then
        Renewal = "Renewal"
    End If

    strText = txtSearch.Value
    strSearch = "SELECT * FROM qryPropertiesALL " _
    & "WHERE OpportunityType = '" _
    & NewBuild & "' or OpportunityType = '" _
    & Winback & "' or OpportunityType = '" _
    & Renewal & "' AND PropertyName like '" & strText & "' or Property_ID like '" & strText & "'"

    Me.RecordSource = strSearch

    End If

End Sub

如何更新此代码而不出现运行时间错误 3075？

How do I update this code and not get Run Time Error 3075?

error-handling

ms-access

vba

runtime

如何更新此代码而不出现 运行 时间错误 3075？

How do I update this code and not get Run Time Error 3075?

error-handling

ms-access

vba

runtime

如何更新此代码而不出现运行时间错误 3075？