如何自動“播放”數據庫記錄？

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

位律師廻複