Удаление или изменение связей таблицы Access2000

[Rojohn]

Добрый день!
Пытаюсь удалить все связи, исходящие из избранных таблиц базы Access2000. Удаляются не все связи, а какая-то их часть. Подскажите, почему так происходит? И как удалить все связи таблицы одним махом? Вот мой код:

Код: Выделить всё

On Error Resume Next
    For I = 0 To db1.Relations.Count
      Select Case db1.Relations(I).Table
        Case "MODEL_T": db1.Relations.Delete db1.Relations(I).Name
        Case "MODEL_G": db1.Relations.Delete db1.Relations(I).Name
        Case "RESP_PERSON": db1.Relations.Delete db1.Relations(I).Name
        Case "RESP_LP": db1.Relations.Delete db1.Relations(I).Name
      End Select
      db1.Relations.Refresh
    Next I


Возможно ли изменить размерность связанных полей или свойства связи без предварительного удаления связи?

Спасибо за ответы!

[Rojohn]

Кажется понял - надо указывать тип таблицы. Завтра проверю!

[Williams]

Тебе похоже сюда

[Rojohn]

Возможно. Но насчёт удаления я кажется уже понял сам.

[Rojohn]

Не получилось... как будто там надо по каждому связанному полю удалять!
Вот альтернативный вариант (на всякий случай):

Код: Выделить всё

Dim relNew As Relation

On Error Resume Next
    For Each relNew In db1.Relations
      With relNew
        Select Case .Table
          Case "RESP_PERSON": db1.Relations.Delete .Name
          Case "RESP_LP": db1.Relations.Delete .Name
        End Select
      End With
    Next relNew


От каждой из таблиц RESP_PERSON и RESP_LP отходят по 2-3 связи. Удаляется только одна! Странно, вроде цикл по всем связям...

[Sur]

Попробовал, поставил 2 связи между двумя таблицами, первый же Case порвал обе связи сразу. Убери on error, может ошибка какая вылезет.

[Rojohn]

Нет, всё тоже самое. Попробуй связать одно поле одной таблицы с двумя полями двух других таблиц.

[Rojohn]

Короче смысл наверное в том, что надо удалять по внешнему ключу каскадно, т.к. в случае, когда из одного поля одной таблицы исходит больше одной связи, проходя по циклу удаления, после удаления первой из этих связей, другие две исчезают из списка связей.
Выход: узнать все имена связей без удаления, затем удалить все нужные поименно.