用户友好的MS Access链接表单

时间:2016-05-13 09:47:12

标签: vba ms-access access-vba

我尝试使用以下行为创建表单:

  1. 当它为空时点击它会打开插入超链接的对话窗口
  2. 点击超链接时会打开超链接
  3. 点击附近的"清除"按钮清除表单删除超链接(如果存在)
  4. 我目前仍然坚持第2步。超链接插入窗口的代码就是这个:

    Private Sub PSIC_Click()
    Me.[PSIC].SetFocus
    On Error GoTo browse_stop
    RunCommand acCmdInsertHyperlink
    browse_stop:
    End Sub
    

    当我尝试应用不同的然后变体时,它并没有按预期工作。要么我无法正确应用,那么或确定表格是空的。

2 个答案:

答案 0 :(得分:2)

超链接文本框的OnClick()事件将是:

Private Sub PSIC_Click()
On Error GoTo browse_stop
If ISNULL(Me!PSIC) Then
  RunCommand acCmdInsertHyperlink
End If
browse_stop:
End Sub

我删除了SetFocus,因为点击文本框应该会自动设置焦点,但是如果你因为其他原因需要它,它并没有真正伤害任何东西。

“清除表单”命令按钮的OnClick()事件将是:

Private Sub cmdClearForm_Click()
Me!PSIC = NULL
End Sub

答案 1 :(得分:0)

从MS Access中的表单打开超链接:

在“设计视图”中,确保超链接位于其自己的文本框中,然后转到“属性表”,然后在中途,您应该看到“超链接地址”选项。在这里添加超链接的地址。

如果要单击图像并打开超链接,则右键单击图像转到超链接。