Đá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
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 12 1,412 23-03-19, 08:04 AM
Bài mới nhất: ongke0711
  Hướng Dẫn So sánh Access và ASP windowforms Cuong Servenet 7 423 11-03-19, 04:49 PM
Bài mới nhất: lmthu
  [Help] Nhờ mọi người giúp Đóng gói file access thành file cài đặt ngochieu8109 1 250 20-02-19, 03:05 PM
Bài mới nhất: vuthaiha90
  [Help] Filter trong .ACCDB Cuong Servenet 1 189 08-02-19, 09:04 AM
Bài mới nhất: ongke0711
  Dùng phím mũi tên bàn phím để di chuyển tiến lùi record (Class module) ongke0711 1 312 09-01-19, 12:19 AM
Bài mới nhất: khuuquytrung

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| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối