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

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

这是所需的结果-ID唯一标识框：

---

假设数据一致，考虑：

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

---

这将需要VBA来打开和操作记录集。