【ACCESS】VBA代码判断表的记录为最后一个记录
做一个对每个表中的记录做重复执行同一VBA代码的操作，使用计时器事件，希望实现当表记录到达最后一个记录时，TimerInterval=0,。如何在下面的代码加入这个判断记...
做一个对每个表中的记录做重复执行同一VBA代码的操作，使用计时器事件，希望实现当表记录到达最后一个记录时，TimerInterval=0,。如何在下面的代码加入这个判断记录到达最后一个的条件，谢谢
Private Sub Form_Timer()
DoCmd.RunMacro "宏1"
If 条件 Then
TimerInterval = 0
End If
End Sub 展开
Private Sub Form_Timer()
DoCmd.RunMacro "宏1"
If 条件 Then
TimerInterval = 0
End If
End Sub 展开
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
