Создание кнопки +1 и -1

Question

Мне нужна кнопка, которая увеличит мои данные записи на 1 или уменьшит на 1.

• Таблица: 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 является источником управления элемента управления txtQOH), и при условии, что ваша Форма разрешает редактирование, то должно быть достаточно:

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