SQL or VBA to set Primary Keys

[smed]

Is it possible to either use SQL or VBA to set a table field to a Primary Key, instead of going into design mode.

Any help would be great.

Smed

 

[Tim K.]

Try the VBA below.

Sub AddPrimaryX()

Dim dbs As Database
Dim tdf As TableDef
Dim idx As Index

Set dbs = CurrentDb

Set tdf = dbs.TableDefs("YourTableHere")

With tdf
Set idx = .CreateIndex("YourTargetFieldNameHere")
idx.Fields.Append idx.CreateField("YourTargetFieldNameHere")
idx.Primary = True
.Indexes.Append idx

End With

dbs.Close

End Sub

 

[smed]

Tim,

Originally I coulnd't get it to work.

However I realised I had not enabled the "Microsoft DAO 3.6 Object Libirary" reference.

Now it works Great !

Thanks
Smed