Đánh giá chủ đề:
  • 3 Votes - 4.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Chặn xoay chuột để tới lui record
#1
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn sonlt1978 , NganDinhNguyen , Thuan99
#2
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
Chữ ký của chihienphuco Xin chào! Mình là chihienphuco, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn Noname , NganDinhNguyen
#3
(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 ?"
Chữ ký của sonlt1978 Xin chào, mình là sonlt1978, Tham gia http://thuthuataccess.com/forum từ ngày 06-09 -11.
Reply
Những người đã cảm ơn Noname , NganDinhNguyen
#4
(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
Chữ ký của NganDinhNguyen Xin chào, mình là NganDinhNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -13.
Reply
Những người đã cảm ơn
#5
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!


File đính kèm
.zip   clsScrollHook.zip (Kích cỡ: 4.83 KB / Tải về: 46)
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 13 542 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 494 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Không cho hiện thông báo khi xóa record nguyenbalai 13 4,814 07-01-15, 02:55 AM
Bài mới nhất: MatTroiNguQuen
  Ngăn chặn không cho Access tự động lưu record Xuân Thanh 15 5,485 04-11-13, 04:39 PM
Bài mới nhất: vocsiit
  [Thủ Thuật] update nhiều record trong bảng với 1 query ht03 15 5,093 12-05-13, 03:39 PM
Bài mới nhất: Minh Tiên

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ