RunCommand動(dòng)畫集-acCmdEditHyperlink 打開編輯超鏈接窗口，對(duì)超鏈接字段修改

access數(shù)據(jù)類型中，有超鏈接數(shù)據(jù)類型。當(dāng)單擊一個(gè)超級(jí)鏈接字段時(shí)，WEB瀏覽器或Access將根據(jù)超級(jí)鏈接地址到達(dá)指定的目標(biāo)

通過(guò)字段獲取焦點(diǎn)，然后打開編輯超鏈接。可以對(duì)鏈接地址和鏈接文本進(jìn)行修改。

  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

打開編輯超鏈接對(duì)話框，對(duì)超鏈接字段文本或者鏈接地址修改