MS Access查找和更新另一个字段

Question

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

这是理想的结果-ID唯一标识该框：

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