6

我遇到了运行时错误“3075”。我是VBA的新手！>.< 我能知道哪里出错了吗？我解决不了...

例如，如果我在文本框 (txtMainName) 中输入名称“Sally”，则在单击搜索按钮时会弹出错误。

错误：

运行时错误“3075”：

查询表达式中的语法错误（缺少运算符）“和 [主申请人姓名] 像 'Sally'”。

Public Sub Search_Record()

Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String
Dim stLinkCriteria2 As String


    stLinkCriteria = ""
    stDocName = "frmDisplayInfo"

    If (Me!txtMainName <> "") Then
        stLinkCriteria1 = "[Main Applicant Name] Like ' " & Me![txtMainName] & "'"
        stLinkCriteria = stLinkCriteria & " And " & stLinkCriteria1
    End If

    If (Me!txtIDNo <> "") Then
        stLinkCriteria2 = "[ID No] Like ' " & Me![txtIDNo] & "'"
        stLinkCriteria = stLinkCriteria & " And " & stLinkCriteria2
    End If

    '(*This part is highlighted*)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Maximize

End Sub
4

3 回答 3

7

Runtime error 3975是Invalid operator，根据一个快速的谷歌搜索access vba runtime error 3075（你可以自己做）。

问题是您只分配了""to的值stCriteria。如果第一个if语句执行，stCriteria则分配 的值stCriteria AND stCriteria1，这是无效的。

if如果执行第二条语句，也会发生同样的事情。（实际上，如果两者都实际运行，则stCriterianow contains AND stCriteria1 AND stCriteria2，这就更糟了。）

解决方案是修改您的代码以仅在AND需要时添加：

stLinkCriteria = ""
stDocName = "frmDisplayInfo"

If (Me!txtMainName <> "") Then
    stLinkCriteria = "[Main Applicant Name] Like ' " & Me![txtMainName] & "'"
End If

If (Me!txtIDNo <> "") Then
    If stLinkCriteria <> "" then
        stLinkCriteria = stLinkCriteria & " AND "
    End If
    stLinkCriteria2 = "[ID No] Like ' " & Me![txtIDNo] & "'"
    stLinkCriteria = stLinkCriteria & " And " & stLinkCriteria2
End If

为了将来参考，解决这类问题的方法是在stCriteria导致错误的行（这里是DoCmd.OpenForm行）执行之前实际检查变量的值（在这种情况下）。为此，您可以在发生错误的行上设置断点，运行您的应用程序直到遇到断点，然后检查变量的值。这会准确地向您显示变量包含的内容，这可以揭示问题。

于 2012-12-28T03:45:57.380 回答
3

从逻辑上看，您的 stLinkCriteria 似乎以“and”开头，这导致了错误：

你可能应该把：

If (Me!txtMainName <> "") Then

    stLinkCriteria1 = "[Main Applicant Name] Like ' " & Me![txtMainName] & "'"

    if stLinkCriteria <> "" then                   <==== add this

       stLinkCriteria = stLinkCriteria & " and "   <==== and this

    end if                                         <==== and this

    stLinkCriteria = stLinkCriteria & stLinkCriteria1  <=== change this

End If

希望可行 - 否则，逻辑看起来不错。

于 2012-12-28T04:02:27.627 回答
0

我从点和字段名称之间的额外空格中收到此错误：

DoCmd.RunSQL "UPDATE  cp  INNER JOIN [char_lib] ON [cp]. [library_id]  = [char_lib].[id] set..

微软注意：请创建更精确和有用的错误消息。谢谢。我毫不怀疑你会做对的。

于 2014-12-25T20:31:48.997 回答