حذف وربط العلاقة بين حدولين

هذا الكود يمكنك من حذف جميع العلاقات في قاعدة البيانات برمجيا

Function DeleteAllRelationships() As String
' WARNING: Deletes all relationships in the current database.
    Dim db As Database      ' Current DB
    Dim rex As Relations    ' Relations of currentDB.
    Dim rel As Relation     ' Relationship being deleted.
    Dim iKt As Integer      ' Count of relations deleted.
    Dim sMsg As String      ' MsgBox string.

    sMsg = "About to delete ALL relationships between tables in the current database." & vbCrLf & "Continue?"
    If MsgBox(sMsg, vbQuestion + vbYesNo + vbDefaultButton2, "Are you sure?") = vbNo Then
        DeleteAllRelationships = "Operation cancelled"
        Exit Function
    End If

    Set db = CurrentDb()
    Set rex = db.Relations
    iKt = rex.Count
    Do While rex.Count > 0
        Debug.Print rex(0).Name
        rex.Delete rex(0).Name
    Loop
    DeleteAllRelationships = iKt & " relationship(s) deleted"
End Function

اشكرك يا أخى هذه نصف الاجابة وبارك الله فيك

بارك الله بك أخي الفاضل : ابو عمر

وشكر الله سعيكم على المشاركة

اخي الفاضل : الحجازي طارق

تفضل هذه الإجابة كاملة

تأكد من الجداول عند انشاء العلاقات وعند حذف العلاقات

za-DeleteAndCreateRelationships.rar

بالتوفيق

دائما يأتي الجواب الشافي من الأساتذة الكبار مشكورين

بارك الله فيكى يا أختى الفاضلة