Question

access表形式窗体中，光标在A字段中自动下移

请教各位，access表形式窗体中，光标自动从第一记录A字段自动移动到最后记录A字段，用按钮执行，点一次循环执行一次

Answer 1

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

追问

谢谢您的解答，我还有点疑问，如何设置循环，当焦点移动到最后一条记录后，自动停止循环并结束，该怎么写比较好。

追答

我的代码是使用 goto 循环的
你也可以使用for ，do...loop循环，本质都一样