Setting unique index

[Jan Kr]

Hi NG!

I have two databases, ie Db1.mdb and Db2.mdb. Db2.mdb contains a table, Tbl1
with a field, id Field1.

My question is, can I - using VBA in a module in DB1.mdb - set Field1 in
Tbl1 in Db2 to be Indexed wíth no duplicates?

Jan

 

[TPratt]

Yes:

Dim Db as Database
Dim tdf as TableDef
Dim idx as Index
Dim fld as Field

Set Db = DBEngine.Workspaces(0).OpenDatabase("Path to database.mdb")

Set tdf = Db.TableDefs("Name of Table")
Set idx = tdf.CreateIndex("Primary")

idx.Primary = True

Set fld = idx.CreateField("Name of the Field in your table")

idx.Fields.Append fld

tdf.Indexes.Append idx


Works like a charm!