Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

HINWEIS

BEISPIEL

BEISPIEL

Kapitel 14: Access im Internet/Intranet

Set db = CurrentDb()

Set rs = db.OpenRecordset("tabelle1")

MsgBox "Beschriftung :" & HyperlinkPart(rs!Hyperlink, acDisplayText)

Verwenden von

HyperlinkPart

in einer SQL-Abfrage (Anzeige der Beschriftung und Adresse):

SELECT

Hyperlinkpart(adresse,1) AS Anzeige,

Hyperlinkpart(adresse,2) AS Hyperlink

FROM

webadressen;

Abbildung 14.4 Abfrageergebnis

Erzeugen Sie derartige Spalten über DAO, müssen Sie ein Memofeld erstellen, das als zusätzliches Attribut

DbHyperlinkField erhält (siehe dazu auch Kapitel 6).

Hyperlinkfeld erzeugen (DAO):

Set fld = td.CreateField("Hyperlink", dbMemo)

fld.Attributes = DbHyperlinkField + DbVariableField

td.Fields.Append fld

...

Hyperlinkfeld erzeugen (ADOX):

Dim cat As New ADOX.Catalog

Dim tbl As New Table

cat.ActiveConnection = Application.CurrentProject.Connection

tbl.Name = "WebAdressen"

Set tbl.ParentCatalog = cat ' WICHTIG !!!!

tbl.Columns.Append "Hyperlink", adLongVarWChar

tbl.Columns("xxxxHyperlink").Properties("Jet OLEDB:Hyperlink") = True

cat.Tables.Append tbl

Hyperlinks verwenden

Zwei wesentliche Einsatzgebiete für Hyperlinks lassen sich erkennen. Zum einen, indem Sie Befehlsschalt-

flächen, Bezeichnungsfelder etc. als Hyperlink-Schaltflächen einsetzen, zum anderen durch die Verwen-

dung der FollowHyperlink-Methode.

904

BEISPIEL

Steuerelemente als Hyperlink-Schaltflächen

In Access können Sie über die Steuerelemente Befehlsschaltfläche, Kombinationsfeld, Bild, Bezeichnungsfeld,

Listenfeld und Textfeld eine Hyperlink-Schaltfläche erzeugen, d. h., beim Klick auf eines der genannten

Objekte wird dem Hyperlink gefolgt.

Abbildung 14.5 Bezeichnungsfeld als Hyperlink

Bei Befehlsschaltflächen, Bezeichnungsfeldern und Bild-Steuerelementen können Sie über die Eigenschaf-

ten HyperlinkAddress und/oder HyperlinkSubAddress das gewünschte Hyperlink-Ziel angeben. Die anderen

Steuerelemente bieten diese Möglichkeit nur bei Bindung an ein Hyperlink-Feld.

FollowHyperlink-Methode

Mit FollowHyperlink können Sie aus dem Code heraus einer Hyperlink-Adresse folgen. Woher diese Adres-

se stammt (Tabelle, Usereingabe oder Konstante) ist gleichgültig.

Die Methode überträgt, wenn nötig, das in der Hyperlink-Adresse angegebene Dokument bzw. Objekt und

öffnet es in der zugeordneten Anwendung.

Syntax:

FollowHyperlink Adresse, [Unteradresse], [NeuesFenster], [VerlaufHinzufügen], _

[Extrainfo], [Methode], [Headerinfo]

■ Neben Adresse und optional einer Unteradresse können Sie bestimmen, ob ein neues Fenster geöffnet

werden soll (NeuesFenster = True).

■ Über das Argument VerlaufHinzufügen können Sie entscheiden, ob die angesprungene Adresse im Ord-

ner Verlauf abgelegt werden soll (True) oder nicht.

■ Extrainfo ermöglicht die Übergabe zusätzlicher Daten an den Kommunikationspartner (zum Beispiel

ein CGI-Script).

■ Methode bestimmt, ob es sich um eine POST- oder GET-Operation handelt (MsoMethodGet, MsoMe-

thodPost), d.h. es wird festgelegt, wie die zusätzlichen Informationen übergeben werden.

■ Headerinfo ist eine Zeichenfolge, die die Kopfinformationen für die HTTP-Anforderung enthält.

Verwenden von

FollowHyperlink

:

FollowHyperlink "c:\Briefe\Anschreiben.doc"

905

Hyperlinks