从B窗循环追加记录到A窗的样例代码
时间：2009-05-19 08:57 来源：accessbbs 作者：tan9698 阅读：次
有时我们办理货物出仓业务时，经常要从历史进仓资料或库存资料中调用数据，我们可以在出仓主窗体的下半部分即靠近明细出仓子窗体的位置增加一个查询进仓数据或库存数据的子窗体，从中选择一条或多条记录转为出仓记录，如在进仓资料中查找一份单据后，所有进仓记录要转为出仓数据时，下面这段代码可以帮到你：
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
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
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
最新内容