| |
|
|
| | Подскажите, пожалуйста, как перебрать все табл. в базе и получить табл. не содержащие ключевое поле | |
| |
| |
| |
|
|
| | спасибо, сделал сам
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
|
| |
| |
| |
| |
|
|
| | не за что!
 | |
| |
| |
