office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

RunCommand动画集-acCmdEditHyperlink 打开编辑超链接窗口,对超链接字段修改

2019-05-23 16:36:00
tmtony8
原创
5602

access数据类型中,有超链接数据类型。当单击一个超级链接字段时,WEB浏览器或Access将根据超级链接地址到达指定的目标

通过字段获取焦点,然后打开编辑超链接。可以对链接地址和链接文本进行修改。

  On Error GoTo ErrEditHyper
    Me.txtHyperlink.SetFocus
    DoCmd.RunCommand acCmdEditHyperlink
    Exit Sub
ErrEditHyper:
    Select Case Err
    Case 2046
'        Edit Hyperlink not available
        MsgBox "You must be in a hyperlink field.", vbCritical, "Error Message"
        Resume Next
    Case 2501
'        Cancel button selected do nothing
        Resume Next
    Case Else
        MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message"
        Resume Next
    End Select


打开编辑超链接对话框,对超链接字段文本或者链接地址修改

    分享