Adding a table description through code

[Adam Molinaro]

I am creating a table through code, and am trying to add a description as
well. Help referenced the CreateProperty method, but I am unable to find any
mention of table descriptions.

Can someone point me in the right direction?

 

[Brendan Reynolds]

Public Sub AddDescription()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim prp As DAO.Property

Set db = CurrentDb
Set tdf = db.TableDefs("tblTest")
Set prp = tdf.CreateProperty("Description", dbText, "This is my
description")
tdf.Properties.Append prp

End Sub

 

[Adam Molinaro]

Awesome.

Worked perfectly; thank you.

Public Sub AddDescription()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim prp As DAO.Property

Set db = CurrentDb
Set tdf = db.TableDefs("tblTest")
Set prp = tdf.CreateProperty("Description", dbText, "This is my
description")
tdf.Properties.Append prp

End Sub