能按时间倒计时自动关闭的窗体

sgrshh29

计时10秒.

Private Sub Command6_Click()
    Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
    If m = 0 Then
        m = 10
    End If
        m = m - 1
    If m = 0 Then
      DoCmd.Close
      Exit Sub
    End If
End Sub