ACCESS问题???????

Question

access窗体的计时器触发事件里加入条件语句

Answer 1

Option Compare Database
Dim i As IntegerPrivate Sub Form_Load()
i = 1
Me.TimerInterval = 1000
End SubSub Form_Timer()
i = i + 1
If i > 10 Then        '10秒后关闭,这个值随便设
  DoCmd.Close
End If
End Sub
________________________
笨方法:)

Answer 2

还有更简单代码
Option Compare DatabasePrivate Sub Form_Load()
Me.TimerInterval = 10000   '此处可设时间数，当前为10秒
End SubSub Form_Timer()
  DoCmd.Close
End Sub