access每格1秒刷新文本框数据

在按纽的click中,怎么实现每隔1秒 ,窗体中一个文框的内容变化
比如:

for i=1 to 20
me.Tex_mytex=i
next i

实现每1秒或间隔一定时间 Tex_mytex中内容随i变化

在窗体上添加TIMER控件。 示例：
Public dte
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 8000
 dte = DateAdd("n", 2, Now())
End Sub

Private Sub Form_Timer()
If Now() > dte Then
        MsgBox "这里可以执行某段代码"
        End If
End Sub 如楼上

Me.TimerInterval = 1000  '1000ms=1s