بحاجة الى شاشة دخول وصلاحيات للبرنامج

[Tarekfathallah]

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

اليوزر الثالث يبحث ولا يدخل معلومات ولا يطبع 

اليوزر الرابع يبحث فقط 

----------------   للرفع --------------------

[looodi]

اهلا وسهلاً اخي

 

 

على حسب معرفتي من المنتدى وكان لدري سؤال مشابة لما طلبت

قمت بعمل  اولا تقوم بعمل جدول يحتوي على الحقول التي تريد ان تكون لها صلاحيه مثلا ادمن  ووموظف والخ

 

ثم قمت بعمل نموذج وادرجت به  تكست بوكس واحدة لليوزة والاخرى للباسورد

ادرجت زر وسميته بأسم login

ادخل هذا الكود في حدث للزر

 

Private Sub login_Click()
    Dim MyPass As String
        MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "رقم الباسورد" Then
            MsgBox "successfully registered"
            DoCmd.OpenForm "اسم الجدول المراد ان يكون عليه اليوزر "
        Else
            MsgBox "Make Sure that username and password are correct"
    End If

End Sub

[Tarekfathallah]

شكرا اخ لودي لمرورك ولكنني اريد اكثر من هذا اريد صلاحيات للقاعدة ككل بحيث كل يوزر له صلاحيات معينة  

شكرا لك 

---------------   للرفع --------------

صلاحيات ومستخدمين.rar

تم تعديل مايو 19, 2017 بواسطه tarek_f26180
اضافة قاعدة بيانات

[Tarekfathallah]

السلام عليكم يا اخوة يا اساتذة الرجاء المساعدة انا بحاجة الى موديول او شيئ مماثل للصلاحيات 

-------------   للرفع --------------