vba - Access 2010 VBA引用表中的单个字段

Question

我目前正在从事一个项目，我必须为 Sweet Company/批发商创建一个原型系统。在我的客户订单详细信息表格中，我有一个组合框来选择订购的库存商品是“已分配”还是“已发货”。我想拥有它，这样一旦选择了“已发货”，就不能再改回来。我尝试在 VBA 中编码，以便一旦选择组合框更改为启用 = false。然而，问题是系统中的每个客户订单都会发生变化。我的代码如下所示：

Private Sub OrderStatus_Click()
    If OrderStatus = "Shipped" Then
        OrderStatus.Enabled = False
    End If

    ' etc
End Sub

有没有办法在不影响每个客户订单的情况下引用属性“订单状态”（即已发货或已分配）的单个实例？请帮忙！

Answer 1

您可以为 On_Current() 在表单中添加一个事件，这样每当您切换到新记录时，它都会检查是否应为该记录启用组合框。

Private Sub On_Current()
    If OrderStatus = "Shipped" Then
        OrderStatus.Enabled = False
    else
        OrderStatus.Enabled = True
    End If
end Sub