如何自动“播放”数据库记录
3 e+ U2 Q; Y a9 t3 e- z解决方法如下(harsonliao)：
0 h; l* X7 R# b8 d4 V6 Z# X9 _ 在窗体上放一文本框用来输入时间，另放两个按钮，一个开始，一个结束- s, p6 P. |8 U9 h
当在文本框中输入时间后单击开始按钮则开始播放。单击停止则停止 H# f0 M5 a. S$ c5 W9 y
以下是代码
k7 a, t9 K8 n8 R2 Y% Y, m. p, m Private Sub FORM_Load()
* _6 Q8 [) v' U* r$ m Me.TimerInterval = 0$ P3 z) z5 T! c4 R7 z* n9 S
End Sub+ U) a: K2 F# p7 O9 t4 v1 N$ F
Private Sub FORM_Timer()( J( M. K: U+ }/ Y7 Q
On Error GoTo Exit_Err
e; O( p$ B1 _2 ~5 I& h( ^ DoCmd.GoToRecord , , acNext7 U. |+ N5 q1 m! H" V
Exit Sub' \) T. c6 @$ Q. I3 u7 _
Exit_Err:$ D' V- s% H" s9 J! ]
Me.TimerInterval = 0
& c& R8 Y. i% C G: Q MsgBox "已到记录尾"
- F0 L/ @; q1 e8 U End Sub
# \ k) b K+ ]/ O: n. m Private Sub 命令12_Click()
/ h7 u, R4 g& ? If IsNull(Me.txtTime) Or Me.txtTime < 1000 Then
( g& [ u7 a1 U) C: O+ ~ Me.TimerInterval = 1000
2 z% O. Z# z. U6 Y( n2 g7 ]2 s& I& M Else. G; B7 t! l4 s; A0 r6 f% W& P# v
Me.TimerInterval = Me.txtTime
' V) t% x; g" D5 [4 Y1 B End If
9 c- |* h. l& i* O7 r4 @/ n End Sub
, y2 G9 ?. G% D3 S" c3 u5 Y) d Private Sub 命令13_Click()
6 P. ?, r; S# S5 t Me.TimerInterval = 0
) [1 ?/ }$ l7 e% q3 l End Sub |
发表于 2012-7-31 22:26:35
