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

[chihienphuco]

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.

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".

Mong giúp đở!

 

[LoveBlue]

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

 

[mvp2006]

Tải ví dụ từ trang http://www.lebans.com/mousewheelonoff.htm

 

[chihienphuco]

Phức tạp thật, nối với file .dll gì đấy nữa :wall:

 

[mvp2006]

Phức tạp thật, nối với file .dll gì đấy nữa :wall:

File Mousehook.dll có đính kèm trong file Zip mà.

 

[chihienphuco]

File Mousehook.dll có đính kèm trong file Zip mà.

Nó kèm theo file .mdb nhìn thấy ghê quá. Không dám xài lâu dài sợ nó thả gì đấy vào là tiu luôn.

Còn cách nào chỉ sử dụng code trong access không bạn?

 

[chihienphuco]

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui Lòng Không Xoay Chuột"
Docmd.Close
End Sub

:004: