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

来源:计算机等级考试    发布时间:2012-08-28    计算机等级考试视频    评论

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

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答