• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

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

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Chặn xoay chuột để tới lui record
• Chặn xoay chuột để tới lui record

• 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
  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

  Nó cứ báo lỗi ở dòng này "DoCmd.GoToRecord , , acPrevious" bạn ơi

• 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:
  

  Mã PHP:

  '===Đoạn khai báo để kích hoạt Class
Private MouseWheelHook As New clsScrollHook 


  Trong sự kiện On_Open bạn thiết lập chế độ Hook cho Class
  

  Mã PHP:

  Set MouseWheelHook=Me 


  3. Bạn có thể bật, tắt chế độ khóa bánh xe bằng lệnh
  

  Mã PHP:

  MouseWheelHook.Scrollable=False 


  hoặc True.
  Xin chia sẻ một cách như vậy!
• Bài trước Bài tiếp