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

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

--
Duane Hookom
MS Access MVP


"Bob" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>
>