هل من الممكن تحديد الصلاحيات على نفس النموذج

أخي الكريم يمكنك ذلك بالخطوات التالية

1- اصنع مجموعة عمل

2- بالأمر التالي يمكنك معرفة المستخدم .. فإذا كان المستخدم غير الآدمن فلا يتم إظهار الحقول .. أما إذا كان المستخدم آدمن فيتم إظهارها .

CurrentUser

3- ضع الدالة التالية في الوحدة النمطية القياسية

Function Admin1 (UserName as string) As Boolean

Admin1=False

If UserName="AdminName" Then

Admin1=True

Else

Admin1=False

End If

End Function

4- ضع الكود التالي في حدث ( في الحالي ) للنموذج

Dim UserN as string

UserN=CurrentUser

if Admin1(UserN)=True Then

  Me.FialdName.Visible=True

End If

كتبت لك الكودين السابقين من الذاكرة .. جربهما وأخبرني بالنتيجة