Chủ đề: Code khóa phím Shift
-
12-12-2009, 06:37 PM #1Junior 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:
- Có cách nào để chặn ghi trùng dữ liệu trong Access không mọi người ơi?
- Tính tổng tiền kiểu gì bây giờ?
- Đi tìm đường dẫn của BACK END
- Mong các bác giúp đỡ
- Máy chủ vừa là máy khác
- Làm sao để tắt chế độ Read Only khi mở file Access qua mạng Lan ?
- Hỏi query Xuất Nhập Tồn
- Không đánh biến vào các Qerry nữa
- Cho mình hỏi về Link table qua mạng Lan với
- Lấy giá trị từ combo box
-
12-12-2009, 06:45 PM #2Silver 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 #3Junior 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 #4Junior 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 #5Silver 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 #6Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 6
Ðề: Code khóa phím Shift
Gửi bởi phuyen89
Giá thu hẹp vùng kín và thu hẹp vùng kín ở đâu tốt nhất Đà Nẵng? Đây là chủ đề được rất nhiều chị em quan tâm, trong quá trình tìm hiểu để làm đẹp vùng tam giác nhớ thương của mình. Hãy cùng tìm hiểu...
Giá Thu Hẹp Vùng Kín và Thu Hẹp Vùng Kín Ở Đâu Tốt Nhất Đà Nẵng