ACC: ????? ??? ??? ???? ???????? ?? ??? ??????

?????? ????????? ?????? ?????????
???? ???????: 128814 - ??? ???????? ???? ????? ????? ??? ???????.
??????: ????? ????? ???????? ????? ? ???????? ??????? ??????? ????????.
????? ???? | ?? ????

?? ??? ??????

??????

???? ??? ?????? ????? ????? ????? ???? ???? ?????? ??? ?? ???? ????? Microsoft Access ?? ????? ???????? ????? ????? ?? ?????.

????? ??? ??????? ???? ?????? ?? Visual Basic for Applications ?????? ????? ??????? Microsoft Access ??????? ????? ??????? ???????? ?? Microsoft Access. ????? ?? ????????? ??? Visual Basic for Applications ?????? ?????? ??? ???? "????? ???????".

??????: Visual Basic for Applications (???????? ?? Microsoft Access 7.0 ? Microsoft Access 97) ???? ?? Access Basic ?? ??????? 2.0.

??????: ???? ??? ?????? ????? ?? ????? ?? ????? ?????? FrmSampl.exe (?? Microsoft Access ?? Windows 95 ??????? 7.0) ? FrmSmp97.exe (?? Microsoft Access 97). ?????? ??? ??????? ??? ????? ?????? ??? ??? ??????? ????? ?????? ?????? ???????? ??????? ?? "????? ????? Microsoft:
150895ACC95: ??????? ???????? ????? Microsoft Access ?? ???? ???????
175066ACC97: Microsoft Access 97 ????? ??????? ???????? ?? ???? ???????

??????? ????

????? ????? ????? DetectIdleTime

  1. ????? ????? ???? ?? ????? ??? ?? ???? ?? ??????? ?? ??? DetectIdleTime.
  2. ????? ????? ??????? ???????:
    OnTimer: [????? ???]
    TimerInterval: 1000
    ??????: TimerInterval ???? ??? ????? ??? ???? (??????? ?????) ??????? ????? ???????? ??? ??????. ????? ????? 1000 ????? ?????.
  3. ???? ???????? ???????? ??????? ????? ????? OnTimer ???????:

    ??????: ?? ????? ????????? ???????? ?????? ? ???? ????? (_) ?? ????? ??? ??? ??????? ??? ?????? ???. ?? ?????? ????? ???? ????? "?? ????? ????? ??? ????? ????? ??? ???????? ???????? ?? ?? Access Basic.
          Sub Form_Timer()
             ' IDLEMINUTES determines how much idle time to wait for before
             ' running the IdleTimeDetected subroutine.
             Const IDLEMINUTES = 5
    
             Static PrevControlName As String
             Static PrevFormName As String
             Static ExpiredTime
    
             Dim ActiveFormName As String
             Dim ActiveControlName As String
             Dim ExpiredMinutes
    
             On Error Resume Next
    
             ' Get the active form and control name.
    
             ActiveFormName = Screen.ActiveForm.Name
             If Err Then
                ActiveFormName = "No Active Form"
                Err = 0
             End If
    
             ActiveControlName = Screen.ActiveControl.Name
                If Err Then
                ActiveControlName = "No Active Control"
                Err = 0
             End If
    
             ' Record the current active names and reset ExpiredTime if:
             '    1. They have not been recorded yet (code is running
             '       for the first time).
             '    2. The previous names are different than the current ones
             '       (the user has done something different during the timer
             '        interval).
             If (PrevControlName = "") Or (PrevFormName = "") _
               Or (ActiveFormName <> PrevFormName) _
               Or (ActiveControlName <> PrevControlName) Then
                PrevControlName = ActiveControlName
                PrevFormName = ActiveFormName
                ExpiredTime = 0
             Else
                ' ...otherwise the user was idle during the time interval, so
                ' increment the total expired time.
                ExpiredTime = ExpiredTime + Me.TimerInterval
             End If
    
             ' Does the total expired time exceed the IDLEMINUTES?
             ExpiredMinutes = (ExpiredTime / 1000) / 60
             If ExpiredMinutes >= IDLEMINUTES Then
                ' ...if so, then reset the expired time to zero...
                ExpiredTime = 0
                ' ...and call the IdleTimeDetected subroutine.
                IdleTimeDetected ExpiredMinutes
             End If
          End Sub
    						
  4. ????? ??????? ?????? ?? ?????? ??????? ???????:
           Sub IdleTimeDetected (ExpiredMinutes)
             Dim Msg As String
             Msg = "No user activity detected in the last "
             Msg = Msg & ExpiredMinutes & " minute(s)!"
             MsgBox Msg, 48
          End Sub
    						

????? ??????? ????? DetectIdleTime

?????? ??????? DetectIdleTime ??? ??? ??????? ?????? ????? AutoExec ???????:
   Macro Name   Action
   ---------------------
   AutoExec     OpenForm

   AutoExec Actions
   ----------------------------
   OpenForm:
      Form Name: DetectIdleTime
      View: Form
      Filter Name:
      Where Condition:
      Data Mode: Edit
      Window Mode: Hidden
				
????? ????? ????????? ???????? ?? ??????? IdleTimeDetected ???? ??? ????? ??????? ??? ??? ???? ?? ???? ???????? ?????? ????? ?????? ?? ???? ????? IDLEMINUTES. ??? ???? ??????? ????? ??? Microsoft Access ????? ?? ????? ????? ??????:

?? Microsoft Access 7.0 ? 97:
   Sub IdleTimeDetected (ExpiredMinutes)
      Application.Quit acSaveYes
   End Sub
				
?? Microsoft Access 2.0:
   Sub IdleTimeDetected (ExpiredMinutes)
      Application.Quit A_SAVE
   End Sub
				
???? ??? ??????? Microsoft Access ?????? ??????? ??? ???? ???????? ???? ??? ???? ????.

?????

????? ?? ????????? ??? ????? Timer ????? "???? ?????????" ?? ????? Timer.

???????

???? ???????: 128814 - ????? ??? ??????: 29/?? ?????/1427 - ??????: 2.3
????? ???
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
????? ??????: 
kbmt kbhowto kbprogramming kbusage KB128814 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????128814
????? ??????? ?? ????? ???? ?? ????? ???????
?? ????? ????? ?????? ???? ???? ???? ??? ??????? ??? ?? ? ?? ??? ??????? Microsoft ??? ????? ??? ??????? ????? ?????? ?????

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com