ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته اخى واستاذى ومعلمى الفاضل الاستاذ ابو الآء اتفضل انظر الى هذا المرفق مكون من ثلاث امثله الاول ----- وحدة نمطية 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

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

السلام عليكم ورحمة الله تعالى وبركاته عندى سؤال مش عارف اصلا هو منطقى او لا بصراحه معلش اتحملونى لو عندى مثلا نموذج يحتوى على Combo1 Combo2 Combo3 وعايز اعمل كود فى حدث عند الفتح ينطبق على العناصر التلاته دول او لو اكتر من تلاته كمان هلى لا بد من كتابة الشرط لكل عنصر بإسمه ام هناك كود مثلا او وحدة نمطية تجمع مثلا ان ينطبق الشرط على اى كومبوبكس داخل النموذج اسف ع الازعاج وبصراحه السؤال خيالى ومحدش يتريق عليه انا حاسس انه مش منطقى او صعب امممممم اه محدش يقولى احط العناصر فى اطار أو Frame واعمل الشرط ع الفريم او الاطار لان العناصر ممكن قوى متكونش فى مكان واحد فى النموذج جزاكم الله خيرا

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

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