Tùy chọn
Tạo Login Form cùng với Advanced Security Level
- Tạo Login Form cùng với Advanced Security Level
-
Tạo Login Form cùng với Advanced Security Level
Godspear > 12-01-17, 08:53 AM
chuyện là mình dg muốn thử tạo 1 Login Form với nhiều tầng bảo vệ, mình làm theo hướng dấn của video youtube : https://www.youtube.com/watch?v=gAKmPnAnXSM
ở file của mình, mình làm thành 4 loại:
Admin - Full access - toàn quyền
Gastroenterology - chỉ dc xem và chỉnh sửa các study của bộ phận này
Dermatology - chỉ dc xem và chỉnh sửa các study của bộ phận này
Guest - Chỉ đc xem
mình mới chỉ làm theo video, nhưng khi chạy thử thì bị thong báo lỗi như sau:
dg, ko biết là sai ở đâu, ko biết lỗi này là ntn, ai cao nhân chỉ giáo giúp với
mã Code mình xài :
Private Sub Command1_Click()
Dim User As String
Dim TempPass As String
Dim ID As Integer
Dim UserName As String
Dim TempLogin As String
Dim AccessLevel As Integer
Dim DepartmentID As Integer
If IsNull(Me.txtLoginID) Then
MsgBox "Please Enter LoginID", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "Please Enter Password", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
'process the job
If (IsNull(DLookup("LoginID", "tbl_user", "LoginID = '" & Me.txtLoginID.Value & "'"))) Or (IsNull(DLookup("Password", "tbl_user", "Password = '" & Me.txtPassword.Value & "'"))) Then
MsgBox "Incorrect LoginID or Password"
Else
TempLogin = Me.txtLoginID.Value
UserName = DLookup("[UserName]", "tbl_user", "LoginID = '" & Me.txtLoginID.Value & "'")
TempPass = DLookup("[Password]", "tbl_user", "LoginID = '" & Me.txtLoginID.Value & "'")
ID = DLookup("[UserID]", "tbl_user", "LoginID = '" & Me.txtLoginID.Value & "'")
AccessLevel = DLookup("[UserSecurity]", "tbl_user", "LoginID = '" & Me.txtLoginID.Value & "'")
DepartmentID = DLookup("[Department]", "tbl_user", "LoginID = '" & Me.txtLoginID.Value & "'")
DoCmd.Close
If (TempPass = "password") Then
MsgBox "First Login, Please change your password", vbInformation, "New Password Required"
DoCmd.OpenForm "UserLoginInfo", , , "[UserID] = " & ID
Else
DoCmd.OpenForm "Main Menu"
Forms![Main Menu]![txtLogin] = TempLogin
Forms![Main Menu]![txtSecurity] = AccessLevel
Forms![Main Menu]![txtUser] = UserName
Call Security(AccessLevel, DepartmentID)
End If
End If
End If
End If
End Sub
Sub Secutiry(UserLevel As Integer, DepartID As Interger)
Select Case UserLevel
Case 1 'Admin had full control, no restriction
Case 2, 3 ' Dermatology, Gastroenterology - view and edit on their own study
Case 4 'Guest - View Only
'Me.AllowEdits = True
MsgBox " You Logged in as Security Level = User " & DepartmentID = " & DepartID"
'MsgBox (DepartID)
Forms![Main Menu]!cmdUser.Enabled = False
End Select
End Sub
đậy là link file của mình, mọi người có thể vô down về xem cho rõ rang hơn
Link File: https://drive.google.com/open?id=0Byhaxb...k9STE9qYnc -
RE: Tạo Login Form cùng với Advanced Security Level
ongke0711 > 12-01-17, 10:40 AM
Để viết code VBA bạn nên biết sử dụng một số công cụ trong màn hình code.
- Compile Database: Vào menu Debug - Compile Database. Công cụ này giúp bạn tìm lỗi trong code bạn viết. Nó sẽ highlight màu vàng nhưng đoạn code bị sai và hiện message thông báo lỗi đó.
- Dùng “Option Explicit” để bắt buộc khai báo tường minh các biến. Nó sẽ báo lỗi cho bạn biết nếu bạn dùng 1 biến nào đó mà chưa khai báo. Thêm dòng này dưới dòng “Option Compare Database” (nằm đầu dòng của màn hình code VBA).
Trong code của bạn khi Compile code nó sẽ báo "User-defined type not defined" ở Sub Security(...)
-------------------------------------
Sub Secutiry(UserLevel As Integer, DepartID As Interger) ==> Sai chính tả ==> máy không hiểu toàn bộ cái Sub procedure này
Select Case UserLevel
Case 1 'Admin had full control, no restriction
Case 2, 3 ' Dermatology, Gastroenterology - view and edit on their own study
Case 4 'Guest - View Only
'Me.AllowEdits = True
MsgBox " You Logged in as Security Level = User " & DepartmentID = " & DepartID" ==> thiếu dấu nháy kép
'MsgBox (DepartID)
Forms![Main Menu]!cmdUser.Enabled = False
End Select
End Sub
-------------------------------------
- Code của bạn dư 1 cái "End If". -
RE: Tạo Login Form cùng với Advanced Security Level
Godspear > 12-01-17, 12:01 PM
(12-01-17, 10:40 AM)ongke0711 Đã viết: Để viết code VBA bạn nên biết sử dụng một số công cụ trong màn hình code.
- Compile Database: Vào menu Debug - Compile Database. Công cụ này giúp bạn tìm lỗi trong code bạn viết. Nó sẽ highlight màu vàng nhưng đoạn code bị sai và hiện message thông báo lỗi đó.
- Dùng “Option Explicit” để bắt buộc khai báo tường minh các biến. Nó sẽ báo lỗi cho bạn biết nếu bạn dùng 1 biến nào đó mà chưa khai báo. Thêm dòng này dưới dòng “Option Compare Database” (nằm đầu dòng của màn hình code VBA).
Trong code của bạn khi Compile code nó sẽ báo "User-defined type not defined" ở Sub Security(...)
-------------------------------------
Sub Secutiry(UserLevel As Integer, DepartID As Interger) ==> Sai chính tả ==> máy không hiểu toàn bộ cái Sub procedure này
Select Case UserLevel
Case 1 'Admin had full control, no restriction
Case 2, 3 ' Dermatology, Gastroenterology - view and edit on their own study
Case 4 'Guest - View Only
'Me.AllowEdits = True
MsgBox " You Logged in as Security Level = User " & DepartmentID = " & DepartID" ==> thiếu dấu nháy kép
'MsgBox (DepartID)
Forms![Main Menu]!cmdUser.Enabled = False
End Select
End Sub
-------------------------------------
- Code của bạn dư 1 cái "End If".
oh thank bạn nhiều, vs bạn ơi mình phân vân trong việc thiết lập làm sao để mà access có thể nhận diện được các đối tượng người dung khác nhau
ví dụ như là ng thuộc ban ngành Dermatology thì chỉ nhìn và chỉnh sửa các study của Dermatology Unit thôi
hoặc là User dạng Guest thì chỉ có thể xem dc các study, ko dc phép chỉnh sửa, thêm vào hoặc xóa study
admin thì thêm việc quản lý quyền hạn của ng dùng
dg rất phân vân ko biết nên làm thế nào, xem video youtube thì ko hiểu rõ lắm -
RE: Tạo Login Form cùng với Advanced Security Level
ongke0711 > 12-01-17, 12:48 PM
Về phân quyền nó cũng không phải đơn giản đâu.
Bạn xem link: http://thuthuataccess.com/forum/thread-8799.html -
RE: Tạo Login Form cùng với Advanced Security Level
Godspear > 13-01-17, 09:10 AM
(12-01-17, 12:48 PM)ongke0711 Đã viết: Về phân quyền nó cũng không phải đơn giản đâu.
Bạn xem link: http://thuthuataccess.com/forum/thread-8799.html
mình thử làm theo video trên youtube áp dung cho subform - tbl_subform
https://www.youtube.com/watch?v=xcAlJ9C8JIk
mã code
Dim User As String
Dim MyDept As Integer
Dim Task As String
User = Forms![Main Menu]!txtLogin.Value
MyDept = DLookup("Department", "tbl_user", "LoginID = '" & User & "'")
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = " & MyDept & ")"
Me.RecordSource = Task
End Sub
mà khi xài thử nó báo lỗi là : compile error method or data member not found going inside,
và nó bôi vang ở dòng này Me.RecordSource = Task
thế này là bị sao hả bạn ơi -
RE: Tạo Login Form cùng với Advanced Security Level
maidinhdan > 15-01-17, 01:00 AM
(13-01-17, 09:10 AM)Godspear Đã viết:
(12-01-17, 12:48 PM)ongke0711 Đã viết: Về phân quyền nó cũng không phải đơn giản đâu.
Bạn xem link: http://thuthuataccess.com/forum/thread-8799.html
mình thử làm theo video trên youtube áp dung cho subform - tbl_subform
https://www.youtube.com/watch?v=xcAlJ9C8JIk
mã code
Dim User As String
Dim MyDept As Integer
Dim Task As String
User = Forms![Main Menu]!txtLogin.Value
MyDept = DLookup("Department", "tbl_user", "LoginID = '" & User & "'")
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = " & MyDept & ")"
Me.RecordSource = Task
End Sub
mà khi xài thử nó báo lỗi là : compile error method or data member not found going inside,
và nó bôi vang ở dòng này Me.RecordSource = Task
thế này là bị sao hả bạn ơi
Lỗi phương thức, vui lòng post file để biết chi tiết. -
RE: Tạo Login Form cùng với Advanced Security Level
Godspear > 16-01-17, 06:39 AM
(15-01-17, 01:00 AM)maidinhdan Đã viết:
(13-01-17, 09:10 AM)Godspear Đã viết:
(12-01-17, 12:48 PM)ongke0711 Đã viết: Về phân quyền nó cũng không phải đơn giản đâu.
Bạn xem link: http://thuthuataccess.com/forum/thread-8799.html
mình thử làm theo video trên youtube áp dung cho subform - tbl_subform
https://www.youtube.com/watch?v=xcAlJ9C8JIk
mã code
Dim User As String
Dim MyDept As Integer
Dim Task As String
User = Forms![Main Menu]!txtLogin.Value
MyDept = DLookup("Department", "tbl_user", "LoginID = '" & User & "'")
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = " & MyDept & ")"
Me.RecordSource = Task
End Sub
mà khi xài thử nó báo lỗi là : compile error method or data member not found going inside,
và nó bôi vang ở dòng này Me.RecordSource = Task
thế này là bị sao hả bạn ơi
Lỗi phương thức, vui lòng post file để biết chi tiết.
mình sửa lại đoạn code thành như sau:
Private Sub Form_Load()
Dim User As String
Dim MyDept As String
Dim Task As String
User = Forms![Main Menu]!txtLogin.Value
If Not IsNull(DLookup("Department", "tbl_user", "LoginID = '" & User & "'")) Then
MyDept = DLookup("Department", "tbl_user", "LoginID = '" & User & "'")
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = " & MyDept & ")"
Else
Task = "Select * from tbl_ListofClinicalTrials"
End If
Me.RecordSource = Task
End Sub
End Sub
vì mình để cái mục department là text chứ ko phải number nhưng khi mình thử sử dung thì khi mở subform thì lại bắt phải điền giá trị vào mục department - enter parameter value
trong khi mục đó rõ ràng đã dc điền r mà nên ko hiểu bị lỗi ntn,
ví dụ như là department = Dermatology thì access nó ko tự log subform theo cái Dermatology mà hiện ra bảng như hình dưới
tương tự với cá value khác, mình dg bí ko biết xử lý ra sao
link file của mình : https://drive.google.com/open?id=0Byhaxb...k9STE9qYnc -
RE: Tạo Login Form cùng với Advanced Security Level
ongke0711 > 16-01-17, 10:09 AM
Nhắc bạn lần nữa là phải nhất quán trong thiết kế các trường trong Table và trong code VBA.
Câu lệnh này của bạn sau khi Dlookup trả về: Tên Department
MyDept = DLookup("Department", "tbl_user", "LoginID = '" & User & "'") ==> "Demartology"
Trong khi đó câu lệnh kế tiếp, điều kiện WHERE thì tìm trường [Business_Unit] mà trường này có nội dung là các số thứ tự 1 ,2, ,3 chứ có phải là "Demartology", "Endocrinology" v.v.. đâu mà so sánh = cho được???
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = " & MyDept & ")" <=> "1 = Demartology" ???
Đâu phải bạn đổi kiểu dữ liệu của trường [Business_Unit] từ dạng NUMBER sang dạng TEXT là nó tương đồng đâu mà phải do nội dung của nó nữa. -
RE: Tạo Login Form cùng với Advanced Security Level
Godspear > 16-01-17, 10:46 AM
(16-01-17, 10:09 AM)ongke0711 Đã viết: Nhắc bạn lần nữa là phải nhất quán trong thiết kế các trường trong Table và trong code VBA.
Câu lệnh này của bạn sau khi Dlookup trả về: Tên Department
MyDept = DLookup("Department", "tbl_user", "LoginID = '" & User & "'") ==> "Demartology"
Trong khi đó câu lệnh kế tiếp, điều kiện WHERE thì tìm trường [Business_Unit] mà trường này có nội dung là các số thứ tự 1 ,2, ,3 chứ có phải là "Demartology", "Endocrinology" v.v.. đâu mà so sánh = cho được???
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = " & MyDept & ")" <=> "1 = Demartology" ???
Đâu phải bạn đổi kiểu dữ liệu của trường [Business_Unit] từ dạng NUMBER sang dạng TEXT là nó tương đồng đâu mà phải do nội dung của nó nữa.
sao cái trường [Business_Unit] lại là 1,2,3,4,5 dc bạn ơi, cái đó là mình nhập vào dạng short text cơ mà; hay bạn nhầm với cái UserType
còn cái trường department là mình trực tiếp lấy ra từ cái bảng tbl_ListofClinialTrials ra mà, bạn check lại trong row source của mục đó coi
https://drive.google.com/open?id=0Byhaxb...k9STE9qYnc
bh mình tạo hẳn 1 table riêng - UnitID chỉ chứa đúng field là BussinesUnit dạng Short Text và dung chính nguồn từ table này để điền vào 2 bang tbl_user trường Unit và tbl_tbl_ListofClinialTrials trường Bussiness_Uni để hai trường này có cùng 1 format mà vẫn bị cái lỗi đó, bạn có thể xem lại file của mình trong link
túm lại, mình vẫn ko hiểu phải sửa kiểu gì ????????? -
RE: Tạo Login Form cùng với Advanced Security Level
ongke0711 > 16-01-17, 11:10 AM
- File bạn gửi thiếu table businessID.
- Nếu dạng text thì bỏ nó vào giữ dấu nháy đơn.
Task = "Select * from tbl_ListofClinicalTrials where ([Business_Unit] = '" & MyDept & "')"