Chủ đề: Code khóa phím Shift
-
12-12-2009, 06:37 PM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Code khóa phím Shift
Như chúng ta đã biết dùng Form đăng nhập để mà phân quyền sử dụng cho ngưòi dùng.Nhưng nó có một nhuợc điểm là chỉ cần nhấn phím SHIFT khi mở FIle là toàn bộ code bị bung ra hết.Do đó em cần Code để mà vô hiệu hóa phím SHIFT.[you] có hãy POST cho em tham khảo với.Em xin cảm ơn!
View more random threads:
- Hỏi xuất dữ liệu Access sang Excel để in!
- Thiết lập mối quan hệ dữ liệu kiểu gì đây nhỉ?
- Quản lý mua bán hàng - Phần 4: Thiết kế form
- Làm đông hồ đếm ngược trong Access
- Nhờ a Phatnq2002 nhặt số liệu từ các table
- Giúp em làm VBA Access bằng form đăng ký
- Làm sao Combobox lấy dữ liệu cột thứ 2 của bản
- Help: linktable bi loi code VBA
- Hỏi về cách tô màu từ tìm kiếm và mở 1 form mới từ form trước đó
- xin hỏi cách tìm record giống nhau giữa hai table
-
12-12-2009, 06:45 PM #2
Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 13
Ðề: Code khóa phím Shift
Cậu này hay nghịch máy tính quá ta, nhưng phải như vậy mới thành tài được
cái này anh sưu tầm thôi thử thử nha
' Function disables shift key
Public Function Disable_ShiftKey()
Dim db As Database
Dim prp, prptest As Property
On Error GoTo Err_Handler
Set db = CurrentDb
For Each prptest In db.Properties
If prptest.Name = "AllowBypassKey" Then
db.Properties.DELETE "AllowBypassKey"
Exit For
End If
Next prptest
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
db.Properties.Append prp
db.Properties.Refresh
MsgBox "Disable Shift Key succeeded!", vbInformation
Set db = Nothing
Set prp = Nothing
Err_Exit:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & " ! " & Err.description, vbCritical
Resume Err_Exit
End Function
' Function enables shift key
Public Function Enable_ShiftKey()
Dim db As Database
Dim prp, prptest As Property
On Error GoTo Err_Handler
Set db = CurrentDb
For Each prptest In db.Properties
If prptest.Name = "AllowBypassKey" Then
db.Properties.DELETE "AllowBypassKey"
Exit For
End If
Next prptest
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True, True)
db.Properties.Append prp
db.Properties.Refresh
MsgBox "Enable Shift Key succeeded!", vbInformation
Set db = Nothing
Set prp = Nothing
Err_Exit:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & " ! " & Err.description, vbCritical
Resume Err_Exit
End Function
(sưu tầm )
-
12-12-2009, 07:02 PM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 1
Ðề: Code khóa phím Shift
Gửi bởi truongthon
-
12-12-2009, 10:59 PM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code khóa phím Shift
Gửi bởi phuyen89
formQuantrij có 4 đoạn code là:
- form_Opend: 1 là mật khẩu mở form.
- cmdDisableShift_click(): là khóa SHIFT
- cmdEnableShift_click(): là mở SHIFT
- cmdThoat_Click(): Thoát.
-
12-12-2009, 11:42 PM #5
Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 23
Ðề: Code khóa phím Shift
Gửi bởi haquocquan
-
12-13-2009, 12:28 AM #6
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 6
Ðề: Code khóa phím Shift
Gửi bởi phuyen89
The Gate Pod là địa chỉ hàng đầu tại Hà Nội trong lĩnh vực kinh doanh thuốc lá điện tử, nổi bật với sự chuyên nghiệp và cam kết về chất lượng sản phẩm. Với hơn một thập kỷ hoạt động, chúng tôi đã...
Mua Pod System và Tinh dầu Salt Nic Chất lượng tại Hà Nội