【Access函数】删除所有的关系

时　间:2012-08-09 08:16:26
作　者:Allen Browne   ID：6392  城市：昆山
摘　要:删除所有的关系
正　文:

警告：此代码是危险的！它会删除当前数据库中的所有关系。

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