在窗体上放一文本框用来输入时间，另放两个按钮，一个开始，一个结束

　　当在文本框中输入时间后单击开始按钮则开始播放。单击停止则停止

　　以下是代码

　　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

　　相关链接：

　　2008年下半年全国计算机等级考试报名信息汇总

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛