追加查询
从B窗循环追加记录到A窗的样例代码
2009-05-19 08:57:54
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