从B窗循环追加记录到A窗的样例代码

有时我们办理货物出仓业务时，经常要从历史进仓资料或库存资料中调用数据，我们可以在出仓主窗体的下半部分即靠近明细出仓子窗体的位置增加一个查询进仓数据或库存数据的子窗体，从中选择一条或多条记录转为出仓记录，如在进仓资料中查找一份单据后，所有进仓记录要转为出仓数据时，下面这段代码可以帮到你：

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