تعیین حدود دسترسی کاربران
یک شنبه 3 بهمن 1389 4:40 AM
برای دسترسی کاربران به یک سری فعالیت ها باید یک روال بسازیم تا تمام امکانات را در اختیار کاربران قرار دهد.
مثال:
Option Explicit Public AddNew As Boolean Public Delete As Boolean Public Edit As Boolean Public GroupTypeName As String Public Sub GroupType() 'Access Type If GroupTypeName = "Admin" Then AddNew = True Delete = True Edit = True End If If GroupTypeName = "Assistant" Then AddNew = True Edit = True Delete = False End If If GroupTypeName = "BookKeeper" Then AddNew = False Edit = True Delete = False End If End Sub
