标题: 请教！谢谢 [打印本页] 作者: tolearn 时间: 2002-10-24 05:43 标题: 请教！谢谢 我正在做一个销售窗体，要对售出数量进行控制，不能大于库存量！
操作时输入大于库存量的数会弹出一个出错的警告！但纪录还存在！我不知道用什么函数删除这一行！
代码如下：
Private Sub 售出数量_AfterUpdate()
On Error GoTo Err_售出数量_AfterUpdate
Dim longNumber1 As Long
Dim longNumber2 As Long
Dim strFilter As String
Me![售出数量].SetFocus
longNumber1 = Me![售出数量]
strFilter = "[药品编码] = '" & Me![药品编码] & "'"
longNumber2 = Nz(DLookup("[库存量]", "库存查询", strFilter), 0)
If longNumber1 > longNumber2 Then
If MsgBox("库存余额不足！", vbOKCancel, "错误！") = vbOK Then
Me![售出数量].SetFocus
Else
Me![售出数量].SetFocus
End If
End If
Exit_售出数量_AfterUpdate:
Exit Sub
Err_售出数量_AfterUpdate:
MsgBox Err.Description
Resume Exit_售出数量_AfterUpdate
End Sub 作者: aban 时间: 2002-10-24 14:08
你这段程序不要放在AfterUpdate事件,把它改放在BeforeUpdate事件中.
然后把以下的语句:
If longNumber1 > longNumber2 Then
If MsgBox("库存余额不足！", vbOKCancel, "错误！") = vbOK Then
Me![售出数量].SetFocus
Else
Me![售出数量].SetFocus
End If
End If
改为:
If longNumber1 > longNumber2 Then
msgbox "库存余额不足！", , "错误！"
Me.Undo
Cancel = True
Exit Sub
End If
即可。