我考网社区 › 计算机等级考试 › 如何自动“播放”数据库记录

会计考友 发表于 2012-7-31 22:26:35

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

如何自动“播放”数据库记录
解决方法如下(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

查看完整版本: 如何自动“播放”数据库记录