在窗体上放一文本框用来输入时间，另放两个按钮，一个开始，一个结束
当在文本框中输入时间后单击开始按钮则开始播放。单击停止则停止
以下是代码

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

(责任编辑：admin)

• ·Access窗体居中显示技巧
• ·Access中Tab键的使用说明【技巧】
• ·Access粘贴对象到Tab选卡上的技巧
• ·Access在窗体上显示当前记录和总记录数
• ·Access隐藏组合框的小箭头
• ·Access窗体属性表
• ·【技巧】Access选项组边框变为圆角边框
• ·Access函数me.sfmsub.form 提示子窗体
• ·Access中使用缩放对话框显示文本框文字
• ·access技巧-中文显示星期几的简单方法
• ·Access控件是否可见,可编辑,锁定的技巧
• ·根据查找窗体设定的条件筛选主窗体的数
• ·父子窗体的语法介绍
• ·access实现组合框联动详细教程
• ·Web Service在Access中的应用技巧
• ·Access窗体最大化，最小化等操作