Phân quyền truy cập menu trong Access

Mình đã giới thiệu với các bạn chương trình phân quyền
thiet-ke-ctrinh-phan-quyen
Mình cũng giới thiệu các bạn cách bạn cách tạo 1 thanh menu
huong-dan-tao-menu-trong-access.html
Hôm nay mình xin giới thiệu cách để hiển thị 1 menu với user này và ẩn với user khác.

Ẩn/ Hiện các đối tượng trong Access

Show / Hide Object ( tables, querys, forms, reports )
Question : Làm thế nào để có thể ẩn nhiều abngr cùng lúc.Hay là ta phải chọn từng bảng rôi ẩn.Vì trong CSDL có nhiều bảng mà ẩn từng cái bảng một thì rất là lâu.Tưng tụ với Form hay Report

Đăng nhập sai 5 lần chờ 15 phút

Question :Thấy các diễn đàn chỉ cho đăng nhạp 5 lần,nếu sai thì 15 phút sau mới cho đang nhập lại.Thế thì mình nghĩ ra ý tương rằng,cái này chúng ta có thể áp dụng trong Form đăng nhập được không.Điều kiện:
 Đăng nhập sai 5 lần thì dù có đăng nhập đúng đi chăng nữa cũng không vào đuợc CSDL.

Lấy về số seri CPU, ổ cứng MainBoard trong Access

Đôi khi có 1 số nhu cầu lấy thông tin phần cứng trong chương trình (chẳng hạn để cấp bản quyền). Dưới đây là Đoạn Code cho phép bạn lấy thông tin CPU máy tính:

thao tác với registry

Đôi khi bạn có nhu cầu làm việc với registry trong Access, ví dụ lưu vị trí form, lưu đường dẫn mặc định để lấy dữ liệu. Hoặc lưu username mặc định, kiểm tra 1 computer có phải lần đầu tiên sử dụng chương trình không... Mọi việcsẽ dễ dàng hơn nhiều nếu bạn thao tác với registry....

Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa

(bài này là ý tưởng của bạn hungtano)

Hỏi:

Tôi đã xây dựng xong CT nhân sự (C:\QLNS.mdb). Tôi tạo 1 custom menu bar, giấu đi Main menu của Access, tạo form startup, disable phím Shift để không ai có thể mở được cửa sổ database. Sau một thời gian CT bị lỗi nhưng hỡi ơi tôi lại quên viết code enable phím Shift nên không tài nào mở của sổ database, mở cửa sổ viết code để sửa lại CT. Tôi phải làm sao đây ?

Đáp:

Rất đơn giản, bạn tạo 1 file .mdb mới , viết code để can thiệp vào file QLNS.mdb, enable phím Shift.

Cách làm:

Trong file .mdb mới, bạn tạo 1 form, tạo 1 command button và :

Private Sub EnableSHIFTButton_Click()

On Error GoTo ErrHandler

Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase("C:\QLNS.mdb")
db.Properties("AllowBypassKey") = True
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
End If
End Sub

Thảo luận thêm: http://thuthuataccess.com/forum

Phân quyền sửa Chương trình trong Access

Hỏi
Bạn nào có biết cách phân quyền sử dụng trong Access không chỉ cho mình với. Có nghĩa là với chương trình mình tạo ra thì chỉ có mình mới có thể sửa source code được, có thể sửa design... được thôi, người sử dụng chỉ được quyền sử dụng và không có quyền truy cập vào source code cũng như table... để sửa chương trình. Ở bên mình mọi người cũng có kiến thức về Access nên biết là cứ bấm F11 là vào được data của chương trình.

Đáp

Trích:

Nguyên văn bởi hungtano Bạn phải làm 2 việc : 1) Vào Tools --> Startup : bỏ chọn tất cả các check box trên biểu mẫu này. (không cho users sử dụng các phím tắt) Còn muốn triệt để hơn, không cho xem code thì .mdb --> .mde 2) Disable phím SHIFT Nguyên lý : trong database có 1 thuộc tính (property) gọi là : AllowBypassKey. Thuộc tính này cho phép bạn enable/disable phím SHIFT. + Nếu AllowBypassKey = False --> disable phím SHIFT + Nếu AllowBypassKey = True --> enable phím SHIFT Cách làm : bạn tạo 1 Form (tạm gọi : F_ShiftKey) có 2 nút lịnh : 1 để enable và 1 disable phím SHIFT. Đưa 2 private sub dưới đây vào.......... Private Sub DisableSHIFTButton_Click() On Error GoTo ErrHandler Dim db As Database Dim ThuocTinh As Property Set db = CurrentDb db.Properties("AllowBypassKey") = False Set db = Nothing Egress: On Error Resume Next Set db = Nothing Set ThuocTinh = Nothing Exit Sub ErrHandler: MsgBox Err.Number If Err.Number = 3270 Then ' Property not found. Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, False) db.Properties.Append ThuocTinh Resume Next Else MsgBox Err.Description Resume Egress End If End Sub ================================================= Private Sub EnableSHIFTButton_Click() On Error GoTo ErrHandler Dim db As Database Dim ThuocTinh As Property Set db = CurrentDb db.Properties("AllowBypassKey") = True Set db = Nothing Egress: On Error Resume Next Set db = Nothing Set ThuocTinh = Nothing Exit Sub ErrHandler: MsgBox Err.Number If Err.Number = 3270 Then ' Property not found. Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True) db.Properties.Append ThuocTinh Resume Next Else MsgBox Err.Description Resume Egress End If End Sub ++++++++++++++++++++++++++++++++++++++++++++++++++ OK chưa bạn ? .............................................. Chưa đâu ! Bây giờ đặt F_ShiftKey ở đâu trong chương trình để không ai được quyền mở ngoại trừ Admin ? Có nhiều cách : cách đơn giản nhất là đặt ….ở đâu cũng được với 1 điều kiện : để mở F_ShiftKey cần phải biết password. Ở sự kiện Form_Open, bạn yêu cầu nhập đúng password : Lambada mới cho mở form này. Private Sub Form_Open(Cancel As Integer) Dim Message, Title, MyValue Message = "Ban vui long cho biet mat khau :" ' Set prompt. Title = "Kiem tra" ' Set title. MyValue = InputBox(Message, Title) If MyValue <> "Lambada" Then DoCmd.Close End If End Sub

[right] Nguồn Từ : Khoa Học Phổ Thông.
Website : http://www.khoahocphothong.net [/right]

Thảo luận thêm: http://thuthuataccess.co.cc/forum