如何阻止恶意出库呢?

LIXIANACCP

在出库录入窗体中,写了下代码,在库存量不足时,尽管有提示!但仍未能阻止人为的有意(恶意)出库行为!我想达到,库存不足时,不仅仅有提示,而且不能保存这条不符合规定的出库记录!

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

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

ly

Undo方法必须在更新窗体或控件前应用。可以在窗体的 BeforeUpdate 事件或控件的 Change 事件中包含该方法。

LIXIANACCP

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

怎么改?!

!帮一把吧!

一点通

LIXIANACCP

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

巧妙+精练!

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

netcmcc

我看看