ник: Дядя Федор
Пока сделал так (в предположении, что если есть связи по полю, то оно одинаково обзывается.
Т.е. тупо перебираю все таблицы и ищу где есть заданное поле.
Public Sub AllTableAndFlds(snamefld$)
Dim tbl As TableDef
Dim fld As Field
Debug.Print "----- " & snamefld & " -----"
For Each tbl In CurrentDb.TableDefs
For Each fld In tbl.Fields
If snamefld = fld.name Then
Debug.Print tbl.name ', fld.name
End If
Next
Next
End Sub
Public Sub tst()
AllTableAndFlds "IdPrice"
AllTableAndFlds "IdPricePref"
AllTableAndFlds "IdSChPoz"
AllTableAndFlds "IdPriceGroup"
End Sub
|
Есть опасность что могут быть связи типа Tbl1.IdPrice-tbl2.IdPr1