Zitat:
Hyperlink-Eigenschaft: Beispiel

In der Prozedur HyperlinkErstellen des folgenden Beispiels werden die Hyperlink-Eigenschaften eines Befehlsschaltfläche-, Bezeichnungsfeld- oder Bild-Steuerelements auf die Adresse und Unteradresse eingestellt, die an die Prozedur übergeben werden. Das Argument für die Einstellung der Adresse ist ein optionales Argument, da für ein Hyperlink zu einem Objekt der aktuellen Datenbank nur die Einstellung der Unteradresse verwendet wird. Wenn Sie dieses Beispiel testen möchten, erstellen Sie ein Formular mit zwei Textfeld-Steuerelementen (txtAdresse und txtUnteradresse) sowie einer Befehlsschaltfläche (cmdLinkFolgen) und fügen folgenden Code in das Modul des Formulars ein:

Private Sub cmdLinkFolgen_Click()
HyperlinkErstellen Me!cmdLinkFolgen, Me!txtUnteradresse, _
Me!txtAdresse
End Sub

Sub HyperlinkErstellen(ctlAusgewählt As Control, _
strUnteradresse As TextBox, Optional strAdresse As TextBox)
Dim hlk As Hyperlink
Select Case ctlAusgewählt.ControlType
Case acLabel, acImage, acCommandButton
Set hlk = ctlAusgewählt.Hyperlink
With hlk
If Not IsMissing(strAdresse) Then
.Address = strAdresse
Else
.Address = ""
End If
.SubAddress = strUnteradresse
.Follow
.Address = ""
.SubAddress = ""
End With
Case Else
MsgBox "Das Steuerelement '" & ctlAusgewählt.Name_
& "' unterstützt keine Hyperlinks."
End Select
End Sub