一个窗体能否实现这么多要求？？？

一点通

也不一定要增加一列库存数的,在填写出库数量的更新后事件中用DSum查找库存的数据是否小于目前的出库数量,如果是的话弹出提示,并列出目前的库存数,同时出库数据自动改为库存数就OK

goto2008

。。。。。你身边有没有什么例子吗，能传一个让我学学吗？

一点通

Private Sub 数量_AfterUpdate()
    Dim 库存数量 As Long
    库存数量 = DSum("[数量]", "明细表", "[类别]&[产品]&[规格]='" & [类别] & [产品] & [规格] & "'")
    If 库存数量 < 数量 Then
        MsgBox "出库数量大于库在数量,该产品的库存数量只有 " & 库存数量 & " ,你只有按这个数量出库", , "系统提示"
        Me.数量 = 库存数量
    End If
End Sub

goto2008

这一招有点管用。。。谢谢！

接下来还有问题会继续发上来请教大家。。