• 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à! big green
    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à! big green
    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à! big green
    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à! big green
    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à! big green
    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à! big green
  • 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!