ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته انا كنت طلبت من الاستاذ ابو خليل جزاه الله عنا كل الخير نموذج لصلاحيات المستخدمين يتحكم فى تفعيل وعدم تفعيل الازرار طبعا لاستاذى كل الشكر والتقدير لم يضن على او يبخل او يتأخر جزاه الله عنا كل الخير ان شاء الله واسأل الله عزوجل ان يزيد فى علمه ويبارك له فيه وأن ينفعه بما علمه وان يبارك له فى عمره وعمله ولكن كنت اتمنى دمج الاكواد التى تخص التحكم بالازرار وذلك بإيقاف عملها او تفعيلها حسب صلاحيات كل مستخدم كما كنت اتمنى اكثر ان يكون ذلك ضمن اى ملف ينتج عن اضافة الصلاحيات بأدآة اليوزر ميكر فكما تعلمون اقوم حاليا بتطوير تلك الأدآه وطرحت من قبل موضوع بذلك ولكن كنت اتمنى ان اضيف عليها نموذج يعمل على التحكم فى كل عنصر وذلك حسب صلاحيات كل مستخدم طبعا فشلت فى تطوير تلك الآداه وهى مضاف إليها التشفير فقمت بإلغاء التشفير وهذا لانى كما تعلمون مجرد هاو ومبتدئ وبفضل الله ثم بفضل تعليماتكم وتوجيهاتكم اهتدى فلكل من ساعدنى او حتى حاول او حتى ساندنى م بالدعاء فى هذا الصرح الشامخ كل الشكر والتقدير من يريد ان يضيف التشفير فليتفضل ولكن الاهم تقريبا انا وصلنت لنسبة 99% ولكـــــن هناك مشكلة واجهتها لم استطع حلها وهى كلاتى على سبيل المثال المستخدم السادس فى المثال المرفق بإسمى انا اسير الشروق لم اضف له من صلاحيات العناصر الا عنصر واحد فقط برقم المستخدم وهو الزر رقم 6 الاستاذ ابو ألاء أضفت له العنصر رقم 2 ضمن صلاحياته ولكن هذا فى النموذج main ملاحظة هامه لفتح الجدول users نلاحظ عناصر بإسم z1 z2 z3 z4 z5 z6 z7 z8 وهنا نموذجين ضمن التصميم النموذج الاول main ويحتوى على عناصر بنفس الاسم ان اردت وضع تلك العناصر فى الصلاحيات طبعا قلت عناصر لانها ممكن تكون زر امر او مربع تحرير وسرد او مربع قائمه او مربع نص النموذج الثانى mform انا اضفت عناصر مختلفه ولكنها تأخذ نفس الاسم لذلك تطبق عليها نفس الصلاحيات المشكله التى اواجهها لو اردت مثلا للمستخدم رقم 6 الذى يتم الدخول له بواسطة الاسم اسير الشروق من خلال رقم سرى 5 كما هو مبين من واجهة البرنامج اريد له صلاحية استخدام العنصر رقم 1 فى النموذج main ولكن اريد ايقاف العنصر رقم 1 لنفس المستخدم فى النموذج mform مثل الفكرة المستخدمه فى نموذج Users Ability حاولت عملها ولكن لم يأذن الله حتى الان بحل تلك المعضلة التى اقع فيها وأواجهها اتمنى مساعدتى ان امكن وجزاكم الله خيرا لانى تعبت ولم اجد حل هناك تصور ولكن لم استطع عمله على ارض الواقع وهو ان يتم اضافة حقل usergroup داخل الجدول user ويتم اعطاء الصلاحيات على حسب الاتى admn , user , designer , developer مثلا ويتم تخصيص الصلاحيات للمجموعه ويتم اضافة المستخدم لكل مجموعه على حسب الرغبه ولكن بصراحه عجزت عن تنفيذ هذا التصور فأن امكن مساعدتى لكم جزيل الشكر وجزاكم الله خيرا للعلم الفكرة من وحى خيالى المثال المرفق غير موجود فى مكان اخر وتحدى officena.rar

ممتازه جدا جدا جدا الفكرة على بركة الله

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

السلام عليكم ورحمة الله تعالى وبركاته اخى واستاذى ومعلمى الفاضل الاستاذ ابو الآء اتفضل انظر الى هذا المرفق مكون من ثلاث امثله الاول ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 1 جدول A1 من خلال ماكرو AutoExec الثانى ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 2 جدول A1 , A2 من خلال ماكرو AutoExec الثالث ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 3 جدول A1 , A2 , A3 من خلال ماكرو AutoExec لاحظ الفرق بين كود الوحدة النمطية لكل مثال المثال الاول الذى يحتوى على عدد 1 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول End Function المثال الثانى والذى يحتوى على عدد 2 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2, strSQL3, strSQL4 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثانى DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول DoCmd.RunSQL strSQL3 ' الجدول الثانى DoCmd.RunSQL strSQL4 ' الجدول الثانى End Function المثال الثالث والذى يحتوى على عدد 3 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2, strSQL3, strSQL4, strSQL5, strSQL6 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثانى strSQL5 = "ALTER TABLE [A3] DROP COLUMN [AutoNumber] ;" ' الجدول الثالث strSQL6 = "ALTER TABLE [A3] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثالث DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول DoCmd.RunSQL strSQL3 ' الجدول الثانى DoCmd.RunSQL strSQL4 ' الجدول الثانى DoCmd.RunSQL strSQL5 ' الجدول الثالث DoCmd.RunSQL strSQL6 ' الجدول الثالث End Function ملاحظة هامه الحقل الخاص بالترقيم التلقائى إسمه فى كل الجداول AutoNumber ويجب الايكون مفتاح اساسى للمره الثانية يجب الا يكون حقل الترقيم الترقيم التلقائى مفتاحا اساسيا والا لن تعمل الوحدة النمطية على اعادة الترتيب مرةاخرى الترقيم التقائى-officena.rar

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

طيب ممكن مرفق من فضلك اخى الكريم

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

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

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

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

طيب ممكن حضرتك ترفق مثال

المثال مرة اخرى بتنسيق اوفيس 2000-2003 Control-Panel -2000-2003 - .rar

up

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

جزاكم الله خيرا المهم الاستفاده ان شاء الله اهلا بك اخونا الكريم

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

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

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

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

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

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

up

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

طب بلاش سيبك من السؤال ده انا اللى مش باعرف اسال نحط مثال ونسأل مثلا فى الفورم بتاع P-Disabled كل ده علشان اختر تفعيل عدد 1 زر او عدد 2 زر امر او عدد 3 زر امر او عدد 4 زر امر هل يا ترى ممكن الكود يتكتب بطريقه اسهل من كده وسؤال تانى هو لو عاوز اضيف عنصر وعاوز اعمل شروط التحكم دى من لوحه خاصة بالتحكم فى العناصر لكل البرنامج كل مره اكتب الاكواد بالطريقه دى واللا ممكن الاكواد تختزل وتتعمل بطريقة تخلى الموضوع بسيط للعلم انا فكرت فى المثال واتخيلت كل جزء من الاكواد دى بيبقى شكله ايه ونفذت الشغل ده وده اخرى ودا على اد تفكيرى عجزت انى اسهله او ابسطه بصراحه علشان 4 اعداد فقط من كل عنصر اخدت وقت ومجهود كبير قوى Control-Panel.rar

الاستاذ عبدالرحمن هاشم الف مبروك على التميز دائما فى رقى وتقدم ان شاء الله