ms-access - MS Access 查找并更新另一个字段

Question

我从条码扫描仪接收数据，如下所示。我需要从 ID 字段填充 BoxID（类型 = 整数）。

这是期望的结果 - ID 唯一地标识了盒子：

标签： ms-accessvba

Answer 1

假设数据是一致的，请考虑：

Sub SetBoxID()
Dim rs As DAO.Recordset, intID As Integer
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1 ORDER BY ID")
While Not rs.EOF
    If rs!Type = "Box" Then 
       intID = rs!ID
    ElseIf rs!Type = "Desp" Then
        rs.Edit
        rs!BoxID = intID
        rs.Update
    End If
    rs.MoveNext
Wend
End Sub