微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

执行时返回“找不到文件”的SQL语句

如何解决执行时返回“找不到文件”的SQL语句

在我的代码中,我试图使用输入框将用户输入的值保存为字符串,然后使用sql来更新基于该字段的字段。

我的代码是:


Dim strinput
Dim strsql

Call CreateRevisions

    strinput = InputBox(prompt:="Name of revision")
    
        If Not IsNull(strinput) Then
            'DoCmd.SetWarnings False
            strsql = " UPDATE tblJobDetails.RevisionName"
            strsql = strsql & " SET tblJobDetails.RevisionName = '" & strinput & "'"
            strsql = strsql & " WHERE (((tblJobDetails.JobID)=[Forms]![JobQuote]![JobID]));"
            'DoCmd.Runsql strsql
            CurrentDb.Execute strsql
            'docmd.setwarnings true
        End If
End Sub

运行时,我得到提示,即将更新字段,然后出现输入框并允许我输入内容。我检查了strinput的值,并正确地保存了该值,但是当我尝试实际执行sql语句时,可能会遇到一个我从未遇到过的有趣错误

错误是:

Run-time error '3024':
Could not find file 'C\....

我之前已经运行了各种类似的语句,没有问题。但是,这是我第一次尝试使用输入框。是什么导致该错误

我尝试将其更改为docmd添加debug.print,但是仍然会导致相同的错误

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。