(已解决)请问For循环不能正常结束的原因

koutx

有表1和nrb两个表，表1中有pID字段，nrb中有id字段。表1窗体的数据源是表1，为连续窗体。通过Shift键选择2条连续的窗体记录并按Del删除时，希望连带删除nrb表中的对应id的记录。所用代码如下：
Private Sub Form_Delete(Cancel As Integer)
Dim n2 As Long
n2 = Me.SelHeight '选取的记录条数作为For循环的终点
For I = 1 To n2
    ‘MsgBox "I:    " & I & "    n2:    " & n2 & "    pID:    " & pID '监视循环参数及pID值的变化
   
    DoCmd.RunSQL "DELETE nrb.* FROM nrb WHERE id = " & Me.pID
   
    DoCmd.GoToRecord '使下一条记录成为当前
Next
End Sub
执行循环时，第一圈正确。见图一

第二圈时，循环控制值正确，但pID值仍是上一圈时的2。见图二

第三圈本不应再进行，但却未结束，I值从2又变回了1,pID值却变成了在第二圈就应变的4。见图三

最后的结果是两表中应删除的记录未按设想实现。
请高手帮助探讨并附例库。谢谢。

ui

是怎么解决的, 楼上给个答案呢

koutx

2# ui
不要For循环即可。

DoCmd.RunSQL "DELETE nrb.* FROM nrb WHERE id = " & Me.pID
     DoCmd.GoToRecord '使下一条记录成为当前