创建一个 +1 和 -1 按钮

Question

我想要一个可以将我的记录数据增加 1 或减少 1 的按钮。

Table 是：Sellables
字段是：QtyOnHand
表格文字为：txtQOH

这是我的尝试：

Private Sub cmdQOHAdd_Click()
On Error GoTo Err_cmdQOHAdd_Click

    Dim x As Integer
    x = Me.txtQOH.Value + 1 = Me.txtQOH.Value
    Refresh

Exit_cmdQOHAdd_Click:
    Exit Sub

Err_cmdQOHAdd_Click:
    MsgBox Err.Description
    Resume Exit_cmdQOHAdd_Click

End Sub

Answer 1

假设字段 QtyOnHand 绑定到文本框 txtQOH（即 QtyOnHand 是 Control Source 控件 txtQOH) 并假设您的表单允许编辑，那么以下内容就足够了：

Private Sub cmdQOHAdd_Click()
    Me.txtQOH.Value = Me.txtQOH.Value + 1
End Sub

创建一个 +1 和 -1 按钮

Creating a +1 and -1 button

ms-access

vba

ms-access-forms