vbA 处理超链接

肖春才　发表于：2014-01-20 14:37:05 　

复制

我的一个数据表的某一字段值是超链接数据类型，我想用VBA的方法批量写入超链接的地址，请问各位老师，该怎么写哪？

记得excel VBA 中有hypelinks.add 方法，access VBA中无此方法，百思不得其解，请高手赐教

我试着用这样做
字段.hyperlink.address=" c:\"
总是报错，提示该超链接的address 属性是只读的。没办法赋值。

Top

zhaoyoulong 发表于：2014-01-20 16:03:21

Access 开发人员参考

Label.Hyperlink 属性

使用 Hyperlink 属性可以返回对 Hyperlink 对象的引用。使用 Hyperlink 属性还可以访问控件的超链接的属性和方法。只读。

语法

表达式.Hyperlink

表达式 一个代表 Label 对象的变量。

示例

在下面的示例中，CreateHyperlink 过程将命令按钮、标签或图像控件的超链接属性设置为传递到过程的地址和子地址值。地址设置是可选参数，因为链接到当前数据库中对象的超链接只使用子地址设置。若要使用此示例，请创建一个含有两个文本框控件（txtAddress和txtSubAddress）和一个命令按钮 (cmdFollowLink) 的窗体，并将下列代码粘贴到窗体模块的“声明”节。

Visual Basic for Applications
Private Sub cmdFollowLink_Click() CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, _ Me!txtAddress End Sub Sub CreateHyperlink(ctlSelected As Control, _ strSubAddress As String, Optional strAddress As String) Dim hlk As Hyperlink Select Case ctlSelected.ControlType Case acLabel, acImage, acCommandButton Set hlk = ctlSelected.Hyperlink With hlk If Not IsMissing(strAddress) Then .Address = strAddress Else .Address = "" End If .SubAddress = strSubAddress .Follow .Address = "" .SubAddress = "" End With Case Else MsgBox "The control '" & ctlSelected.Name _ & "' does not support hyperlinks." End Select End Sub

Visual Basic for Applications

Private Sub cmdFollowLink_Click()
    CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, _
         Me!txtAddress
End Sub

Sub CreateHyperlink(ctlSelected As Control, _
     strSubAddress As String, Optional strAddress As String)
    Dim hlk As Hyperlink
    Select Case ctlSelected.ControlType
        Case acLabel, acImage, acCommandButton
            Set hlk = ctlSelected.Hyperlink With hlk
                If Not IsMissing(strAddress) Then
                    .Address = strAddress
                Else
                    .Address = ""
                End If
                .SubAddress = strSubAddress
                .Follow
                .Address = ""
                .SubAddress = ""
            End With
        Case Else
            MsgBox "The control '" & ctlSelected.Name _
                 & "' does not support hyperlinks."
    End Select
End Sub

Top

cspa 发表于：2014-01-20 16:46:15

如果你的“数据表的某一字段值是超链接数据类型”，那么对此字段的赋值应用“字段.value=" c:\"，即是对字段值的赋值，该值自动会表示为超链接类型。

zhaoyoulong的方法是针对控件的不是对表中字段的。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

vbA 处理超链接