ACC: Làm thế nào để phát hiện thời gian nhàn rỗi người dùng hoặc không hoạt động

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:128814
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
Vừa phải: Đòi hỏi vĩ mô cơ bản, mã hóa, và kỹ năng khả năng tương tác.
TÓM TẮT
Bài viết này cho bạn thấy làm thế nào để tạo một thủ tục mà sẽ chạy nếu của bạnỨng dụng Microsoft Access không phát hiện bất kỳ đầu vào người sử dụng cho một quy địnhkhoảng thời gian.

Bài viết này giả định rằng bạn đã quen thuộc với Visual Basic choCác ứng dụng và với việc tạo ra các ứng dụng Microsoft Access bằng cách sử dụng cáccông cụ lập trình được cung cấp với Microsoft Access. Để biết thêm thông tinvề Visual Basic cho các ứng dụng, hãy tham khảo "tòa nhàHướng dẫn sử dụng các ứng dụng".

Lưu Ý: Visual Basic for Applications (được sử dụng trong Microsoft Access 7.0 vàMicrosoft Access 97) được gọi là truy cập cơ bản phiên bản 2.0.

Lưu Ý: Bài này giải thích một kỹ thuật đã chứng minh trong mẫutác phẩm, FrmSampl.exe (cho truy cập của Microsoft cho Windows 95 Phiên bản 7.0)và FrmSmp97.exe (cho Microsoft truy cập 97). Để biết thông tin về làm thế nàođể có được những tập tin mẫu, xin vui lòng xem các bài viết sau đây trong cácCơ sở kiến thức Microsoft:
150895 ACC95: Tạo Microsoft Access mẫu thành có sẵn trong tải về Trung tâm
175066 ACC97: Microsoft truy cập 97 mẫu dạng có sẵn trong tải về Trung tâm
THÔNG TIN THÊM

Làm thế nào để tạo ra các hình thức DetectIdleTime

  1. Tạo ra một hình thức trống mà không dựa trên bất kỳ bảng hoặc truy vấn và đặt tên là DetectIdleTime.
  2. Đặt thuộc tính hình thức sau đây:
    OnTimer: [Sự kiện thủ tục]
    TimerInterval: 1000
    Lưu Ý: Các thiết lập TimerInterval chỉ ra như thế nào thường (trong mili giây) các ứng dụng kiểm tra cho người sử dụng không hoạt động. Thiết đặt của 1000 bằng 1 Thứ hai.
  3. Nhập mã sau đây cho thủ tục sự kiện bất động sản OnTimer:

    Lưu Ý: trong mẫu mã sau đây, một gạch dưới (_) vào cuối của một dòng được sử dụng như một ký tự tiếp tục dòng. Loại bỏ gạch dưới từ cuối dòng khi tái tạo mã này trong tiếp cận cơ bản.
          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. Tạo thủ tục sau đây trong mẫu module:
           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						

Làm thế nào để sử dụng các hình thức DetectIdleTime

Để ẩn các hình thức DetectIdleTime khi ứng dụng mở ra, tạo ra cácsau AutoExec vĩ mô:
   Macro Name   Action   ---------------------   AutoExec     OpenForm   AutoExec Actions   ----------------------------   OpenForm:      Form Name: DetectIdleTime      View: Form      Filter Name:      Where Condition:      Data Mode: Edit      Window Mode: Hidden				
Bạn có thể thêm mã vào thủ tục IdleTimeDetected vì vậy các thủ tụcchạy nếu không có không có hoạt động người dùng cho số tiền của thời gian quy định tại cácIDLEMINUTES giá trị liên tục. Ví dụ, bạn có thể truy cập Microsoftbỏ thuốc lá với thủ tục sự kiện sau đây:

Trong Microsoft Access 7.0 và 97:
   Sub IdleTimeDetected (ExpiredMinutes)      Application.Quit acSaveYes   End Sub				
Trong Microsoft Access 2.0:
   Sub IdleTimeDetected (ExpiredMinutes)      Application.Quit A_SAVE   End Sub				
Thủ tục này gây ra Microsoft Access để thoát khỏi ứng dụng, tiết kiệm tất cảcác đối tượng mà không hiển thị một hộp thoại.
THAM KHẢO
Để biết thêm chi tiết về sự kiện này hẹn giờ, tìm kiếm chỉ mục trợ giúp choBộ đếm thời gian tổ chức sự kiện.

Thuộc tính

ID Bài viết: 128814 - Xem lại Lần cuối: 12/04/2015 11:14:44 - Bản sửa đổi: 2.0

Microsoft Access 2.0 Standard Edition, Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbhowto kbprogramming kbusage kbmt KB128814 KbMtvi
Phản hồi