兄弟，你这个问题的核心是SQL语句语法写错了，而且Access的报错还挺误导人——3024说“找不到文件”，其实根本不是文件路径的问题，是你的UPDATE语句开头就犯了语法错误！

先看你写的SQL开头：

strsql = " UPDATE tblJobDetails.RevisionName"

这是完全错误的写法：UPDATE关键字后面应该直接跟表名，而不是表名.字段名。你把字段名错误地放到了UPDATE的目标位置，导致Access无法正确解析SQL语句，进而抛出了偏离实际问题的“找不到文件”错误。

另外还有个潜在的坑：如果用户输入的字符串包含单引号（比如O'Neil），直接拼接SQL会触发新的语法错误，所以得对输入里的单引号做转义处理（把单个单引号替换成两个单引号）。

修正后的代码 #

Dim strinput As String
Dim strsql As String
Call CreateRevisions
strinput = InputBox(prompt:="Name of revision")
' 同时检查空字符串和Null，避免执行无意义的更新
If strinput <> "" Then
    ' 转义输入中的单引号，防止SQL语法崩溃
    Dim safeInput As String
    safeInput = Replace(strinput, "'", "''")
    
    ' 正确构造UPDATE语句
    strsql = " UPDATE tblJobDetails "
    strsql = strsql & " SET RevisionName = '" & safeInput & "' "
    strsql = strsql & " WHERE JobID = [Forms]![JobQuote]![JobID];"
    
    ' 加上dbFailOnError参数，出错时能拿到更精准的报错信息
    CurrentDb.Execute strsql, dbFailOnError
End If
End Sub

额外补充说明 #

1. 为什么之前类似语句没问题？因为你之前的UPDATE语句语法是正确的，这次误把字段名写到了UPDATE的表位置，才触发了这个奇怪的报错。
2. 加上dbFailOnError参数后，要是再出问题，Access会抛出更贴合实际的错误提示，方便你快速排查。
3. 检查输入时除了IsNull，还要判断是否是空字符串——毕竟用户可能直接点确定，输入空内容，这种情况没必要执行更新。

内容的提问来源于stack exchange，提问作者Tmyers