Hallo,
CREATE TABLE test (Sachnummer TEXT, Verkaufsnummer TEXT, Link
HYPERLINK)
–> funktioniert nicht
geht auch nicht mit (Jet-)DDL.
Versuch es so:
…
Dim catDB As ADOX.Catalog 'Verweis auf MSADOX.DLL setzen!
Dim tbl As ADOX.Table
Set catDB = New ADOX.Catalog
catDB.ActiveConnection = CurrentProject.Connection
Set tbl = New ADOX.Table
With tbl
.Name = „Test“
Set .ParentCatalog = catDB
With .Columns
.Append „Sachnummer“, adVarWChar
.Append „Verkaufsnummer“, adVarWChar
.Append „Link“, adLongVarWChar
.Item(„Link“).Properties(„Jet OLEDB:Hyperlink“) = True
End With
End With
catDB.Tables.Append tbl
Set tbl = Nothing
Set catDB = Nothing
…
Allerdings ist:
– von Hyperlink-Feldern in einer Tabelle abzuraten,
– ein Primärschlüssel(feld) in jeder Tabelle anzuraten
Grüße
Franz, DF6GL