khóa phím shift trong access

[qtlong]

Có bạn nào đã từng thử cho tôi hỏi: Sao tôi dùng lệnh này để khóa phím shift trên Access 2016 nhưng vẫn không chặn được vậy.

ChangeProperty "AllowBypassKey", dbBoolean, False

Tôi tham khảo ở đây: http://danketoan.com/threads/lap-trinh-bao-mat-co-so-du-lieu-access.611/
và ở đây nữa: http://echip.com.vn/bao-mat-tap-tin-mdb-a20130403140743564-c1108.html

Không biết lệnh này trên 2003 và 2016 có khác gì không ạ.

Thanks.

 

[http2]

tạo một modules rồi lưu file với tên : "thietlapbm" với nội dung bên dưới .

Public Sub ThietLapBaoMat(propname As String, _
Propdb As Variant, prop As Variant)
'Set passed ******* property.
Dim dbs As Object
Dim prp As Object
Set dbs = CurrentDb
On Error Resume Next
dbs.Properties(propname) = prop
If Err.Number = 3270 Then
Set prp = dbs.CreateProperty(propname, _
propdb, prop)
dbs.Properties.Append prp
End If
Set dbs = Nothing
Set prp = Nothing
End Sub

sau khi bạn lưu xong thì tạo 2 commanbutton.
1 đặt tên là "cmdOpenShift" chép đoạn code bên dưới vào

Private Sub CmdOpenShift_Click()
On Error Resume Next
Call ThietLapBaoMat("AllowBypassKey", dbBoolean, True)
Call ThietLapBaoMat("AllowSpecialKeys", dbBoolean, True)
End Sub

2 đặt tên là "cmdDisableShift" chép đoạn code bên dưới vào

Private Sub CmdDisableShift_Click()
On Error Resume Next
Call ThietLapBaoMat("AllowBypassKey", dbBoolean, False)
Call ThietLapBaoMat("AllowSpecialKeys", dbBoolean, False)
End Sub

vậy là bạn có 2 commandbutton 1 khóa và 1 mở lại .
chúc bạn ngày mới vui vẻ !