Microsoft Access Programmierrezepte

R10.16 Hyperlinkfelder in Tabellen erstellen

Aufgabe

In einer Tabelle sollen Hyperlinks gespeichert werden. Wie kann man die entsprechende Spalte erzeugen?

Lösung (DAO)

Erzeugen Sie diese Spalte über DAO, müssen Sie ein Memofeld erstellen, das als zusätzliches Attribut DbHyperlinkField erhält.

Beispiel

Hyperlinkfeld erzeugen

...
Set fld = td.CreateField("Hyperlink", dbMemo)
fld.Attributes = DbHyperlinkField + DbVariableField
td.Fields.Append fld
...

Lösung (ADO)

Beispiel

Hyperlinkfeld erzeugen (ADOX)

Sub Hyperlinkfeld_Erzeugen() Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table cat.ActiveConnection = CurrentProject.Connection tbl.Name = "WebAdressen" Set tbl.ParentCatalog = cat ' WICHTIG !!!! ... tbl.Columns.Append "myHyperlink", adLongVarWChar tbl.Columns("myHyperlink").Properties("Jet ...