[求助]为什么这个6秒后没有自动关闭？ - Office中国论坛/Access中国论坛

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