点击Excel超链接后向Access写入‘Data confirmed’失败求排查

嘿，我一眼就瞅出问题所在了——你当前用的INSERT语句是往Access数据库里新增一条记录，而不是更新你想要的那一行！这就是为啥点击超链接后，目标行没被标记成'Data confirmed'的原因。

要实现“更新对应行”的需求，咱们需要做两个关键调整：

1. 确定Excel行与Access行的唯一对应关系 #

首先得有个唯一标识（比如Access表NewPO里的主键列，假设叫ID；同时Excel里每一行也有对应的ID值，比如放在第1列），这样才能精准定位到要更新的Access行。

2. 把INSERT语句改成UPDATE语句 #

替换掉新增记录的逻辑，改成根据唯一标识更新指定行的Confirmation字段。

修复后的完整代码 #

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ' 确认点击的是第16列的超链接
    If Not Intersect(Target.Range, Columns(16)) Is Nothing Then
        ' 传递当前行的范围给SaveData函数，根据返回值提示结果
        MsgBox IIf(SaveData(Target.Range), "确认成功！", "操作失败，请检查错误。")
    End If
End Sub

Private Function SaveData(rng As Range) As Boolean
    Dim cnDB As New ADODB.Connection
    Dim vsDBPath As String
    Dim strSQL As String
    Dim rowID As Variant ' 存储当前行的唯一标识（比如ID）
    
    On Error GoTo ErrorHandler ' 加上错误捕获，方便排查问题
    
    ' 获取Access数据库路径
    vsDBPath = ThisWorkbook.Sheets("Settings").Range("B2").Value
    
    ' 打开数据库连接
    cnDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
              "Data Source=" & vsDBPath & ";" & _
              "Persist Security Info=False;"
    
    ' 获取当前Excel行的唯一标识（假设第1列是ID，对应Access的ID列）
    rowID = rng.EntireRow.Cells(1, 1).Value
    
    ' 构造UPDATE语句：更新对应ID行的Confirmation字段
    strSQL = "UPDATE NewPO SET Confirmation = 'Data confirmed' WHERE ID = " & rowID
    
    ' 执行SQL语句
    cnDB.Execute strSQL
    
    ' 关闭连接
    cnDB.Close
    
    SaveData = True
    Exit Function

ErrorHandler:
    ' 捕获错误，输出错误信息方便排查
    MsgBox "错误代码：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
    If cnDB.State = adStateOpen Then cnDB.Close
    SaveData = False
End Function

额外注意事项 #

• 如果你Access表的主键不是ID，或者Excel里的唯一标识不在第1列，记得修改代码里的对应部分（比如rng.EntireRow.Cells(1,1)改成你实际的列，WHERE ID =改成你的主键列名）。
• 确保NewPO表确实存在Confirmation字段，且字段类型支持存储文本（比如短文本类型）。
• 新增的错误捕获逻辑能帮你快速定位连接失败、SQL语法错误这类常见问题。

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