Access更新匹配Environ Username的多条记录报3078错误如何解决？

• 方法使用错误：OpenRecordset 仅用于执行返回记录集的SELECT类查询，UPDATE是不返回结果集的动作查询，不能用该方法执行，这是触发3078报错的核心原因
• SQL语法错误：UPDATE语句不需要加*通配符，正确语法结构为UPDATE 表名 SET 字段=更新值 WHERE 筛选条件
• 常量引用错误：你要更新的状态值是字符串"Completed"，代码中直接写& Completed &会被识别为未定义的变量，拼接后SQL的状态值会出现异常
• 结果判断逻辑错误：动作查询无返回记录集，用rs.EOF判断是否匹配到记录完全无效

基础可用版本 #

Private Sub Command1_Click()
    Dim db As DAO.Database
    Dim strSQL As String
    Dim strUserName As String
    
    Set db = CurrentDb
    ' 提前获取用户名，避免多次调用Environ
    strUserName = Environ("Username")
    ' 转义用户名中的单引号，避免SQL语法错误
    strUserName = Replace(strUserName, "'", "''")
    ' 构造正确的UPDATE语句
    strSQL = "UPDATE Upload_Report SET Status = 'Completed' WHERE Analyst = '" & strUserName & "'"
    
    ' 执行动作查询
    db.Execute strSQL, dbFailOnError
    
    ' 通过RecordsAffected判断更新行数
    If db.RecordsAffected > 0 Then
        MsgBox "成功更新" & db.RecordsAffected & "条记录！", vbInformation
    Else
        MsgBox "未找到匹配的记录", vbExclamation
    End If
    
    Set db = Nothing
End Sub

优化版（参数化查询，避免特殊字符导致的语法错误） #

如果用户名存在单引号等特殊字符，使用参数化查询稳定性更高：

Private Sub Command1_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    
    Set db = CurrentDb
    ' 带参数的SQL模板
    strSQL = "PARAMETERS pUserName TEXT(255), pStatus TEXT(20); " & _
             "UPDATE Upload_Report SET Status = pStatus WHERE Analyst = pUserName"
    
    Set qdf = db.CreateQueryDef("", strSQL)
    ' 赋值参数
    qdf!pStatus = "Completed"
    qdf!pUserName = Environ("Username")
    ' 执行查询
    qdf.Execute dbFailOnError
    
    If qdf.RecordsAffected > 0 Then
        MsgBox "成功更新" & qdf.RecordsAffected & "条记录！", vbInformation
    Else
        MsgBox "未找到匹配的记录", vbExclamation
    End If
    
    Set qdf = Nothing
    Set db = Nothing
End Sub

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