Question

【ACCESS】VBA代码判断表的记录为最后一个记录

做一个对每个表中的记录做重复执行同一VBA代码的操作，使用计时器事件，希望实现当表记录到达最后一个记录时，TimerInterval=0,。如何在下面的代码加入这个判断记录到达最后一个的条件，谢谢

Private Sub Form_Timer()

DoCmd.RunMacro "宏1"

If 条件 Then
TimerInterval = 0

End If

End Sub

Answer 1

定义一个recordset对象，使用其EOF属性判断到达最后一条记录
dim rst as dao.recordset
set rst = OpenRecordset("表名")
With rst
.MoveFirst
Do While Not .EOF
DoCmd.RunMacro "宏1"
If .EOF Then
TimerInterval = 0
End If
.MoveNext
Loop
End With