解决方法如下（harsonliao）：
在窗体上放一文本框用来输入时间，另放两个按钮，一个开始，一个结束
当在文本框中输入时间后单击开始按钮则开始播放。单击停止则停止
以下是代码
Private Sub FORM_Load()
Me.TimerInterval = 0
End Sub
Private Sub FORM_Timer()
On Error GoTo Exit_Err
DoCmd.GoToRecord , , acNext
Exit Sub
Exit_Err:
Me.TimerInterval = 0
MsgBox "已到记录尾"
End Sub
Private Sub 命令12_Click()
If IsNull(Me.txtTime) Or Me.txtTime < 1000 Then
Me.TimerInterval = 1000
Else
Me.TimerInterval = Me.txtTime
End If
End Sub
Private Sub 命令13_Click()
Me.TimerInterval = 0
End Sub |
