*كود* كود لعمل العلاقات مع تحديد خواص تتالي الحذف و التحديث

لرفع

هذا هو الكود للربط

و أيضا كود لطباعة العلاقات

و خاصية تتالي الحذف و التحديث

تراها من

dbRelationDeleteCascade

 'create a relation
'=================
Sub CreateRelationDAO()
  Dim dbsLocal As Database
  Dim relLocal As Relation
  Dim fldLocal As Field

  Set dbsLocal = CurrentDb
  Set relLocal = dbsLocal.CreateRelation()
  With relLocal
    .Name = "PeopleFood"
    .Table = "tblFoods"
    .ForeignTable = "tblPeople"
    .Attributes = dbRelationDeleteCascade
  End With
  Set fldLocal = relLocal.CreateField("FoodID")
  fldLocal.ForeignName = "FoodID"
  relLocal.Fields.Append fldLocal
  dbsLocal.Relations.Append relLocal
End Sub

'print relation
'================
Sub EnumRelations()
  Dim dbsLocal As Database
  Dim relLocal As Relation

  Set dbsLocal = CurrentDb
  For Each relLocal In dbsLocal.Relations
    Debug.Print relLocal.Table & " Related To: " & relLocal.ForeignTable
  Next relLocal
End Sub