MS Access库存订单：如何引用查询字段实现库存不足预警？

一、修复现有方案的字段引用错误 #

你原代码的问题是没有从qryCheckCurrentStock查询中实际读取Total字段的值，而且打开查询的操作完全多余（不需要显示查询结果）。以下是两种可行的修复方式：

方式1：用DLookup快速获取库存值 #

DLookup是Access内置的单值查询函数，适合这种获取单个字段值的场景：

Private Sub OrderQuantity_AfterUpdate()
    Dim currentStock As Integer
    ' 根据当前选择的ItemCode，从查询中获取Total值，Nz处理无结果的情况，默认返回0
    currentStock = Nz(DLookup("Total", "qryCheckCurrentStock", "ItemCode = '" & Me.ItemCode & "'"), 0)
    
    If currentStock < 0 Then
        Beep
        MsgBox "商品库存不足！", vbExclamation, "提示"
        ' 清空输入框并聚焦，引导用户重新输入
        Me.OrderQuantity = ""
        Me.OrderQuantity.SetFocus
    End If
End Sub

注意：如果ItemCode是数字类型，去掉条件里的单引号，改成"ItemCode = " & Me.ItemCode

方式2：用DAO记录集读取查询结果 #

如果你的查询逻辑复杂（比如涉及多表关联），用记录集更灵活：

Private Sub OrderQuantity_AfterUpdate()
    Dim rs As DAO.Recordset
    Dim totalStock As Integer
    
    ' 打开筛选后的查询记录集
    Set rs = CurrentDb.OpenRecordset("SELECT Total FROM qryCheckCurrentStock WHERE ItemCode = '" & Me.ItemCode & "'")
    
    ' 读取Total值
    If Not rs.EOF Then
        totalStock = Nz(rs!Total, 0)
    Else
        totalStock = 0 ' 未找到对应商品，视为无库存
    End If
    
    rs.Close
    Set rs = Nothing
    
    ' 库存校验逻辑
    If totalStock < 0 Then
        Beep
        MsgBox "商品库存不足！", vbExclamation, "提示"
        Me.OrderQuantity = ""
        Me.OrderQuantity.SetFocus
    End If
End Sub

二、其他防止负库存的可靠方案 #

1. 表层面设置有效性约束 #

直接在库存表的库存数字段添加有效性规则，从根源阻止负库存：

• 打开库存表的设计视图，找到库存数字段
• 在「有效性规则」中输入>=0，「有效性文本」输入“库存不能为负数”
• 这样任何试图将库存更新为负值的操作都会被Access直接拦截并提示错误

2. 订单提交时批量校验 #

如果希望在员工提交整个订单时统一校验所有商品的库存，而不是单个数量框更新时校验：

Private Sub btnSubmitOrder_Click()
    Dim rs As DAO.Recordset
    Dim itemCode As String
    Dim orderQty As Integer
    Dim currentStock As Integer
    
    ' 假设订单用子表单管理商品，遍历子表单的所有记录
    Set rs = Me.OrderSubform.Form.RecordsetClone
    Do While Not rs.EOF
        itemCode = rs!ItemCode
        orderQty = rs!OrderQuantity
        
        ' 获取当前商品的库存数量（这里直接查库存表，比用查询更高效）
        currentStock = Nz(DLookup("StockQuantity", "InventoryTable", "ItemCode = '" & itemCode & "'"), 0)
        
        If currentStock < orderQty Then
            Beep
            MsgBox "商品 " & itemCode & " 库存不足，当前库存：" & currentStock & "，下单数量：" & orderQty, vbExclamation, "提示"
            rs.Close
            Set rs = Nothing
            Exit Sub ' 终止订单提交
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    ' 校验通过，执行订单保存和库存更新逻辑
    MsgBox "订单提交成功！", vbInformation, "提示"
    ' 这里添加你的订单保存、库存扣减代码
End Sub

3. 表单实时显示当前库存 #

在订单表单中添加一个文本框，让员工输入数量前就能看到当前库存：

• 添加文本框，设置其「控件来源」为：=DLookup("StockQuantity", "InventoryTable", "ItemCode = '" & [ItemCode] & "'")
• 选择商品后，该文本框会自动显示对应库存，从源头减少误操作

内容的提问来源于stack exchange，提问作者user23492600