[求助]为什么这个6秒后没有自动关闭？

secowu

Private Sub Form_Load()

If Time() < #1:13:35 PM# Then



我想在这里加入三个时间段：

1.12：30-13：00

2.17：30-18：00

3.20：00以后

只有在这三个时间段里才会弹出这个要求延时密码

Me.TimerInterval = 0

Else

Me.TimerInterval = 1000

a = 0

bb = 0

End If

End Sub

Private Sub Form_Timer()



If Time() > #1:13:35 PM# Then

我想在这里加入三个时间段：

1.12：30-13：00

2.17：30-18：00

3.20：00以后

只有在这三个时间段里才会弹出这个要求延时密码

    a = a + 1

   

If a = 2 Then

   Dim delaypw As String

delaypw = InputBox("现在是非工作时间" & vbCr & vbCr & "系统将会自动关闭" & vbCr & vbCr & "请输入延时密码" & vbCr & vbCr & "6秒后未输入密码将关闭", "输入延时密码")

    bb = 0

    bb = bb + 1

If bb = 6 Then

DoCmd.Quit acPrompt

ElseIf delaypw = "jessie" Then

Me.TimerInterval = 0

Exit Sub

Else

MsgBox "密码错误,现在将关闭系统", vbInformation, "警示"

DoCmd.Quit acPrompt

End If

End If

End If

End Sub

[此贴子已经被作者于2005-11-19 15:34:19编辑过]

secowu

这个时间段的定义用数组会不会更好？

secowu

设置这个的主要目的是：防止用户非正常关机导致的后台数据库损坏