刪除Access中的所有關(guān)系

說到關(guān)系，可能有兩種意見。正方認為關(guān)系好用，可以約束數(shù)據(jù)，減少錯誤。對于新手有很好的幫助。反方覺得沒必要建立關(guān)系。因為數(shù)據(jù)庫的建立本身就是基于關(guān)系數(shù)據(jù)庫的。建立關(guān)系反而會限制一些操作。今天我們不把這個作為討論的重點。

有沒有人和小編一樣覺得逐個刪除關(guān)系是一件很麻煩的事情。如何批量刪除關(guān)系呢？

運行下面的代碼：

Function DeleteAllRelationships() As String
 '作者:Allen Browne
     Dim db As dao.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 = "是否刪除當前數(shù)據(jù)庫中的所有關(guān)系" & vbCrLf
     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

提醒是否刪除關(guān)系

選擇“是”，刪除所有關(guān)系

注意：此代碼有一定的危險性，請謹慎使用。它會刪除當前數(shù)據(jù)庫中的所有關(guān)系。