Kolommen toevoegen met VBA 'ALTER TABLE"

[fmeca]

Je kunt kolommen toevoegen aan een tabel met bijvoorbeeld:

DoCmd.RunSQL "ALTER TABLE [tabelnaam]  ADD COLUMN [kolomnaam] TEXT(lengte)

Hoe doe je dit met een veld van type 'Hyperlink' of Yes/No ?


Thx

 

[OctaFish]

Daarvoor moet je een procedure maken; de standaard SQL (Alter Table) is daarvoor, voor zover ik weet, niet geschikt. Een Hyperlink veld is namelijk in beginsel een Memo veld (wat je wel kunt toevoegen) met een Acces karakteristiek, die je dus moet aanpassen.

Sub TestHyperLink()
Dim dbs As DAO.Database
Dim fld As DAO.Field
Dim tdf As DAO.TableDef
 
Set dbs = CurrentDb
Set tdf = dbs.TableDefs("Tabelnaam")
Set fld = tdf.CreateField("Hyperlinkje", dbMemo)
fld.Attributes = dbHyperlinkField       ' 32770
tdf.Fields.Append fld

Set fld = Nothing
Set tdf = Nothing

End Sub

 

[fmeca]

Vraag nog niet helemaal opgelost maar met de oplossing van Michel kan ik toch wel iets.