在 MS Access 2013 报告上标记超链接

Posted 2023-05-06

【中文标题】在 MS Access 2013 报告上标记超链接

【英文标题】：Label Hyperlinks on MS Access 2013 Reports

【发布时间】：2016-09-02 19:50:03

【问题描述】：

我无法在 MS Access 2013 中单击报告上的超链接。我的数据库提供项目日志的功能，用于跟踪我们小组正在进行的项目。超链接作为每个项目的摘要文件（通常是 PPT）的附件。每个项目都是我后端表中的一条记录。

到目前为止我有：

将超链接作为字符串存储在数据库表中 通过 Access 表单拉取/编辑/添加超链接到记录 显示超链接并通过访问表单单击它 通过引用包含路径的隐藏文本框在报表上添加超链接

问题是超链接正确显示在报告中，有时我可以单击它，但大多数时候我无法单击它。如果我在报告中滚动，有时我可以激活超链接，但它似乎命中或未命中。

这是我用来在报告上应用超链接的代码：

Private Sub Detail_Paint()

Dim strSource As String

If Report_rptCompleted.txtHL.Value <> "" Then
    strSource = Report_rptCompleted.txtHL.Value
    Report_rptCompleted.lblHL.Caption = Right(strSource, Len(strSource) - InStrRev(strSource, "\"))
    Report_rptCompleted.lblHL.HyperlinkAddress = strSource
    Report_rptCompleted.lblHL.ForeColor = vbBlue
Else
    Report_rptCompleted.lblHL.Caption = "No Attachment"
    Report_rptCompleted.lblHL.HyperlinkAddress = ""
    Report_rptCompleted.lblHL.ForeColor = vbBlack
End If

End Sub

对于解决此问题的任何帮助将不胜感激

【问题讨论】：

报告显示在哪个视图中？

我在报告视图中显示它。

【参考方案1】：

我最终不得不走另一条路，并使用文本框而不是标签。

我的解决方案是完全删除标签和 OnPaint 事件。我格式化文本框以显示文件名，然后使用 FollowHyperlink 命令在 OnClick 事件中引用文件路径。

打开链接有点慢，但工作正常。