abouelhassan

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

حفظك الله اخى الكريم رمضان كريم

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

شكر وتقدير واحترام من اخيك اخى الكريم

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

شكر وتقدير واحترام من اخيك

اخى ممكن ترفق هذه الأداة مشكور بارك الله فيك وجزاك الله خيرا

ممتاز اخى اسعد الله اوقاتكم بكل خير يارب

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

بارك الله فيك اخي الكريم كل عام وانتم بخير وصحه وسلامه

اخى بعد اذنك اريد تطبيق هذا الكود ولم افلح 'If MsgBox("هل تريد حذف السجل؟؟", _ ' vbCritical + vbYesNo, _ ' "") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblFinancial_Records.*, tblFinancial_Records.Reg_Number, * FROM tblFinancial_Records WHERE (((tblFinancial_Records.Reg_Number)=[forms]![frm_search]![Reg_Number]))" DoCmd.SetWarnings True Else Exit Sub End If وكذلك If Err.Number <> 0 Then MsgBox "حدث خطأ: " & Err.Description End If و MsgBox "ليس لديك صلاحية بالدخول", _ vbCritical + vbOKOnly, _ "تنبيه" If MsgBox("خروج من البرنامج...!؟", vbCritical + vbYesNo, "") = vbYes Then MsgBox "تم انشاء نسخة احتياطية بنجاح" & vbNewLine & "Backup successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" بارك الله فيك اخى الكريم لم اجد مثال لهؤلاء وهم كل الماسج التى احتاج تطبيها مشكور بارك الله فيك

هاهو اخى انت وضحته لى بارك الله فيك

تم حل المشكل بارك الله فيك اخي الكريم

مشكور اخى غير موجود unlock

السلام عليكم اخى هذه الرسالة التى تظهر لى هل من حل لها

شكر وتقدير واحترام من اخيك حفظكم الله وبارك الله فيك اخي الكريم

السلام عليكم ورحمه الله وبركاته لدى تقرير بيكتب فيه 0 بدل الخلايا الفارغة احتاج اذا كانت الخلية تساوى 0اجعلها فارغة لكى تختفى فى التقرير بدل وجودها وبها0 مع الشكر والتقدير

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

والله مش راضى يشتغل عندى اخى فى الله بارك الله فيك اخي الكريم

اخى الكريم كل عام وانتم بخير لو تكرمت الملف لم يفتح واعطانى تحذيرات كمان احتاج الصلاحيات تشمل كل ازرار النماذج هل هذا بالامكان بارك الله فيك

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

بارك الله فيك وبك ولك امين تم اضافة هذا الكود مثل المستخدمين اخى الكريم Private Sub btn_e_Click() Call controlPutons If gManager = 1 Then Me.e1.Visible = True Me.e2.Visible = True Me.e3.Visible = True Me.e4.Visible = True Else Me.e1.Visible = False Me.e2.Visible = False Me.e3.Visible = False Me.e4.Visible = False End If Exit Sub End Sub وفعلا زر اعداد توقف بس ظاهر اريد اخفاءه نفسه الى هو btn_e_ زادك الله من فضله اما اسم المستخدم للتقرير وضعت فى فتح التقرير لم يفلح Me.HomeUserName = guserName حفظكم الله

جارى العمل

تسلم اخى تم اضافة اسم المستخدم فى النموذج الرئيسى تمام بس فشل فى التقارير عملت كود اخفاء الاعدادات اذا كان اليوزر 2تمام ما ضبط ممكن توضيح اين الخطأ مشكووووووووووووور اخى الكريم FinancialPrg5.accdb

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