mohammed ali alhababi قام بنشر سبتمبر 1, 2021 قام بنشر سبتمبر 1, 2021 بارك الله فيكم اخواني في هذا المنتدى اريد كود او طريقه لعمل حل للترقيم التلقائي عند حذف بعض السجلات مثل فاتوره مبيعات الرقم التلقائي عند حذف بعض السجلات اريد ان يعيد الترقيم او يغير الترقيم الى ترقيم تلقائي ماالحل
ابو جودي قام بنشر سبتمبر 1, 2021 قام بنشر سبتمبر 1, 2021 7 دقائق مضت, mohammed ali alhababi said: بارك الله فيكم اخواني في هذا المنتدى اريد كود او طريقه لعمل حل للترقيم التلقائي عند حذف بعض السجلات مثل فاتوره مبيعات الرقم التلقائي عند حذف بعض السجلات اريد ان يعيد الترقيم او يغير الترقيم الى ترقيم تلقائي ماالحل راجع المشاركة ان شاء الله بها طلبك
mohammed ali alhababi قام بنشر سبتمبر 1, 2021 الكاتب قام بنشر سبتمبر 1, 2021 راجع0 في ٣٠/٨/٢٠٢١ at 15:14, عمر ضاحى said: على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA وان مصدر بداية الفتره فى النموذج هو D1 وان مصدر نهاية الفتره هى D2 هترح للاستعلام بتاعك عند الاسم هتضيف المعيار بتاعك هو Forms![NameOfForm]![AAA] وفى التاريخ هتحط المعيار >=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2] في ٢/٣/٢٠١٥ at 20:19, ابا جودى said: انا مش قادر افهم كويس يعنى ايه المقصود من الجملة مع الاستفادة من الأرقام المحذوفة ؟ ركز معى فى الاتى المثال يحتوى على عدد (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 لم افهم الوحده النمطيه هذه بيظهر لي اخطاء لدي جداول باسم فواتير المشتريات وفواتير المبيعات اين اضع كل اسم جدول وماهي باقي البيانات للووووو تكرمتووووووو
ابو جودي قام بنشر سبتمبر 1, 2021 قام بنشر سبتمبر 1, 2021 2 ساعات مضت, mohammed ali alhababi said: راجع0 لم افهم الوحده النمطيه هذه بيظهر لي اخطاء لدي جداول باسم فواتير المشتريات وفواتير المبيعات اين اضع كل اسم جدول وماهي باقي البيانات للووووو تكرمتووووووو يعنى رجاء وفضلا وكرما وليس امر تسهل على من يريد مساعدتك بوضع مرفق على الاقل 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.