اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

بارك الله فيكم اخواني في هذا المنتدى 

اريد كود او طريقه لعمل حل للترقيم التلقائي عند حذف بعض السجلات 

مثل فاتوره مبيعات الرقم التلقائي عند حذف بعض السجلات اريد ان يعيد الترقيم او يغير الترقيم الى ترقيم تلقائي 

ماالحل 

قام بنشر
7 دقائق مضت, mohammed ali alhababi said:

بارك الله فيكم اخواني في هذا المنتدى 

اريد كود او طريقه لعمل حل للترقيم التلقائي عند حذف بعض السجلات 

مثل فاتوره مبيعات الرقم التلقائي عند حذف بعض السجلات اريد ان يعيد الترقيم او يغير الترقيم الى ترقيم تلقائي 

ماالحل 

راجع المشاركة ان شاء الله بها طلبك

 

قام بنشر

راجع0

في ٣٠‏/٨‏/٢٠٢١ at 15:14, عمر ضاحى said:

على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA

وان مصدر بداية الفتره فى النموذج هو D1

وان مصدر نهاية الفتره هى D2

هترح للاستعلام بتاعك 

عند الاسم  هتضيف المعيار بتاعك هو 

Forms![NameOfForm]![AAA] 

وفى التاريخ هتحط المعيار 

>=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2]

 

 

في ٢‏/٣‏/٢٠١٥ at 20:19, ابا جودى said:

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

 

 

ركز معى فى الاتى

المثال يحتوى على عدد  (2)  وحدة نمطية  :gift2: 
 

ـــــــــــــــالوحدة الاولى ــــــــــــــــــ
تقوم باعادة ترتيب او تصفير الترقيم التلقائى بمجرد فتح البرنامج بعد إغلاقه 


 المميزات 
ــــــــــــــــ

- تقوم بتصفير الترقيم التلقائى ككل لو تم مسح كل السجلات  

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

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

-تخرج التقارير من خلال الجدول بالترقيم السليم بعد اعادة ترتيبه ان اردت الترقيم من واقع الجدول يظهر فى التقرير   :yes:    :wink2: 

العيب 
ـــــــــ

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

 

 


ـــــــــــــــــــــــــــالوحدة النمطية الثانيةـــــــــــــــــــــــــــــــ
الميزة الوحيدة 
ترى اعادة الترتيب او التصفير بمجرد اعادة تحميل النموذج فقط دون اغلاق البرنامج

امممممم
العيب
ــــــــ
غير مرتبطة بالترقيم الاصلى بجدول قاعدة البيانات  لانها ترقيم تلقائى تخيلى فقط تراه بالنموذج دون الجدول مصدر البيانات الذى اعتمد النموذج عليه فى جلب ومعالجة البيانات والعمليات



المرفق الثانى


مكون من ثلاث امثله

 

الاول -----  وحدة نمطية   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  ويجب الايكون مفتاح اساسى

 

للمره الثانية يجب الا يكون حقل الترقيم الترقيم التلقائى مفتاحا اساسيا والا لن تعمل الوحدة النمطية على اعادة الترتيب مرةاخرى

 

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

تقبل تحياتى اخى الحبيب بكل الحب والتقدير   :fff: 

 

وبعد ان اجبتك بما فهمته على قدر عقلى البسيط

فقط اهمس بود لو استخدمت البحث الخاص بالمنتدى لوجدت الكثير ولى سبيل المثال وليس الحصر انظر الرابط التالى   :fff:  :fff:  :fff: 
http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1

الترقيم التقائى-officena.rar

الترقيم التقائى-officena (2).rar

 

لم افهم الوحده النمطيه هذه بيظهر لي اخطاء 

لدي جداول باسم فواتير المشتريات وفواتير المبيعات اين اضع كل اسم جدول وماهي باقي البيانات 

للووووو تكرمتووووووو

قام بنشر
2 ساعات مضت, mohammed ali alhababi said:

راجع0

 

 

لم افهم الوحده النمطيه هذه بيظهر لي اخطاء 

لدي جداول باسم فواتير المشتريات وفواتير المبيعات اين اضع كل اسم جدول وماهي باقي البيانات 

للووووو تكرمتووووووو

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information