MS Access 基本盘点

Posted 2023-05-07

【中文标题】MS Access 基本盘点

【英文标题】：MS Access Basic Stock Take

【发布时间】：2019-05-20 08:02:47

【问题描述】：

谁能指出我正确的方向。我创建了一个主键为自动编号、条形码和数量的表。条形码字段设置为不允许重复。我已经创建了一个只有条形码的表格，我将使用条形码扫描仪来读取条形码。我的问题是，如果我扫描一个已经存在的条形码，无论如何都要在数量字段中添加 +1，而不是得到它重复的错误。

这个想法只是扫描每件商品，它会为您计算库存。

【参考方案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