-
Chặn xoay chuột để tới lui record
Noname > 13-08-10, 09:39 PM
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:
Mã: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 -
RE: Chặn xoay chuột để tới lui record
chihienphuco > 27-10-10, 11:21 AM
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà!
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà!
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà!
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà!
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà!
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà!
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui long khong xoay chuot!!"
On Error Resume Next
Select Case Sgn(Count)
Case Is = 1
DoCmd.GoToRecord record:=acPrevious
Case Is = -1
DoCmd.GoToRecord record:=acNext
End Select
End Sub
Tìm được được rồi, nó không báo lỗi khi xoay chuột xuống nữa, cám ơn cả nhà! -
RE: Chặn xoay chuột để tới lui record
sonlt1978 > 30-09-11, 05:47 PM
(13-08-10, 09:39 PM)Noname Đã viết: 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:
Mã: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
Tuyệt lắm. Dùng cái này code yên tâm hơn. Nhân viên nhập cứ thích dùng chuột, xong hỏi: "Cái ấy của em đâu mất rồi ?" -
RE: Chặn xoay chuột để tới lui record
NganDinhNguyen > 15-07-13, 09:14 PM
(13-08-10, 09:39 PM)Noname Đã viết: Chặn xoay chuột để tới lui record
Nó cứ báo lỗi ở dòng này "DoCmd.GoToRecord , , acPrevious" bạn ơi
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:
Mã: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 -
RE: Chặn xoay chuột để tới lui record
paulsteigel > 15-07-13, 09:51 PM
Mình sử dụng code từ trang này
http://www.everythingaccess.com/tutorial...s-forms#S5
và sửa lại thành 1 lớp (class) để sử dụng cho tiện. Với Office 2007 trở lên thì không cần phải làm gì vì thiết lập ngăn chặn bánh xe được quản lý chặt. Nhưng với Office 2003 trở về trước thì việc xoay bánh xe chuột là một khiếm khuyết và đã có khá nhiều người bàn tán về vấn đề này.
Giải pháp ở trang web trên là một giải pháp khá hoàn chỉnh và ổn định. Cách sử dụng Class này đơn giản:
1. Bạn Import file đính kèm vào dự án của bạn;
2. Trong code của form thêm các đoạn code sau:
Trong sự kiện On_Open bạn thiết lập chế độ Hook cho ClassMã PHP:'===Đoạn khai báo để kích hoạt Class
Private MouseWheelHook As New clsScrollHook
3. Bạn có thể bật, tắt chế độ khóa bánh xe bằng lệnhMã PHP:Set MouseWheelHook=Me
hoặc True.Mã PHP:MouseWheelHook.Scrollable=False
Xin chia sẻ một cách như vậy!