Office中国论坛/Access中国论坛

标题: 求助解决：窗体记录锁定及统计运算符的方式 [打印本页]

作者: xulanghui 时间: 2010-7-19 21:10
标题: 求助解决：窗体记录锁定及统计运算符的方式
在实际工作中遇到的情况，请高手帮解决，谢谢！

作者: xulanghui 时间: 2010-7-19 21:14
请看示例

作者: tmtony 时间: 2010-7-19 21:47
if me.锁=0 then
执行删除操作
end if

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

作者: xulanghui 时间: 2010-7-20 08:01

谢谢站长！

作者: xulanghui 时间: 2010-7-20 09:11
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
我这段代码，在不锁定更新后，会出现两次提示，但后一个不应该出现的，该如何处理呀

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)