删除记录代码请教

niwj

If (Me![业务员]) <> Me![Text24] Then
MsgBox "请检查此单据的业务员", vbOKOnly, "你没有权限修改此单据!"
        Me![业务员].SetFocus
            Exit Sub
Else
    If Rs.RecordCount < 1 Then
        Exit Sub
    End If
    Rs.MoveFirst
    For i = 1 To Rs.RecordCount
        If Rs("计划单号") = Me![来料单据_采购]![计划单号] And Rs("来料批次") = Me![来料单据_采购]![来料批次] Then
            Rs.Delete 1
            Exit For
        Else
            Rs.MoveNext
        End If
    Next i
    MsgBox "来料批次：" & Me![来料批次] & "的资料已经删除完成！", vbOKOnly, "删除完成"
    Me![来料单据_采购].Requery
    Set Rs = Nothing

zhengjialon

问题是什么?出错信息?单是这样是看不出你的问题的.

niwj

执行红字的程序后，为什么记录还是被删除了？

Exit Sub 不是退出吗，怎么还往下执行呢？

是不是哪里出了问题？

zhengjialon

应该不会的,可能代码有其它地方你没有注意,你可以跟踪调试一下你的程序看看.

niwj

不使用当前事件，直接点击删除按钮，记录被删除了！但是先点击单据号，一切正常！
这是怎么回事呢？代码写好？？大家帮我看看！

一点通

将

If (Me![业务员]) <> Me![Text24] Then

改为

If Nz([业务员]) <> Me![Text24] Then