Γιώργο σ'ευχαριστώ για την ανταπόκριση και δοθείσης ευκαιρίας , συγχαρητήρια για τον κόπο και χρόνο που διαθέτεις εσύ και πολλοί άλλοι για να απαντούν στα ερωτήματά μας. Στο θέμα μου. Το πρόβλημα το έχω σε αυτό το σημείο :
Παράθεση:
If Me.txtPassword.Value = DLookup("strUserPassword", "tbl_User", "[lngUserID]=" & Me.cboUser.Value) _
Then
lngMyUserID = Me.cboUser.Value
DoCmd.Close acForm, "frm_Login", acSaveNo
DoCmd.OpenForm "frm_Home"
Else
MsgBox "Password invalid." & vbCrLf & vbCrLf & "Try again", vbOKOnly, "Administrator Message!"
Me.txtPassword = ""
Me.txtPassword.SetFocus
End If
|
Θα ήθελα πριν μου ανοίξει τη φόρμα (frm_Home) , να ελέγχει το username , to password και το ρόλο (Permission) του κάθε χρήστη , έτσι ώστε αν είναι Admin να έχει πλήρη πρόσβαση σε όλα. Αν είναι User θα έχει περιορισμούς:
SetProperties "StartUpShowDBWindow", dbBoolean, False
SetProperties "StartUpShowStatusBar", dbBoolean, False
SetProperties "AllowFullMenus", dbBoolean, False
SetProperties "AllowSpecialKeys", dbBoolean, False
SetProperties "AllowBypassKey", dbBoolean, False
SetProperties "AllowShortcutMenus", dbBoolean, False
SetProperties "AllowToolbarChanges", dbBoolean, False
SetProperties "AllowBreakIntoCode", dbBoolean, False
Με εκτίμηση,
Βασίλης