- Код: Выделить всё
Set Rel1 = pDB.CreateRelation("first")
Rel1.Table = "Люди"
Rel1.ForeignTable = "Браки"
Set Fr1 = Rel1.CreateField("peopleID")
Fr1.ForeignName = "wedID1"
Rel1.Fields.Append Fr1
pDB.Relations.Append Rel1
как сюда присовокупить wedID2 еще?