如何自动“播放”数据库记录？

解决方法如下(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