dd13901390 قام بنشر السبت at 20:10 قام بنشر السبت at 20:10 اولا اشكر من قام على هذا البرنامج المستخدمين فقط اريد ان اضيف عليه اختيار النماذج للصلاحيات ولم استطع لعم الفائدة للجميع الرجاء المساعدة في ذلك مع اظهار اسماء النماذج كلها في القائمة المنسدلة user :aa باسورد 123 قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور والصلاحيات.zip
kkhalifa1960 قام بنشر الأحد at 06:03 قام بنشر الأحد at 06:03 أستاذ @dd13901390 العنوان غير مناسب لطلبك . عدل العنوان من فضلك . أما عن جلب اسماء النماذج بالقائمة المنسدلة :- تفضل بالمرفق . قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور والصلاحيات-1.rar
dd13901390 قام بنشر الأحد at 18:51 الكاتب قام بنشر الأحد at 18:51 الف شكر اخوي kkhalifa1960 بس اخوي ما حصلت الاجابة ابغى من اختيار النماذج اعطى صلاحيات عليها مثلا شاشة تعديل الرقم السري اذا لم اعطيه صلاحية لا يفتح له شاشة الصلاحيات تظهر رسالة ليس لديك صلاحية هذا قصدي ولك جزيل الشكر
kkhalifa1960 قام بنشر الإثنين at 09:53 قام بنشر الإثنين at 09:53 والله يا خوي شغال على طلبك بس محتاج وقت .
hanan_ms قام بنشر الثلاثاء at 00:00 قام بنشر الثلاثاء at 00:00 =============================================( صور + مرفق + فيديو ) 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 2
kkhalifa1960 قام بنشر الثلاثاء at 04:58 قام بنشر الثلاثاء at 04:58 تفضل أخي @dd13901390 مرفق عملته للتجريب إذا كان هذا طلبك بطبقه على مرفقك . DDTestPermissions.rar 1
Moosak قام بنشر الثلاثاء at 09:28 قام بنشر الثلاثاء at 09:28 هذه مشاركتي مع الشباب بحكم معرفتي بالقالب الذي صممته سابقا 🙂 أضفت لجدول المستخدمين حقل لقائمة النماذج التي في البرنامج لتحديد النماذج المسموح بها : بعد ذلك صممت دالة تقوم بفحص ما إذا كان النموذج المحدد هو من ضمن النماذج المسموح بها بناءا على المستخدم الحالي (الذي قام بتسجيل الدخول) هذه الدالة تعطيها اسم النموذج > وستفحص إن كان هذا النموذج من ضمن الصلاحيات > وستعطيك True أو False حسب ما إذا كان النموذج من ضمن الصلاحيات أو لا .. وكذلك تغلق النموذج الغير مسموح بدخوله .. ولتطبيق الكود على النماذج فقط ضع هذه الجملة في حدث عند الفتح للنماذج التي تريد تطبيق الصلاحيات عليها : للتحميل : قالب تسجيل الدخول مع صلاحيات دخول النماذج.accdb 2
hanan_ms قام بنشر الثلاثاء at 22:08 قام بنشر الثلاثاء at 22:08 =============================================( صور + مرفق + فيديو ) 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 1
dd13901390 قام بنشر الأربعاء at 05:08 الكاتب قام بنشر الأربعاء at 05:08 شاكرين جميعا وبالاخص Moosak والله يعطيكم العافية 1
تمت الإجابة dd13901390 قام بنشر الأربعاء at 16:53 الكاتب تمت الإجابة قام بنشر الأربعاء at 16:53 بعد التحية اخوي Moosak عملت بالطريقة التي ادرجتها ولم تظهر لي الاختيار مثل ماعملت السئوال كيف اظهرها عندي ولك جزيل الشكر فيه صور للامثلة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.