ник: SerRock
спасибо, сделал сам
Dim db As Database
Dim tblfs As TableDefs
Dim indxs As Indexes
Dim indx As index
Set db = CurrentDb
Set tblf = db.TableDefs("111").Indexes
For Each indx In indxs
If indx.Primary = True Then
MsgBox "ok"
Else
MsgBox "No"
End If
Next indx
|