ابو الآء قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 السلام عليكم لدى جداول بها ترقيم تلقائي ويحدث مشكله ان هذه الجداول متغيره اى يمكن حذفها واعاده ادخال البيانات اليها فتقوم ببدء الترقيم من اخر رقم تم ادخاله وحذف مثال لدى جدول به البيانات التاليه رقم تلقائى حاله القيد 1 مستجد 2 منقول 3 باق وعند حذف البيانات وادهالها من جديد يكون الترقيم 4 مستجد عاوز الاتى فورم به كود يظهر اسما الجداول الموجوده بالقاعده يتم من خلاله اختيار الجدول المراد اعاده بدء الترقيم التلقائي له ويقوم بالتالى باعاده بدء الترقيم التلقائي له _________________________________ هل من سيبل الى الذلك
ابو جودي قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 السلام عليكم لدى جداول بها ترقيم تلقائي ويحدث مشكله ان هذه الجداول متغيره اى يمكن حذفها واعاده ادخال البيانات اليها فتقوم ببدء الترقيم من اخر رقم تم ادخاله وحذف مثال لدى جدول به البيانات التاليه رقم تلقائى حاله القيد 1 مستجد 2 منقول 3 باق وعند حذف البيانات وادهالها من جديد يكون الترقيم 4 مستجد عاوز الاتى فورم به كود يظهر اسما الجداول الموجوده بالقاعده يتم من خلاله اختيار الجدول المراد اعاده بدء الترقيم التلقائي له ويقوم بالتالى باعاده بدء الترقيم التلقائي له _________________________________ هل من سيبل الى الذلك اخى وحبيبى ومعلمى الجليل استسمح حضرتك مثال وان شاء الله بأمر الله أقدر احل المشكله تقريبا بس ابعت مرفق لأقوم بحل مشكلتك بأمر الله 1
ابو الآء قام بنشر يناير 26, 2015 الكاتب قام بنشر يناير 26, 2015 والله انت اللى استاذى الغالى وحبيبي اعلم انى احبك فى الله حبا خالصا لوجهه تعالى بارك الله فيك انظر المثال المرفق انظر الى بعض الجداول لدى نفس المشكله فى مشروع اخر علما ان هذه الجداول متغيره هل من سيبل الى ذلك مشروع العاملين.rar 1
ابو جودي قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 والله انت اللى استاذى الغالى وحبيبي اعلم انى احبك فى الله حبا خالصا لوجهه تعالى بارك الله فيك انظر المثال المرفق انظر الى بعض الجداول لدى نفس المشكله فى مشروع اخر علما ان هذه الجداول متغيره هل من سيبل الى ذلك جزاكم الله كل الخير على شعوركم الطيب الجميل احبكم الله الذى احببتمونا فيه ولأجله واللهم اسأل ان يجمعنا فى الاخرة مع النبيين والصديقين والشهداء ونحن نسأله كما جمعنا فى الدنيا على حبه دون أن نسأله ولكن لى رجاء حتى تسهل الامر علينا نظرت للمرفق وجدت جداول كثيرة جدا الافضل ان ترسل لى المرفق الخاص بمشروعكم وتحديد الجداول التى تعانى من مشكلة الترقيم التلقائى بها حتى أقوم بعمل وحدة نمطية واحده لكل الجداول تعيد الترقيم من الرقم 1 عند فتح النموذج ام تحب ان ارفق لكم انا مثال من عندى وتقوم انت بالتطبيق على ما تريده ان اردت ان اقوم انا بعمل مثال فقط امهلنى بعض الوقت حتى اقوم بإعداده لانى لا املك مثال جاهز لذلك وأخبرنى تقريبا بعدد الجداول التى تريد منى انشائها فى هذا المثال 2
ابو الآء قام بنشر يناير 26, 2015 الكاتب قام بنشر يناير 26, 2015 المثال المرفق الخاص بي كل الجداول به متغيره ما عدا الجدول DATA الباقى كله متغير وتحدث به نفس المشكله هل يمكن ان تعمل الوحده النمطية على جميع الجداول ما عد الجدول DATA
ابو جودي قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 (معدل) السلام عليكم ورحمة الله تعالى وبركاته اخى واستاذى ومعلمى الفاضل الاستاذ ابو الآء اتفضل انظر الى هذا المرفق مكون من ثلاث امثله الاول ----- وحدة نمطية 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 تم تعديل يناير 26, 2015 بواسطه اسير الشروق 2
ابو الآء قام بنشر يناير 26, 2015 الكاتب قام بنشر يناير 26, 2015 الف شكر اخى الفاضل تعبتك معايا ربي يسعدك اخى _________________- اسف هل يمكن تطبيق الفكره التى ذكرتها فى مساهمه رقم 1
ابو جودي قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 حاضر تحت امرك بس ممكن اتاقل على حضرتك فى حاجه لانى فى الشغل الان نظرا لضيق وقتى برجاء مساعدتى فى جعل اسم الحقل للترقيم التلقائى وااااااااااااااااحد فى كل الجداول واعد ارفاق الملف مرة اخرى حيث اننى لاحظت اختلاف الاسم قم بضبط ما يلى تثبيت اسم حقل الترقيم التلقائى فى جميع الجداول ووليكن ID مثلا عدم جعل هذا الحقل مفتاح اساسى فى الجدول وياريت لو حضرتك تتكرم وتكتب لى اسم كل جدول يحتوى على ترقيم تلقائى نظرا لضيق وقتى اعتذر لذلك استاذى الكريم والله لو ان وقتى يسمح لقمت بعمل كل التعديلات من تلقاء نفسي قم بضبط ما يلى واعد ارفاق الملف مرة اخرى واقوم انا باضافة الوحدة النطية والتعديل عليها 1
ابو الآء قام بنشر يناير 26, 2015 الكاتب قام بنشر يناير 26, 2015 بارك الله فيك ولا يهمك ان شاء الله اول ما اوصل البيت هعمل النموزج وارفعه لحضرتك براحتك انا مش مستعجل الله يعينك اخى ويبارك فيك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.