Đá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
  Dùng phím mũi tên bàn phím để di chuyển tiến lùi record (Class module) ongke0711 1 200 09-01-19, 12:19 AM
Bài mới nhất: khuuquytrung
  Sắp xêp, lọc dữ liệu trong Continuous Form dùng Class ongke0711 7 344 04-01-19, 01:55 AM
Bài mới nhất: ongke0711
  Câu lệnh nào ẩn button trong form? William 15 1,417 26-12-18, 12:39 PM
Bài mới nhất: ongke0711
  [Lỗi] Access không chạy được code minhminh25767 7 395 20-12-18, 07:41 PM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Khóa phím shift + khóa phím F11 + Khóa VBA Cuong Servenet 0 134 10-12-18, 09:45 AM
Bài mới nhất: Cuong Servenet

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