单击超链接后保存数据以访问文件

Question

多亏了basodre，我成功地让excell为Excellsheet中的每一行添加了一个超链接。下一步将是保存一个文本"；数据确认"；在Access中，单击特定行后面的超链接。例如，有10行具有超链接"；点击确认"；最后。一旦第8行的数据是正确的；点击确认"；在第8行。一旦点击，它应该保存"；数据确认"；访问第8行。

我目前有以下代码，但它仍然无法保存"；数据确认"；在我的访问文件中，有一次点击了超链接。有什么想法吗？

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Confirm that this is a hyperlink in column 3
If Not Intersect(Target.Range, Columns(16)) Is Nothing Then
MsgBox SaveData(Target.Range)
End If

End Sub
Private Function SaveData(rng As Range) As Boolean
Dim cnDB As New ADODB.Connection

VsDBPath = ThisWorkbook.Sheets("Settings").Range("B2").Value

cnDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & VsDBPath & ";" & "Jet OLEDB:Engine Type=5;" & "Persist Security Info=False;"

cnDB.Execute "INSERT INTO NewPO (Confirmation) VALUES ('Data confirmed')"


cnDB.Close
SaveData = True
End Function

Answer 1

需要为WHERE子句获取记录主键(或唯一标识Access记录的某些数据组合(。使用"偏移"引用与活动单元格相关的单元格，该单元格应为单击的超链接单元格。如果主键数据是左边的1个单元格：

cnDB.Execute "UPDATE NewPO SET Confirmation='Data confirmed' WHERE ID = " & ActiveCell.Offset(0, -1).Value