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

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
我这段代码，在不锁定更新后，会出现两次提示，但后一个不应该出现的，该如何处理呀

xulanghui

谢谢站长！

tmtony

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

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

xulanghui

请看示例