مساعدة فى تحديد صلاحيات المستخدمين ( الاضافة , حذف , التعديل )

[فرهاد كريم]

بسم الله الرحمن الرحيم 

تحية طيبة للجميع 

اساتذة فى هذا المثال لديه جدول المستخدمين و اريد تحديد الصلاحيات لكل مستخدم عندما يقوم بالدخول الى نموذج الرئيسى بحيث مثلا admin لديه كامل صلاحية ( حذف , اضافة, تعديل ) و User لديه صلاحية الاضافة فقط

Sample.rar

تم تعديل أغسطس 12, 2014 بواسطه فرهاد كريم

[.Azhar]

تنشأ جدول اضافي لقاعدة البيانات يتضمن الحقول التالية 

رقم المستخدم 

اسم المستخدم

كلمة المرور 

الصلاحيات 

تنشأ فورم دخول تضع فيه مربعين نص وازرار عدد اثنان الاول OK والاخر Cancel

تضع هذا الكود في حدث عند النقر الى زر OK

 

Private Sub cmdOK_Click()

On Error GoTo Err_cmdOK_Click

Dim strUser As String

Dim strPWD As String

Dim intUSL As Integer

 

strUser = Me.txtUser

If DCount("[userPWD]", "UsystblUsers", "[userName]='" & Me.txtUser & "'") > 0 Then

    strPWD = DLookup("[userPWD]", "UsystblUsers", "[userName]='" & Me.txtUser & "'")

        If strPWD = Me.txtPWD Then

        intUSL = DLookup("[securityGroup]", "UsystblUsers", "[userName]='" & Me.txtUser & "'")

        'Forms!frmUSL.txtUN = strUser

        'Forms!frmUSL.txtUSL = intUSL

        Select Case intUSL

            Case 1

                DoCmd.OpenForm "frmstudent", acNormal

            Case 2

                DoCmd.OpenForm "", acNormal, , , acFormReadOnly

            Case 3

                MsgBox "Not configured yet", vbExclamation, "Not configured"

           ' Case 4

               ' MsgBox "Not configured yet", vbExclamation, "Not configured"

        End Select

        DoCmd.Close acForm, "none", acSaveNo

    End If

End If

Exit_cmdOK_Click:

    Exit Sub

 

Err_cmdOK_Click:

    MsgBox "ÇáÑÌÇÁ ÇÓã ÇáãÓÊÎÏã æßáãÉ ÇáãÑæÑ "

    Resume Exit_cmdOK_Click

 

End Sub

[فرهاد كريم]

الله ينور عليك اخى العزيز و شكر على تعاونك 

لكن اخى العزيز ممكن تعديل على ملف المرفق لان حاولت ان اقوم بوضع الكود و لكن تضهر خطاء و انا ليس لديه خلفية جيدة فى كتابة الاكواد لهذا اذا امكن التعديل على ملف المرفق اكون شاكرا لك

[تعليموه]

شكرا Azhar

جزاك الله خيرا

استفدت منك