MS Access Базовая инвентаризация

Question

Может кто-нибудь, пожалуйста, укажите мне в правильном направлении.Я создал таблицу с первичным ключом, как автоматический номер, штрих-код и кол-во.Поле штрих-кода не имеет дубликатов.Я создал форму только со штрих-кодом, которую я буду использовать для считывания штрих-кода.Вопрос, который у меня возникает, - если я сканирую уже существующий штрих-код, есть ли способ добавить +1 к полю qty вместо того, чтобы получить ошибку дублирования.

Идея состоит в том, чтобы просто сканировать каждый элементи он рассчитает запас для вас.

Answer 1

Сканирование штрих-кода эквивалентно вводу данных штрих-кода с помощью клавиатуры и затем нажатия клавиши Enter.Итак, добавьте в форму кнопку, установите для свойства Default кнопки значение Yes и добавьте к своей кнопке обработчик OnClick примерно так:

Private Sub cmdScan_Click()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from Barcodes where Barcode='" & Me.txtBarcode & "'")

    With rst
        If .RecordCount = 0 Then
            .AddNew
            !Barcode = Me.txtBarcode.Value
            !Qty = 1
        Else
            .Edit
            !Qty = !Qty + 1
        End If
        .Update
    End With

    rst.Close
    Set rst = Nothing
End Sub