How to get table primary key

[Guest]

hello!
I have to chech if some table column is table primary key.
Here are code to get to the table column:
For Each tabula As dao.TableDef In ACS.TableDefs
If tabula.Name.ToUpper.Trim = sName.ToUpper.Trim Then
For Each lauks As dao.Field In tabula.Fields
If lauks.Name.ToUpper.Trim = sColName.ToUpper.Trim Then
'???
End If
Next
End If
Next

after that i need to know is it primary key or not and is this column is
indexed or not!
I hope you will help me soon!

Dexter

 

[Stefan Hoffmann]

hi Dexter,

I have to chech if some table column is table primary key.

Use the Indexes collection, e.g.

For Each tabula As dao.TableDef In ACS.TableDefs

For Each idx In tabula
If idx.Primary Then
MsgBox "Primary Key: " & idx.Fields
End If
Next idx

Next

mfG
--> stefan <--

 

[Stefan Hoffmann]

hi,

For Each idx In tabula

Must be

For Each idx In tabula.Indexes



mfG
--> stefan <--

 

[Guest]

Thanks! it help me a lot!

Dexter