Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

10/11/09

Chặn xoay chuột để tới lui record

Chặn xoay chuột để tới lui record
Thiết kết trên Form mình đã tắc Record Selector để không cho tới lui các Record đã nhập trước đó, nhưng khi dùng nút giữa xoay chuột nó vẫn chạy tới lui.

Hỏi: Làm sao để chặn thao tác xoay chuột "Cuộn lên xuống bằng nút xoay trên Mouse".

Đáp: Form Wheel
Trong sự kiện xoay chuột, ta chèn code này vào:

Code:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Can't use Wheel Button"
If Count = -3 Then
DoCmd.GoToRecord , , acNext
Else
DoCmd.GoToRecord , , acPrevious
End If
End Sub

2 nhận xét:

  1. Nặc danh13:55 6/10/11

    Bạn ơi sao mà khi chạy nó báo lỗi dòng này bạn xem lại dùm mình nhé
    DoCmd.GoToRecord , , acPrevious

    Trả lờiXóa
  2. Nặc danh12:05 30/4/12

    CHẠY CHƯONG TRÌNH TOÀN BÁO LỖI DoCmd.GoToRecord , , acPrevious

    Trả lờiXóa

» Hãy để lại tên, email của bạn khi bạn post comment, để mình có thể dễ dàng trả lời comment của bạn khi cần.
» Có thể sử dụng các thẻ < b>,< i>,< a>. Và các icon thông dụng trên YM