如何自动“播放”数据库记录?
解决方法如下(harsonliao):
在表单上放一个文本框输入时间,另外放两个按钮,一个是开始,一个是结束。
在文本框中输入时间后,单击开始按钮开始播放。单击停止停止。
这是代码。
私有子窗体_Load()
我。TimerInterval = 0
末端接头
私有子窗体_定时器()
出错时转到Exit_Err
DoCmd。GoToRecord,,acNext
出口接头
退出错误:
我。TimerInterval = 0
MsgBox“已到达记录末尾”
末端接头
私有子命令12_Click()
如果IsNull(Me.txtTime)或Me.txtTime < 1000,则
我。定时器间隔= 1000
其他
我。TimerInterval = Me.txtTime
如果…就会结束
末端接头
私有子命令13_Click()
我。TimerInterval = 0
结束Sub
0条评论