MS Access | DAO | Установить связь между таблицами

'установка связи между таблицами (Table1 и Table2) - DAO

Sub CreateRalation_DAO()

Dim db As Database, rel As Relation, fld As DAO.Field

Set db = CurrentDb

Set rel = db.CreateRelation("ggg", "Table1", "Table2", dbRelationUpdateCascade)

Set fld = rel.CreateField("F_1")

'F_1 - имя поля

fld.ForeignName = "F_1"

rel.Fields.Append fld

db.Relations.Append rel

End Sub