在 ms 访问公式中有条件地增加 ID

Question

我有一个 MS 访问公式，其中提供了一些信息。 对于“状态”Combobox，有几个选项，如“1”、“2”、“3”、“4”。 如果在“cbx_Status”中选择了“4”，那么我想在文本框“txt_ID_Order”中添加一个自动增加的 ID，并在文本框“txt_OrderTime”中给出一个订购时间。 这就是为什么我写这个并且效果很好：

 Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.cbx_Status.Value = "4" Then
            Me.txt_OrderTime = Now()
            Me.txt_ID_Order = DMax("[ID_Order]", "tblX") + 1
    Else: 
          Me.txt_ID_Order=""
          Me.txt_OrderTime = ""
        End If
    End Sub

但是，如果状态“4”由于某种原因被更改并再次被选中，我想保留那个旧 ID。 但我知道我这样做了，它仍在增加 ID。 我该如何解决？ 谢谢

Answer 1

检查一个值：

Private Sub Form_BeforeUpdate(Cancel As Integer)

    If Me!cbx_Status.Value = "4" Then
        If IsNull(Me!txt_OrderTime.Value) Then
            Me!txt_OrderTime.Value = Now()
            Me!txt_ID_Order.Value = DMax("[ID_Order]", "tblX") + 1
        End If
    Else
        Me!txt_ID_Order.Value = Null
        Me!txt_OrderTime.Value = Null
    End If

End Sub

虽然不确定逻辑； 如果您输入 select 不是4 ，文本框将被清除。