مطلوب التقيد بالصلاحيات عند فتح النموذج من مربع التحرير

[dd13901390]

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

user :aa

باسورد 123

قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور والصلاحيات.zip

[kkhalifa1960]

 أستاذ @dd13901390 العنوان غير مناسب لطلبك . عدل العنوان من فضلك .

    أما عن جلب اسماء النماذج بالقائمة المنسدلة :- تفضل بالمرفق .

قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور والصلاحيات-1.rar

[dd13901390]

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

شاشة تعديل الرقم السري اذا لم اعطيه صلاحية لا يفتح له شاشة الصلاحيات تظهر رسالة ليس لديك صلاحية هذا قصدي ولك جزيل الشكر

[dd13901390]

ممكن الرد الله يجزاك الف خير

[kkhalifa1960]

والله يا خوي شغال على طلبك بس محتاج وقت .

[dd13901390]

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

 

[hanan_ms]

=============================================( صور + مرفق + فيديو )

Update: 🌹

 

@dd13901390🌹☕

قدمت لك طلبك وانا لم انتهي منه للتحكم بالحساب والصلاحيات 

 

1- قائمة في نموذج تسجيل الدخول اذا كنت مطور او آدمن او مستخدم 

2-تسجيل شركة او مؤسستك او قطاع عملك على البرنامج او نظامك  مع اضافة اشعار والخلفية لنموذج تسجيل الدخول (مرونة بالتعديل على البيانات)

3- استايل بقائمة سفلية يمكن الاستفاده منها 

4- انشاء حسابات وانشاء قائمة  النماذج والتقارير للصلاحيات

5- تحكم بالصلاحيات والتحديث عند اختيار المستخدم 

7- تحديث المسار الصور تلقائي عند الفتح  + مرفق

6-   طلبك عند فتح النموذج كود بسيط @dd13901390 ☕

'=====================( Err (1) And Exit (2) For On Error GoTo Look daown
On Error GoTo Err_Ops

'==============================================(Chack frist)
If IsNull(DLookup("[name_frm]", "[Control_User]", "[name_frm] ='" & "QR" & "'")) Then
MsgBox " Opes back setting for Error Forget this form Open Or Now Awoch ", vbCritical, "Close Done " & Date
Exit Sub
End If

'========================================( Now Look Open Or No = Back User (Out)
If DLookup("[open_frm]", "[Control_User]", "[name_frm] ='" & "QR" & "'") = True Then
DoCmd.OpenForm "QR"
Else
MsgBox "لا تملك صلاحية الدخول او ليس لك حق الدخول او تم حظرك من الدخول او تم منعك من الدخول ", vbExclamation, "رسالة ادارية راجع المسؤل المختص " & Date
Exit Sub
End If

'================================( name Err Exit (1)
Exit_Ops:
Exit Sub

'================================( name At On Err 2
Err_Ops:
MsgBox err.Description & err.number
'========================================================( IF No Error Go Back Exit To (1)
Resume Exit_Ops

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

 

هذا هو طلب

V1_LoginIN_Whit_Exprot_FileAuto_Ms_Access.rar

[kkhalifa1960]

تفضل أخي @dd13901390 مرفق عملته للتجريب  إذا كان هذا طلبك بطبقه على مرفقك .

DDTestPermissions.rar

[Moosak]

هذه مشاركتي مع الشباب بحكم معرفتي بالقالب الذي صممته سابقا 🙂 

أضفت لجدول المستخدمين حقل لقائمة النماذج التي في البرنامج لتحديد النماذج المسموح بها :

بعد ذلك صممت دالة تقوم بفحص ما إذا كان النموذج المحدد هو من ضمن النماذج المسموح بها بناءا على المستخدم الحالي (الذي قام بتسجيل الدخول)

هذه الدالة تعطيها اسم النموذج > وستفحص إن كان هذا النموذج من ضمن الصلاحيات > وستعطيك True أو False حسب ما إذا كان النموذج من ضمن الصلاحيات أو لا .. وكذلك تغلق النموذج الغير مسموح بدخوله ..

ولتطبيق الكود على النماذج فقط ضع هذه الجملة في حدث عند الفتح للنماذج التي تريد تطبيق الصلاحيات عليها :

للتحميل :

قالب تسجيل الدخول مع صلاحيات دخول النماذج.accdb

[hanan_ms]

=============================================( صور + مرفق + فيديو )

Update: 🌹

 

بعد اذن الاستاذ @Moosak ❤️🌹☕

تغير الدالة مع الكود بمرفقك بالكامل يعمل مع اي تقرير او نموذج من غير كتابة اسمة بداله واحده فقط 😇

تلقائي Auto

اسهل صلاحيات لكافة النماذج والتقارير والطباعة بدالة وحده

 اشر بالجدول بس

 يعني سو جدول وتقرير جديد اختر من الجدول صلاحيات مباشره  

شباب ؟! 😂

 

(حدث عند التحميل) كود الاستدعاء:

'=============================( Only 2 Code Function For Chack User

'=====================================( IF Form (1)
Call FormsAllowed(Me.Form.name)

'=====================================( IF Report (1)
'Call FormsAllowed(Me.Report.name)

الدالة :

Option Compare Database
Option Explicit

Public Function FormsAllowed(ByVal strname As String) As String '(FrmName As String) As Boolean ' ===========!
Dim name_x As String
name_x = FormsAllowed
    '==============================================(Chack frist)
If IsNull(DLookup("[name_frm]", "[Control_User]", "[name_frm] ='" & strname & "'")) Then
MsgBox " Opes back setting for Error Forget this form Open Or Now Awoch ", vbCritical, "Close Done " & Date
 DoCmd.Close acForm, strname
Exit Function
End If

'============================================================================( Open Form
If DLookup("[open_frm]", "[Control_User]", "[name_frm] ='" & strname & "'") = True Then
DoCmd.OpenForm strname
Else
MsgBox "لا تملك صلاحية الدخول او ليس لك حق الدخول او تم حظرك من الدخول او تم منعك من الدخول ", vbExclamation, "رسالة ادارية راجع المسؤل المختص " & Date
DoCmd.Close acForm, strname
Exit Function
End If


'============================================================================( AllowAddition
If DLookup("[add_new]", "[Control_User]", "[name_frm] ='" & strname & "'") = True Then
Forms(strname).AllowAdditions = True
Else
Forms(strname).AllowAdditions = False
End If

'============================================================================( AllowDeletion
If DLookup("[delet]", "[Control_User]", "[name_frm] ='" & strname & "'") = True Then
Forms(strname).AllowDeletions = True
Else
Forms(strname).AllowDeletions = False
End If

'============================================================================( AllowEdits
If DLookup("[editor]", "[Control_User]", "[name_frm] ='" & strname & "'") = True Then
Forms(strname).AllowEdits = True
Else
Forms(strname).AllowEdits = False
End If
    
End Function

Public Function Print_Allowed(ByVal strname As String) As String

    '==============================================(Chack frist)
If IsNull(DLookup("[name_frm]", "[Control_User]", "[name_frm] ='" & strname & "'")) Then
MsgBox " Opes back setting for Error Forget this form Open Or Now Awoch ", vbCritical, "Close Done " & Date
 DoCmd.Close acForm, strname
Exit Function
End If

'============================================================================( Print into Button Or If Keybord
If DLookup("[print]", "[Control_User]", "[name_frm] ='" & strname & "'") = True Then

DoCmd.OpenReport strname
DoCmd.RunCommand acCmdPrint

Else
MsgBox "لا تملك صلاحية طباعة التقرير او ليس لك حق بالطباعة او تم حظرك من الطباعة او تم منعك من الطباعة ", vbExclamation, "رسالة ادارية راجع المسؤل المختص " & Date
Exit Function
End If

End Function

@dd13901390🌹☕

2- تعديل واستكمال بعض 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

 

 

V2_One_FunctionLoginIN_Whit_Exprot_FileAuto_Ms_Access.rar

[dd13901390]

شاكرين جميعا  وبالاخص Moosak والله يعطيكم العافية

[dd13901390]

بعد التحية اخوي  Moosak عملت بالطريقة التي ادرجتها ولم تظهر لي الاختيار مثل ماعملت السئوال كيف اظهرها عندي ولك جزيل الشكر فيه صور للامثلة