求助解决：窗体记录锁定及统计运算符的方式

xulanghui

在实际工作中遇到的情况，请高手帮解决，谢谢！

xulanghui

请看示例

tmtony

if me.锁=0 then
   执行删除操作
end if

后面的问题:
结果=eval(工作量统计)

xulanghui

谢谢站长！

xulanghui

Private Sub Command55_Click()
If MsgBox("此操作将清除您在本工程表三工作量中的原始数据,您确认吗？", vbYesNo) = vbYes Then

'执行你的操作

Else

Exit Sub

End If
If Me.工作量锁 = 0 Then
DoCmd.OpenForm "提示", acNormal, "", "", , acNormal
DoCmd.SetWarnings False
    DoCmd.OpenQuery "表三录入表清空", acViewNormal, acEdit
    DoCmd.OpenQuery "表三录入表更新", acViewNormal, acEdit
    DoCmd.SetWarnings True
    DoCmd.Close acForm, "提示"
    MsgBox "输出成功！！！", vbInformation, "提示"
    End If
    MsgBox "本单据已锁定，不能更新，如需更新请到表三录入中解锁！", vbInformation, "提示"
End Sub
我这段代码，在不锁定更新后，会出现两次提示，但后一个不应该出现的，该如何处理呀