Some notes.
Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb Set tdf = db.TableDefs("Table1") On Error Resume Next tdf.Properties("Description") = "Link" If Err.Number = 3270 Then Set prp = tdf.CreateProperty("Description", _ dbText, "Link") tdf.Properties.Append prp End If
source share