MS Access | DAO | Удалить связь

'удаление связи DAO

Sub deleteRelation_DAO()

Dim db As Database, rel As Relation

Set db = CurrentDb

For Each rel In db.Relations

  If rel.Table = "Table1" And rel.ForeignTable = "Table2" Then

       db.Relations.Delete rel.Name

      Exit Sub

  End If

Next

End Sub