Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Khoá phím shift + khóa Design View trong access
#1
Có anh chị nào biết cách khóa phím shift với khóa không cho Design View trong access thì chỉ em với
trường hợp muốn xem fai có nhập mật khẩu 
Ngoài ra có cách nào khóa đc bảng bằng code ko nhỉ?
em cảm ơn ạ
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Code VBA khóa và mở khóa shift:
Khóa:
Mã:
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

Mở khóa:

Mã:
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
Theo tôi biết thì chỉ có ẩn container giao diện access startup/ bỏ check Display Database Windows. Khi ẩn sẽ không ai còn thấy table nữa. Khóa shift thì phải xủ lý cách mở shift chứ nếu không thì khóa luôn cả mình đó
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cuong Servenet , maidinhdan , NguyenDungAnh


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách tạo Cbo để lọc các mặt hàng trong Sub Form samacxanh 3 256 17-10-18, 10:33 AM
Bài mới nhất: vulhu06
  Tạo thêm trường số thứ tự trong subform? feeling 1 119 05-10-18, 08:08 AM
Bài mới nhất: cpucloi
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 9 642 25-09-18, 12:00 PM
Bài mới nhất: ledangvan
  [Help] Làm sao để tạo form import dữ liệu từ exel sang table access? hoanglong 2 205 14-09-18, 10:20 AM
Bài mới nhất: duynamvnn1208
  [Help] Sự kiện gotforcus và after update ko đúng trong Main-sub form NguyenDungAnh 9 388 09-09-18, 11:03 PM
Bài mới nhất: NguyenDungAnh

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line