ابو جودي

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

السلام عليكم ورحمة الله تعالى وبركاته استاذ على انا اسف جدا جدا جدا انا من وقت ما حضرتك رفعت المرفق وانا احاول دون جدوى للاسف كل ما حصلت عليه اسماء الفورم والتقارير ولكنها معطوبة ولم استطع فعل اى شئ للاسف وجدت فى بناء القاعدة 45 نمذوج من ضمنهم على سبيل المثال Absent AddStudents Auther She3ar وتم عمل 23 تقرير ولكن للاسف كل البيانات معطوبة والمشكلة على ما اعتقد حدثت فى البنية الداخلية للقاعدة نفسها

بارك الله فيكم اخنا الحبيب وجزاكم الله عنا خير الجزاء على تهنئتكم المباركه لنا

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

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

كل الشكر والتقدير استاذى استاذنا الجليل

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

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

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

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

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

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

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

مجهود طيب ومشاركة ممتازة شامله وجامعه كل الشكر والتقدير جزاكم الله خيرا

فعلا اخى الحبيب لاحظت ذلك من ردود اساتذتنا الكرام بارك الله فيهم ومن ردرود اخوتنا رواد المنتدى الكريم ان المرفق لا يعمل كما قمت بتصميمه وابتكاره على اوفيس 2013 لاحظت من الردود انه يعمل على 2010 او اعلى من ذلك وهناك ما لم استطع فهمه حتى الان مفارقه فى الردود ان المرفق عمل جيدا على 2010 وعن اخرين لم يعمل وللاسف لا املك على جهازى سوى الاصدار 2013 لذلك لا استطيع محاولة تطوير الكود البرمجى بما يتناسب ان امكن مع الاصدارات الاقل لذا اتمنى من اساتذتنا الكرام بارك الله فيهم وفى علمهم مد يد العون والمساعدة بما يتلائم مع جميع اصدارات اوفيس ان امكن ذلك

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

اخى الفاضل قمت ببعض التعديلات اتمنى ان تجد ضالتك ان شاء الله كما تتنماها staff.rar

ممكن حضرتك تنظر وتفحص المثال التالى عسى ان تجد فيه ضالتك ان شاء الله للعلم حصلت على البرنامج من البحث فى المنتدى ☻ برنامج شئون الموظفين.rar

☻

--------------- واليك المرفق بعد التعديل بدون ماكرو فقط تعديل الكود البرمجى ☺ Close.rar

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

اتفضل اسال الله ان يفى بالغرض check yes or no.rar

حياكم الله وشكر الله لكم على كلماتكم الطيبة واتمنى ان تكونوا حققتم الافاده من المثال المتواضع الذى اهديتكم اياه

ياريت لو تكرمت بارفاق مرفق للتعديل عليه كما تريد جزاكم الله خيرا

انا مش قادر افهم كويس يعنى ايه المقصود من الجملة مع الاستفادة من الأرقام المحذوفة ؟ ركز معى فى الاتى المثال يحتوى على عدد (2) وحدة نمطية ـــــــــــــــالوحدة الاولى ــــــــــــــــــ تقوم باعادة ترتيب او تصفير الترقيم التلقائى بمجرد فتح البرنامج بعد إغلاقه المميزات ــــــــــــــــ - تقوم بتصفير الترقيم التلقائى ككل لو تم مسح كل السجلات - تقوم بإعادة ترتيب الترقيم التلقائى لو تم مسح بعض السجلات فقط وذلك دون اى تدخل من المستخدم - الاهم من ذلك أنها تتعامل مع الحقل الخاص بالترقيم التلقائى فى الجدول وهذا ما يميز الوحدة الاولى -تخرج التقارير من خلال الجدول بالترقيم السليم بعد اعادة ترتيبه ان اردت الترقيم من واقع الجدول يظهر فى التقرير العيب ـــــــــ لا يتم تنفيذ الترتيب او التصفير الا بعد اغلاق البرنامج واعادة فتحه ـــــــــــــــــــــــــــالوحدة النمطية الثانيةـــــــــــــــــــــــــــــــ الميزة الوحيدة ترى اعادة الترتيب او التصفير بمجرد اعادة تحميل النموذج فقط دون اغلاق البرنامج امممممم العيب ــــــــ غير مرتبطة بالترقيم الاصلى بجدول قاعدة البيانات لانها ترقيم تلقائى تخيلى فقط تراه بالنموذج دون الجدول مصدر البيانات الذى اعتمد النموذج عليه فى جلب ومعالجة البيانات والعمليات المرفق الثانى مكون من ثلاث امثله الاول ----- وحدة نمطية 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 ويجب الايكون مفتاح اساسى للمره الثانية يجب الا يكون حقل الترقيم الترقيم التلقائى مفتاحا اساسيا والا لن تعمل الوحدة النمطية على اعادة الترتيب مرةاخرى ممكن اجهز لك مثال للتحكم بالترقيم بكتابة الرقم الذى تريد بدأ الترقيم به وفى كل مره لاضافة سجل جديد يتابع الترقيم تلقائيا دون اى تدخل منك تقبل تحياتى اخى الحبيب بكل الحب والتقدير وبعد ان اجبتك بما فهمته على قدر عقلى البسيط فقط اهمس بود لو استخدمت البحث الخاص بالمنتدى لوجدت الكثير ولى سبيل المثال وليس الحصر انظر الرابط التالى http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1 الترقيم التقائى-officena.rar الترقيم التقائى-officena (2).rar