Office中国论坛/Access中国论坛

标题: 如何阻止恶意出库呢? [打印本页]

作者: LIXIANACCP 时间: 2006-3-11 01:06
标题: 如何阻止恶意出库呢?
在出库录入窗体中,写了下代码,在库存量不足时,尽管有提示!但仍未能阻止人为的有意(恶意)出库行为!我想达到,库存不足时,不仅仅有提示,而且不能保存这条不符合规定的出库记录!

Private Sub 数量_AfterUpdate()
Me.金额 = Me.出库单价 * Me.数量

Dim intsl As Single
Dim strpm As String
strpm = Me.货号
intsl = DLookup("数量", "库存表", "货号='" & strpm & "'")
If Me.数量 > intsl Then
MsgBox "当前库存不够出库，请变更数量后再确定保存!", , "取消出库！"
Me.Undo
Exit Sub
End If
End Sub[attach]16327[/attach]

[此贴子已经被作者于2006-3-10 17:08:45编辑过]

作者: ly 时间: 2006-3-11 02:08
标题: Undo方法必须在更新窗体或控件前应用
Undo方法必须在更新窗体或控件前应用。可以在窗体的 BeforeUpdate 事件或控件的 Change 事件中包含该方法。

作者: LIXIANACCP 时间: 2006-3-11 05:29

以下是引用ly在2006-3-10 18:08:00的发言：
Undo方法必须在更新窗体或控件前应用。可以在窗体的 BeforeUpdate 事件或控件的 Change 事件中包含该方法。

怎么改?!

!帮一把吧!

作者: 一点通 时间: 2006-3-11 05:58
[attach]16332[/attach]

作者: LIXIANACCP 时间: 2006-3-11 06:18

以下是引用一点通在2006-3-10 21:58:00的发言：
[attach]16332[/attach]

巧妙+精练!

对你的无私奉献,我无限感激!!

作者: netcmcc 时间: 2008-7-21 00:15
我看看

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