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

11/10/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