Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Me.子窗体.SetFocus ‘子窗体获得焦点
DoCmd.GoToControl "A" ’A字段获得焦点
DoCmd.GoToRecord , , acFirst ‘第一行
line:
DoCmd.GoToRecord , , acNext ’下一行
GoTo line: ‘继续进入下一行
Err_Command2_Click: ’利用错误事件停止循环
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024