Access, primary key.

[michelle]

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.

[benski]

Hi michelle,

Remember- a primary key is an index, not a field, so try adding these lines to your code:

'Put this with the other declarations:
Dim idx as Index

'Put this after you've appended the field:
Set idx = New Index
With idx
.Name = "NewFieldPrimary"
.Fields = "NewField"
.Primary = True
End With
tdfNew.Indexes.Append idx

That's it! Hope this works for you.