ACC: 사용자 유휴 시간 또는 비활성 검색 방법

기술 자료 번역 기술 자료 번역
기술 자료: 128814 - 이 문서가 적용되는 제품 보기.
보통: 기본적인 매크로, 코드 작성 및 상호 운용성 기술이 필요합니다.
모두 확대 | 모두 축소

이 페이지에서

요약

이 문서에서는 Microsoft Access 응용 프로그램 일정 기간 동안 사용자 입력이 검색하지 못하면 실행되는 프로시저를 만드는 방법을 보여 줍니다.

이 문서에서는 VBA 및 Microsoft Access에서 제공하는 프로그래밍 도구를 사용하여 Microsoft Access 응용 프로그램을 만드는 알고 있다고 가정합니다. 응용 프로그램에 대한 VBA에 대한 자세한 내용은 "응용 프로그램" 설명서를 참조하십시오.

참고: 버전 2.0 VBA (Microsoft Access 7.0 및 Microsoft Access 97 사용되는) 액세스 기본 호출됩니다.

참고: 이 문서에서는 예제 파일 (Windows 95 버전 7.0 Microsoft Access) 에 대한 FrmSampl.exe 및 FrmSmp97.exe (예: Microsoft Access 97) 에 설명된 기술을 설명합니다. 이러한 예제 파일을 구하는 방법에 대한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
150895ACC95: Access 샘플 다운로드 센터에서 사용 가능한 폼
175066ACC97: Microsoft Access 97 예제 양식 사용 가능한 다운로드 센터에서

추가 정보

DetectIdleTime 양식을 만드는 방법

  1. 어떤 테이블이나 쿼리를 기반으로 빈 폼 만들기 및 DetectIdleTime 이름.
  2. 다음 양식 속성을 설정하십시오.
    OnTimer: [이벤트 프로시저]
    TimerInterval: 1000
    참고: 설정을 빈도를 나타냅니다 (밀리초)이 TimerInterval 응용 프로그램은 사용자 비활성 확인합니다. 1000 설정하여 1 초 값과 같습니다.
  3. OnTimer 속성을 이벤트 프로시저에 다음 코드를 입력하십시오.

    참고: 다음 샘플 코드에서는 인 줄 끝의 밑줄 (_)은 줄 연속 문자로 사용됩니다. Access 기본 이 코드를 다시 작성할 때는 줄 끝에서 밑줄을 삭제하십시오.
          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 폼을 숨기려면 다음 자동 실행 매크로를 만들:
   Macro Name   Action
   ---------------------
   AutoExec     OpenForm

   AutoExec Actions
   ----------------------------
   OpenForm:
      Form Name: DetectIdleTime
      View: Form
      Filter Name:
      Where Condition:
      Data Mode: Edit
      Window Mode: Hidden
				
IDLEMINUTES 상수 값으로 지정된 시간 동안 사용자의 활동이 없으면 프로시저가 실행되도록 IdleTimeDetected 프로시저에 코드를 추가할 수 있습니다. 예를 들어, 다음 이벤트 프로시저를 종료합니다 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
				
이 절차는 모든 개체 저장 대화 상자를 표시하지 않고 응용 프로그램을 종료하기 위해 정지됩니다.

참조

타이머 이벤트에 대한 자세한 내용은 도움말 색인에서에 대한 타이머 이벤트 를 검색하십시오.

속성

기술 자료: 128814 - 마지막 검토: 2007년 1월 19일 금요일 - 수정: 2.3
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
키워드:?
kbmt kbhowto kbprogramming kbusage KB128814 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.
더 이상 지원되지 않는 제품의 KB 내용에 대한 고지 사항
이 문서에서는 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