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 |