please help me for this
I wont userlevel 2 = > 24 hours Me.AllowEdits = False <=23 اhours Me.AllowEdits = True
remeber i have field CreationDate and FirstCreator for txtLogin
=[Forms]![Navigation Form]![txtLogin]
how can i control edite only for userlevel=2
thank you
Code:
--------------------------------------
Private Sub Form_Load()
Dim userLevel As Integer
userLevel = Forms![Navigation Form]!txtSecurity.Value
Call Security(userLevel)
End Sub
--------------------------------------
Sub Security(userLevel As Integer)
Select Case userLevel
Case 1 'Admin has full control, no restriction
Case 2 'view and edit
Me.AllowDeletions = True
Me.AllowAdditions = True
Me.AllowEdits = True
End Select
End Sub
--------------------------------------
I wont userlevel 2 = > 24 hours Me.AllowEdits = False <=23 اhours Me.AllowEdits = True
remeber i have field CreationDate and FirstCreator for txtLogin
=[Forms]![Navigation Form]![txtLogin]
how can i control edite only for userlevel=2
thank you