Office中国论坛/Access中国论坛

标题: 請教一下:如何將"Me.txtSeconds "改成一個固定數字, 如5分鐘 [打印本页]

作者: andySI 时间: 2014-11-3 18:38
标题: 請教一下:如何將"Me.txtSeconds "改成一個固定數字, 如5分鐘
Private Sub Form_Timer()
m_LII.cbSize = Len(m_LII)
GetLastInputInfo m_LII

If (GetTickCount() - m_LII.dwTime) \ 60000 = Me.txtSeconds Then
      If Me.fraOperateType = Me.optLock.OptionValue Then
         DoCmd.OpenForm "frmLockSystem"
      Else
         DoCmd.OpenForm "frmQuitCountdown", OpenArgs:="QuitSystem"
      End If
Else
      On Error Resume Next
      DoCmd.Close acForm, "frmQuitCountdown"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.TimerInterval = 0
End Sub

Private Sub txtSeconds_AfterUpdate()
If Nz(Me.txtSeconds, 0) <= 0 Then
      Me.txtSeconds = 0
      Me.TimerInterval = 0
End If
If Me.txtSeconds > 60 Then
      Me.txtSeconds = 60
Else
      Me.txtSeconds = Int(Me.txtSeconds)
End If
End Sub
---------------------------------------------------------------

作者: tmtony 时间: 2014-11-3 21:45
If (GetTickCount() - m_LII.dwTime) \ 60000 = Me.txtSeconds Then
改为
If (GetTickCount() - m_LII.dwTime) \ 60000 = 5 Then

作者: andySI 时间: 2014-11-4 10:57
Private Sub txtSeconds_AfterUpdate()
   If Nz(Me.txtSeconds, 0) <= 0 Then
      Me.txtSeconds = 0
      Me.TimerInterval = 0
   End If
   If Me.txtSeconds > 60 Then
      Me.txtSeconds = 60
   Else
      Me.txtSeconds = Int(Me.txtSeconds)
   End If
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)