如何自动“播放”数据库记录
, A& ^) u4 e; B" G' c$ ^解决方法如下(harsonliao):
, p S5 ~/ t0 o 在窗体上放一文本框用来输入时间,另放两个按钮,一个开始,一个结束
% [# {$ u1 x, L' N. Q! o 当在文本框中输入时间后单击开始按钮则开始播放。单击停止则停止
5 D: G5 E, Z! O, m 以下是代码( b5 k! ?# _9 W# w1 i) ]
Private Sub FORM_Load()
1 }1 i/ r5 H3 G2 {& k* @+ X Me.TimerInterval = 0
* E( w4 d, _* _ End Sub" a9 _8 T! w' r/ h' P
Private Sub FORM_Timer()
! i$ b5 ]$ X! {) X4 A: | On Error GoTo Exit_Err
5 n4 q" f* M% G% B' D DoCmd.GoToRecord , , acNext0 {* q+ x. m+ |! O9 d, e- R3 r% {% A% K
Exit Sub
J9 O5 ^1 O2 F; E3 t6 x Exit_Err:& N7 o9 |4 v) H0 r+ m
Me.TimerInterval = 0& y" v8 c) u; i4 l. C/ ~& n
MsgBox "已到记录尾"7 L/ S3 N) T4 B( Z; z' I7 C+ B& e
End Sub
7 L( V3 {9 C$ Z1 O" c Private Sub 命令12_Click()
7 s& d: T4 V. s6 `8 _/ z4 S If IsNull(Me.txtTime) Or Me.txtTime < 1000 Then1 t: W% j2 m) J% T+ K
Me.TimerInterval = 1000" o F$ k% d% B; Q1 R, n1 G
Else
/ z; W1 S4 s3 g9 B( A+ H! F+ u Me.TimerInterval = Me.txtTime
A; Z4 f: O! ~* y5 A H: q0 F End If) }- I5 [' u: D2 w# s0 Z
End Sub
9 r z* q7 H, `9 N Private Sub 命令13_Click()9 K( f( z# u' H" o3 Z# a
Me.TimerInterval = 0
- a- {) e4 L, [3 _2 @ End Sub |