请教！谢谢

tolearn

我正在做一个销售窗体，要对售出数量进行控制，不能大于库存量！
操作时输入大于库存量的数会弹出一个出错的警告！但纪录还存在！我不知道用什么函数删除这一行！
代码如下：
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

你这段程序不要放在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
即可。

Me.Undo??????是放弃输入。
Cancel = True???作用是告诉程序Update操作异常，不能离开该控件，必须=False才能离开。
Exit Sub????? 中止后面的程序强行退出。

tolearn

但超过库存的数据输入不了了，但正常的数据输入不了了！

aban

你把
longNumber2 = Nz(DLookup("[库存量]", "库存查询", strFilter), 0)
这一句改为：
longNumber2 = Nz(DSum("[库存量]", "库存查询", strFilter), 0)
即可！