البحث في الموقع

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

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

=============================================( صور + مرفق + فيديو ) 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

انت تعرف اني احترم كل الآراء هنا .. ولكن !! خد بالك انا كبرتها كتيييييير هههههههههههه ( أمزح الله يرحم والديك ) جرب وبعدين احكيلي وناقشني في النقطة دي هذا النموذج لن يظهر إلا عندما تكون اللغة الإدارية غير العربية ، وبالتالي لم أجد انها من صلاحيات المستخدم بقدر ما هي صلاحيات المبرمج ، فما تطرقت لهذه الفكرة ,, الرسائل المكتوبة بالعربي لن تظهر للمستخدم أبداً أبداً أبداً أبداً إلا اذا المبرمج وقع امر استدعاء دالة التحقق من اللغة ( وكأننا لم نفعل شيئاً حينها ) ما تخافش انا خدت بالي من كل الإحتمالات لأنني جربت الفكرة على 16 نسخة ويندوز للآن ، ومن بينهم جهازين تم عمل فورمات لهم وتنزيل ويندوز جديدة ولم يتم اختيار اللغة العربية ، وبعد تثبيت أوفيس 2016 و 2019 على كل منهما قمت بتشغيل الملف ولم تظهر أي مشكلة قد تخطر ببالكم إجمالاً .. لو تم ايقاف الجزء المسؤول عن اغلاق النموذج في الحدث عند التحميل ، وحاولت تغير اللغة فلن يتم تغييرها أبداً ، لأن الهدف هو ان يكون الترميز لغة عربية وليس الهدف البلد ، ولكن إضافة الفكرة كانت كرغبة في عدم التقيد ببلد محدد للمبرمج 😉

هذه مشاركتي مع الشباب بحكم معرفتي بالقالب الذي صممته سابقا 🙂 أضفت لجدول المستخدمين حقل لقائمة النماذج التي في البرنامج لتحديد النماذج المسموح بها : بعد ذلك صممت دالة تقوم بفحص ما إذا كان النموذج المحدد هو من ضمن النماذج المسموح بها بناءا على المستخدم الحالي (الذي قام بتسجيل الدخول) هذه الدالة تعطيها اسم النموذج > وستفحص إن كان هذا النموذج من ضمن الصلاحيات > وستعطيك True أو False حسب ما إذا كان النموذج من ضمن الصلاحيات أو لا .. وكذلك تغلق النموذج الغير مسموح بدخوله .. ولتطبيق الكود على النماذج فقط ضع هذه الجملة في حدث عند الفتح للنماذج التي تريد تطبيق الصلاحيات عليها : للتحميل : قالب تسجيل الدخول مع صلاحيات دخول النماذج.accdb

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

وعليكم السلام ورحمه الله وبركاته من الواضح أنك تواجه مشكلة في فتح ملفات إكسل القديمة على جهازك، ولكن البرنامج يعمل بشكل طبيعي عند فتح مستندات جديدة أو عند تشغيله من قائمة "ابدأ". هذه المشكلة قد تكون ناتجة عن عدة أسباب. إليك بعض الحلول التي يمكن أن تساعدك في حل المشكلة: 1. إعادة تشغيل الكمبيوتر أول خطوة يجب أن تحاولها هي إعادة تشغيل جهاز الكمبيوتر. قد يكون هناك بعض العمليات التي تمنع إكسل من العمل بشكل صحيح. 2. تشغيل إكسل في الوضع الآمن قد تكون هناك مشكلة في الإضافات أو في إعدادات إكسل. جرب تشغيل إكسل في "الوضع الآمن" لحل هذه المشكلة. اضغط على مفتاح Ctrl باستمرار ثم افتح إكسل. إذا عمل إكسل بشكل طبيعي في الوضع الآمن، فالمشكلة قد تكون في إحدى الإضافات أو في ملف التكوين الخاص بالبرنامج. 3. إلغاء تثبيت التحديثات الأخيرة إذا كنت قد قمت بتثبيت تحديثات لأوفيس مؤخرًا، قد تكون هذه التحديثات قد تسببت في حدوث المشكلة. جرب إلغاء تثبيت آخر التحديثات: اذهب إلى إعدادات النظام في جهازك. اختر التطبيقات ثم ابحث عن Microsoft Office 2019. اختر إلغاء التثبيت أو إصلاح. 4. إصلاح أوفيس إذا كنت قد قمت بتثبيت أوفيس 2019 بنجاح، يمكنك محاولة إصلاح البرنامج عبر إعدادات أوفيس: افتح لوحة التحكم. اختر البرامج ثم البرامج والميزات. ابحث عن Microsoft Office 2019، واضغط عليه. اختر إصلاح ثم اختر الإصلاح السريع أو الإصلاح عبر الإنترنت. 5. تحقق من الأمان والحقوق تأكد من أن ملفات إكسل القديمة التي لا تفتح ليست محمية أو غير قابلة للوصول بسبب إعدادات الأمان على جهازك: تحقق من أن الملفات ليست قيد الحماية أو مملوكة لمستخدم آخر. تحقق من أن لديك صلاحيات كافية للوصول إليها. 6. تحديث إصدار إكسل أو أوفيس من الممكن أن المشكلة تتعلق بإصدار قديم من البرنامج. تأكد من أنك قد قمت بتحديث أوفيس إلى آخر إصدار: افتح أي برنامج من أوفيس (مثل إكسل). اذهب إلى ملف ثم حساب. اختر خيارات التحديث ثم تحديث الآن. 7. إزالة ذاكرة التخزين المؤقتة والملفات التالفة إذا كانت هناك ملفات تالفة قد تسبب المشكلة، حاول مسح الملفات المؤقتة الخاصة بأوفيس: اذهب إلى مستعرض الملفات ثم اكتب %appdata%\Microsoft\Excel في شريط العنوان. احذف أي ملفات تالفة أو غير ضرورية في هذا المجلد. 8. التحقق من التوافق إذا كانت الملفات التي لا تفتح قد تم إنشاؤها باستخدام إصدار قديم من إكسل، قد تكون هناك مشكلة في التوافق. جرب فتح الملف باستخدام إصدار آخر من إكسل أو استخدام الأدوات عبر الإنترنت مثل Excel Online لتحديد ما إذا كانت المشكلة في الملف نفسه. 9. إعادة تثبيت أوفيس إذا لم تنجح أي من الحلول السابقة، قد تحتاج إلى إعادة تثبيت أوفيس بشكل كامل: قم بإلغاء تثبيت Microsoft Office 2019 عبر لوحة التحكم. ثم أعد تثبيت الأوفيس من موقع مايكروسوفت الرسمي

السلام عليكم ورحمة الله أساتذتنا الكرام وخبراء المنتدى النموذج المرفق لأستاذنا kkhalifa1960 واسمه صلاحيات المستخدمين وهو رائع وبسيط فى نفس الوقت ... أردت أن أسجل مستخدم جديد فيه بإسم user وتكون له صلاحيات محددة لكن كلما حاولت الدخول بإسم المستخدم الآخر (يتم الدخول فعلا باسم user) ولا يتم تطبيق الصلاحيات عليه ... فهل يحتاج الكود إلى تعديل أم هناك حطوة أخرى مطلوبة ... admin 12345 user 000 وشكرا لكم مقدما صلاحيات المستخدمين.rar

السلام عليكم الأخوة الأعزاء لدي برنامج قمت بتعيين صلاحيات للمستخدم في جدول المستخدم مثل الحذف والإضافة والتعديل واستخدمت شرط استعلام في النماذج للسماح او منع المستخدم من هذه الصلاحيات بناء على استعلام من نموذج تسجيل الدخول وفق الكود التالي If [forms]![login]![edit] = 0 then Me.allowedition = false Else Me.aĺlowedition = true eND if اريد مساعدتكم بتخصيص كود بنفس الصيغة لتحديد صلاحية الطباعة

للأسف يا مهندسنا الغالي ، هي عندها برنامج وعلى ما يبدو إنه غير مجاني أو أنها لا تملك صلاحيات كاملة فيه أو أي سبب آخر ؛ وعايزة تعمل برنامج يشبهه بالضبط . والدليل في عبارتها في نفس المنتدى الذي أشرت إليه .. لا تعليق

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

السلام عليكم قمت بالبحث عن برنامج لصلاحيات المستخدمين وحصلت على غايتي من أحد البرامج بهذا المنتدى العظيم لاخوتنا ابن مسقط والاخ rudwanحيث يشمل برنامج الصلاحيات على جدول Modifications يوضح من قام بالتعديل على البيانات وقت التعديل وما تم تعديله من السابق والحالي للاخ rudwan لكن تلاحظ بجدول USERS ظهور المستخدمين على هيئة رموز غير مفهومة ب وهذه المشكلة قابلتني مع معظم النماذج الجاهزة لتركيب صلاحيات المستخدمين ونظرا لان نموذج الصلاحيات الخاص بالاخ rudwan يوجد به غايتي الذي تم توضيحه سابقا فأرجو مساعدتي بالاتي في حل مشكلة الرموز في جدول USERS علما بأنه سيتم فتح موضوع اخر بعد معالجة هذه المشكلة أما ااسم المستخدم a كلمة السر 1 صلاحية المستخدمين (1).mdb

السلام عليكم ورحمة الله وبركاته كنت أعمل على صلاحيات المستخدمين لبرنامج رأيته على النت وأعجبني، لكن اواجه مشكلة فيه حيث تظهر لي الصلاحيات كما هي في الصورة الأولى، وأنا اريدها كما هو موضح في الصورة الثانية هل يمكن المساعدة في ذلك user.zip

السلام عليكم و رحمة الله و بركاتة برنامج شاشة الدخول مع صلاحيات المستخدمين جاهز للاستخدام و بها صفحات عمل جاهزة فقط ادخل و اضف اليه اعمالك مهما كان العمل . شكرا لك استاذى محمد هشام الذي قام بتعديل الاكواد. استاذى محمد هشام إنه لمن دواعي فخري وامتناني الكبير أن أقول للجميع كم نحن محظوظون لوجودك معنا، حقا لقد ابدعت و تميزت ، فأنت أهل للشكر، ولك منى كلّ الثناء! وجزاك الله خير الجزاء و جعله الله فى موازين حسناتك و صدقة جارية لى و لك اسم المستخدم : حسين كلمة المرور :123 شاشة الدخول مع صلاحيات المستخدمين.xlsb

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

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء ارجوا منكم ارجوكم مساعدتى في تعديل الاكواد برنامج شاشة الدخول مع صلاحيات في صفحة الصلاحيات اسم المستخدم (d6 :d30) و كلمة المرور (e6 :e30) مع اضافة الصلاحيات من (Z30:g7) و اضافة خاصية اظهار اسم المستخدم فى الصفحة الرئيسية J9 مع كود تقرير دخول المستخدمين بمعنى كل من يدخل البرنامج يسجل فى التقرير اسم المستخدم : husain و كلمة المرور :123 واسم المستخدم : 2 و كلمة المرور :2 واسم المستخدم : 3 و كلمة المرور :3 للعلم بان البرنامج حاليا يعمل بصورة ممتازة و لكن يفتح للمستخدمين الثلاثة فقط وجزاكم الله خير الجزاء Private Sub CommandButton1_Click() If UserForm1.TextBox1.Value = "husain" And UserForm1.TextBox2.Value = 123 Or UserForm1.TextBox1.Value = "2" And UserForm1.TextBox2.Value = 2 Or UserForm1.TextBox1.Value = "3" And UserForm1.TextBox2.Value = 3 Or UserForm1.TextBox1.Value = "4" And UserForm1.TextBox2.Value = 4 Or UserForm1.TextBox1.Value = "5" And UserForm1.TextBox2.Value = 5 Then Application.Visible = True Range("b1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = UserForm1.TextBox1.Value Sheets("Sheet2").Select Range("c1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = UserForm1.TextBox2.Value Range("d1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = Date Range("e1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = Time If UserForm1.TextBox1.Value = "husain" And UserForm1.TextBox2.Value = 123 Or UserForm1.TextBox1.Value = "2" And UserForm1.TextBox2.Value = 2 Or UserForm1.TextBox1.Value = "3" And UserForm1.TextBox2.Value = 3 Or UserForm1.TextBox1.Value = "4" And UserForm1.TextBox2.Value = 4 Or UserForm1.TextBox1.Value = "5" And UserForm1.TextBox2.Value = 5 Then Application.Visible = True UserForm1.Hide Else MsgBox "يرجى التحقق من ادخال اسم المستخدم وكلمة المرور بصورة صحيحة", , " " Label5.Caption = Label5.Caption - 1 If Label5.Caption = 0 Then ThisWorkbook.Save Application.Quit End If End If End Sub الدخول.xlsm

السلام عليكم ورحمة الله وبركاته قد وجدت في احدى المواقع على الانترنت هذه القاعده التي فعلا هي ما اريد لكن هنالك اضافه واحده كنت اريد ادخالها ولم افلح في ذلك في قاعده البيانات هناك نموذج frmNewUser يتم من خلاله انشاء مستخدم جديد واعطاءه صلاحيات بحيث ان مستوى الصلاحيات ينقسم الى ثلاث 1;"Default User";2;"Admin";3;"Developer" كيف بالامكان عند انشاء مستخدم واختيار مستوى الصلاحيه يقوم بتحديد ما هي صلاحيات المستخدم ان كان من انشاء سجلات جديده .. تعديل سجلات .. حذف سجلات .. او منع الدخول الى نماذج معينه انا اختارها PasswordLogin_RC4_v5.6.accdb

السلام عليكم و رحمة الله و بركاتة لكل مهنة أدواتها التي تساعد صاحب المهنة على أداء عمله بالشكل المطلوب وكل ما كانت هذه الأدوات حديثة ، كانت نتيجة العمل أفضل و أسرع وأكثر جودة وكفاءة. كذلك المبرمج المبتدئ، يحتاج إلى مجموعة من البرامج الأدوات التي تساعده على إنجاز العمل المطلوب بالشكل المناسب ، وتعبر شاشة الدخول هي أدوات المبرمج التي يستخدمها على حسب الحاجة المطلوبة والهدف المطلوب في كل مهمة ليتم إنجازها.و المطلوب اخواني تعديل البرنامج في عدة مراحل نبدء قمت بإرفاق ملف برنامج شاشة الدخول مع صلاحيات من إعدادي وهو بسيط وقمت بتحميله لسببين : الأول : أن يستفيد منه باقي الأعضاء . الثاني : توجد به عدة مشكلات أود من أحد الخبراء مساعدتي فيه . المطلوب : 1) : تعديل اكواد الدخول للبرنامج من صفحة الصلاحيات و يسجل عملية الدخول و الخروج في صفحة تقرير الدخول و على ان يظهر اسم المستخدم في الصفحة الرئيسية R4 2): اضافة كود في الصفحة الرئيسية تغيير كلمة المرور البرنامج للجميع و يمكن اضافة اي برنامج عليه بعد الانتهاء من جميع المراحل و يمكنكم التعديل عليها و اعادة نشره ليستفيد الجميع منه و جزاكم الله خير الجزاء و جعله الله في ميزان حسناتكم دخول.xlsm

السلام عليكم ورحمة الله وبركاته.. اولاً: جلب الوقت والتاريخ من time.windows.com ثم ضبط وقت وتاريخ الكومبيوتر.. العملية كلها بطرفة عين البرنامج مكتوب 100% بلغة Visual Studio .NET يمكنك تشغيله بالاكسس بـ shell السورس كود للفائدة (شرحت فيه كل شيء): Imports System.Net Imports System.Net.Sockets Module Main 'c0ded by: SEMO.Pa3x 'date: 23-09-2024 - 06:36 PM 'enjoy (: Sub Main() Try Dim computerDate As String = GetNetworkTime.ToShortDateString Dim computerTime As String = GetNetworkTime.ToShortTimeString ' قم بتشغيل العملية لتعيين التاريخ والوقت معاً Dim processInfo As New ProcessStartInfo("cmd.exe") processInfo.UseShellExecute = True processInfo.Verb = "runas" ' طلب صلاحيات المسؤول processInfo.Arguments = "/C date " & computerDate & " && time " & computerTime.Replace("ص", "AM").Replace("م", "PM") Process.Start(processInfo) Catch ex As Exception Console.WriteLine(ex.Message) Console.ReadLine() End Try End Sub Public Function GetNetworkTime() As DateTime ' خادم الوقت الافتراضي Const ntpServer As String = "time.windows.com" ' حجم رسالة NTP - 16 بايت من بيانات الهضم (RFC 2030) Dim ntpData As Byte() = New Byte(47) {} ' إعداد القيم LI = 0 (بدون تحذير)، VN = 3 (IPv4 فقط)، Mode = 3 (وضع العميل) ntpData(0) = &H1B ' الحصول على عناوين IP الخاصة بالخادم Dim addresses As IPAddress() = Dns.GetHostEntry(ntpServer).AddressList ' منفذ UDP المستخدم من قبل NTP هو 123 Dim ipEndPoint As New IPEndPoint(addresses(0), 123) ' استخدام UDP Using socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) socket.Connect(ipEndPoint) ' إيقاف تعليق الكود إذا تم حظر NTP socket.ReceiveTimeout = 3000 ' إرسال الطلب واستقبال الرد socket.Send(ntpData) socket.Receive(ntpData) socket.Close() End Using ' إزاحة للحصول على حقل "Transmit Timestamp" Const serverReplyTime As Byte = 40 ' الحصول على الجزء الخاص بالثواني Dim intPart As ULong = BitConverter.ToUInt32(ntpData, serverReplyTime) ' الحصول على الكسر الخاص بالثواني Dim fractPart As ULong = BitConverter.ToUInt32(ntpData, serverReplyTime + 4) ' تحويل البيانات من big-endian إلى little-endian intPart = SwapEndianness(intPart) fractPart = SwapEndianness(fractPart) ' تحويل البيانات إلى ميلي ثانية Dim milliseconds As ULong = (intPart * 1000UL) + ((fractPart * 1000UL) / &H100000000UL) ' الوقت بناءً على التوقيت العالمي UTC Dim networkDateTime As DateTime = (New DateTime(1900, 1, 1, 0, 0, 0, DateTimeKind.Utc)).AddMilliseconds(CLng(milliseconds)) ' إعادة الوقت المحلي Return networkDateTime.ToLocalTime() End Function ' دالة لتحويل البيانات من big-endian إلى little-endian Private Function SwapEndianness(x As ULong) As UInteger Return CUInt(((x And &HFFUL) << 24) + ((x And &HFF00UL) << 8) + ((x And &HFF0000UL) >> 8) + ((x And &HFF000000UL) >> 24)) End Function End Module اهداء للمعلم جعفر @jjafferr لا تنسوني ووالدي من صالح دعائكم. SetDateTimeInternetSEMO.zip

السلام عليكم ورحمة الله وبركاته عندي قاعدة بيانات اكسس ... فيها جدول ونموذج للدخول بحسب صلاحيات الدخول للواجهة الرئيسية للجميع ... لكن فقط المستخدم a له كل الصلاحيات عدا زر التغيير وباقي المستخدمين لهم فقط صلاحية الاطلاع دون ان يدخلوا متغيرات يعني ليس لهم الحق في سندات الصرف او القيد ولهم صلاحيات الاطلاع على اي تغيير يجريه المستخدم a Database2.accdb

لدي نموذج افتح برقم سري عن طريق الكود عند الفتح - كان زمان تظهر كلمة المرور على شكل نجوم عدلت شوي على الكود صار الرقم السري يظهر بدون نجوم يعني عادي اليكم الكود والوحدة النمطية On Error GoTo Err_clic5 TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) ' رسالة توضيحية لطلب إدخال كلمة المرور Dim str_Title As String Dim str_Prompt As String Dim userInput As String Dim mypass As Variant str_Title = "ادخال كلمة المرور" str_Prompt = "ادخل الرقم السري الذي تم منحة لك لدخول هذه الشاشة" ' الطلب من المستخدم إدخال كلمة المرور userInput = InputBox(str_Prompt, str_Title) ' البحث عن كلمة المرور في الجدول mypass = DLookup("[Password]", "tblUsers", "[Password] = '" & userInput & "'") ' التحقق مما إذا كانت كلمة المرور المدخلة تطابق أي كلمة مرور في الجدول If Not IsNull(mypass) Then ' كلمة المرور صحيحة، يستمر بفتح النموذج Exit Sub Else ' كلمة المرور غير صحيحة، يتم فتح نموذج الرفض وإلغاء العملية DoCmd.OpenForm "ACSSEC2" DoCmd.CancelEvent Exit Sub End If Exit_clic5: Exit Sub Err_clic5: DoCmd.Close MsgBox "تم الغاء الدخول بسبب عدم وجود صلاحيات كافية" Resume Exit_clic5 الوحدة النمطية Option Compare Database Declare Function SetTimer Lib "user32" (ByVal hwnd _ As Long, ByVal nIDEvent As Long, ByVal uElapse _ As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" _ (ByVal hwnd As Long, ByVal nIDEvent As Long) _ As Long Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" (ByVal hWndParent As _ Long, ByVal hWndChildAfter As Long, ByVal _ lpClassName As String, ByVal lpWindowName _ As String) As Long Declare Function Sendmessagebynum _ Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) _ As Long Const EM_SETPASSWORDCHAR = &HCC Public str_Title$, TimerId& Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) KillTimer 0, TimerId Dim lng_Hwnd& lng_Hwnd = FindWindowEx(0, 0, "#32770", _ Trim(str_Title)) lng_Hwnd = FindWindowEx(lng_Hwnd, 0, _ "Edit", vbNullString) If lng_Hwnd Then Sendmessagebynum lng_Hwnd, EM_SETPASSWORDCHAR, 42, 0 End If End Sub اريد الباسورد على شكل نجوم ممكن

أستاد محمد صالح ليس هناك ما يغضبني في هدا بالعكس هدفنا هنا هو مساعدة الاخوة الاعضاء فقط أما مسألة أفضل إجابة لن تضيف لي ولك أيضا على ما أعتقد أي شيئ لاكن ادا كانت هده من صلاحيات المشرفين لابد من الأخد في عين الإعتبار عدة عوامل في اختيارها مع إحترامي لك طبعا ليس كل من أجاب أولا فإقتراحه صائب ما جعلني ان اطرح السؤال هو تكرار الأمر عدة مرات ربما هنا اقتراحك ينفد المطلوب فعلا لاكن في عدة مشاركات للأسف يتم اختيارها عبثا مجرد اقتراح سبق التنويه اليه مسبقا الافضل ترك امكانية اختيارها لصاحب الموضوع هناك حالات استثنائية تم الرد منه كمثال (تم المطلوب )----(جزاك الله خيرا ) كما تعودنا دون اختياره لافضل اجابة في هده الحالة يحق للمشرفين وضعها وغلق الموضوع هدا يعطي مصداقية اكثر ولكم واسع النظر

نرحب بأى تعديل من اساتذتنا على النماذج والاكواد حتى تتم الاستفادة من خبراتهم ...وهل يمكن تشفير كلمة السر فى حقل منفصل وكيفية الاستفادة من تشفير كلمة السر صلاحيات المستخدمين.rar

السلام عليكم برنامج حسابات واريد عمل صلاحيات للمشرف وهو الذي فقط يتصفح النظام دون امكانية الإدخال فقط يشاهد فورم التغييرات التي يقوم بها المستخدم وهو المحاسب الذي يكون مسؤول عن ادخال البيانات برنامج حسابات.rar