Add Field Descriptions, New Table

[Bob]

I use Office XP Developer with W2K.

We are currently working on a questionnaire database. We paste field
descriptions from a Word document into the description, but this is not
fun - there are hundreds of questions...

Below p/o the code used to create the new table. What is the syntax to add
descriptions for each field?

Sub CreateTable()

Dim tbl As New Table
Dim cat As New ADOX.Catalog

'Open the catalog.
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\My Documents\HIA\HIA_be.mdb"

tbl.Name = "tblHIA03"

tbl.Columns.Append "HIA03Q1", adVarWChar, 25 ' Person reporting
information
tbl.Columns.Append "HIA03Q2", adVarWChar, 25 ' Other (SPECIFY
RELATIONSHIP)
cat.Tables.Append tbl


End Sub

Thanks for looking.

Bob

 

[Duane Hookom]

You might want to download and review "At Your Survey" available at
http://www.rogersaccesslibrary.com/OtherLibraries.asp#Hookom,Duane. This
application allows you to add any number of questions as records rather than
fields.