Question

谁能给我指出正确的方向。我创建了一个带有主键的表格，其中包括自动编号，条形码和数量。条形码字段设置为不允许重复。我创建了一个仅包含条形码的表格，我将使用条形码扫描仪读取条形码。我的问题是，如果我扫描已经存在的条形码，是否可以将+1添加到数量字段中，而不会出现重复的错误。

这个想法只是扫描每个项目，它将为您计算库存。

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

MS Access基本盘点

1 个答案: