Re: Add Field Descriptions, New Table

Already answered in another newsgroup to which you posted the same question
(I believe it was microsoft.public.access.modulesdaovba.ado)

If you feel you need to post to more than one group (HINT: it's seldom
necessary), please have the courtesy to cross-post (send the one message to
all groups at once), rather than multi-post (send individual messages to
each group). In this way, all responses to your post will be available
together, regardless of what group the responder was in, and the rest of us
won't have to read your post multiple times. (It also uses fewer server
resources)

I see you're using Outlook Express. Click the "Newsgroups:" label to the
left of the box containing the name of the current newsgroup. That will open
a dialog that will let you add additional newsgroups to your post. Note that
it's generally consider to be A Bad Thing to cross-post to more than about 2
or 3 newsgroups. (In fact, at
http://www.microsoft.com/presspass/...1/Mar27pmvp.asp
Microsoft suggests that "One group will suffice")

See http://www.mvps.org/access/netiquette.htm for more information.


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele


"Bob" <orta@resp-sci.arizona.edu> wrote in message
news:eVmbHSfWDHA.2024@TK2MSFTNGP12.phx.gbl...
>
> 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
>
>