MS Access, primary key

Hello VB users,

MS Access problem.

I am still searching to create a primary key for my field in a table.
In sql there is a possibility.

Can someone complete the next code for creating a primary key for the field "NewField"?

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.CreateDatabase("c:\q.mdb", dbLangGeneral)
Dim tdfNew As TableDef

Set tdfNew = Db.CreateTableDef("newTable")

tdfNew.Fields.Append tdfNew.CreateField("NewField", dbText)

Db.TableDefs.Append tdfNew
Db.Close

Nice regards,

michelle.

I'm not sure what you're trying to acheive here. . .

You have an MS Access database, and you require a Primary Key. . . ok, you could just insert one into the table, and select it Indexed, No Duplicates in the properties.

Please elaborate.

It looks like Michelle wants to be able to create a primary key on the fly.

Execute the following SQL (against a jet database), before you issue the db.close:

db.Execute "Alter table newtable add constraint pkey primary key (newfield);"

Hello JohnAtWork & JHausmann,

Thanks for your tips! I will use them.

michelle.