从表中删除记录实际上并没有删除 VBA Access

Question

我有一个名为 Scenarios 的表，它与 ESDNodes 有一对多的关系。可以有多个 ESDNode 引用一个场景。

对于每个场景必须至少有一个 ESDNode，这意味着当要删除一个场景时，必须删除其所有相关的 ESDNode。

所以当用户选择一个场景并试图删除它时，这个函数被调用：

Private Sub Form_Delete(Cancel As Integer)
  Dim scenID As Long
  Dim ESDHeadNodeID As Long
  Dim response As Long
  Dim style As Long

  scenID = Forms!Main!Scenarios!ScenarioID
  ESDHeadNodeID = DLookup("ESDNodeID", "ESDNodes", "((ESDNodes.ESDNodeType)=1) AND ((ESDNodes.ScenarioID) = " & scenID & ")")

  style = vbYesNoCancel + vbQuestion
  response = MsgBox("Are you sure you wish to delete all selected nodes and their children?", style)
  If response = vbYes Then
     DeleteESDChildren (ESDHeadNodeID)
     loadESDTreeView
  End If
End Sub

在 DeleteESDChildren 中，我处理删除所有相关的 ESDNode。我删除了与此函数中的错误无关的所有代码。 这是那个函数：

Public Function DeleteESDChildren(lngID As Long)
  Dim rst_Del As Recordset
  Set rst_Del = CurrentDb.OpenRecordset("SELECT * FROM ESDNodes WHERE ESDNodeID = " & lngID)

  rst_Del.MoveFirst

  'Delete the head node
  If Not rst_Del.EOF Then
     rst_Del.Delete 
  End If
End Function

我用最简单的情况测试了这段代码，其中一个场景只有一个 ESDNode 并且 ESDNode 没有子节点。调用 rst_Del.Delete 的行，我希望删除这个奇异的 ESDNode。但是，当 Form_Delete 尝试 End Sub 声称“无法删除或更改记录，因为表 'ESDNodes' 包含相关记录”时，我收到错误消息。所以这个单一的 ESDNode 不会被删除。

显示我的表之间关系的屏幕截图

Answer 1

这可以使用 SQL 来实现

CurrentDb.Execute "DELETE * FROM ESDNodes WHERE ESDNodeID = " & lngID

Answer 2

看起来你陷入了循环。

Public Function DeleteESDChildren(lngID As Long)
    Dim rst As Recordset
    'find the children of the node
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM ESDNodes WHERE ParentID = " & lngID)

    'call deletechildren on each child in turn
    While Not rst.EOF
        DeleteESDChildren (rst!ESDNodeID) '<-- goes back to the beginning.
        rst.MoveNext
    Wend
    etc.