有時我們辦理貨物出倉業務時，經常要從歷史進倉資料或庫存資料中調用數據，我們可以在出倉主窗體的下半部分即靠近明細出倉子窗體的位置增加一個查詢進倉數據或庫存數據的子窗體，從中選擇一條或多條記錄轉為出倉記錄，如在進倉資料中查找一份單據後，所有進倉記錄要轉為出倉數據時，下面這段代碼可以幫到你：
Sub AddRec()
'從B窗循環追加記錄到A窗的樣例代碼 With Me.子窗體控件B名稱.Form.Recordset
.MoveFirst
For x = 0
To .RecordCount - 1
Me.子窗體控件A名稱.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.子窗體控件A名稱.Form![字段1] = Me.子窗體控件B名稱.Form![字段1]
Me.子窗體控件A名稱.Form![字段2] = Me.子窗體控件B名稱.Form![字段2]
'……
.MoveNext
Next
End With
MsgBox Me.子窗體控件B名稱.Form.Recordset.RecordCount & "條記錄追加成功！", vbInformation, "結果提示"
End Sub
