تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على كود انشاء ترقيم تلقائي ذاتي
#1
السلام عليكم
ابحث منذ مدة على كود انشاء ترقيم تلقائي ذاتي بدون الاعتماد على المبرمج في الاكسس
و قد وجدت هذا الكود في النت لكنني لم احسن تنفيذه في الفورم
الكود بالمرفقات اجو التعديل عليه


الملفات المرفقة
.rar   test.rar (الحجم : 6.07 ك ب / التحميلات : 337)
الرد }}}
تم الشكر بواسطة:
#2
هل من مجيــــــــــــــــــــــــــــــــــب
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم...

الترقيم التلقائي العددي في جميع محركات قواعد البيانات يعمل في اتجاه واحد و هو الزيادة دون تكرار مع عدم إعادة استعمال القيم التي تم تجاوزها حتى و إن حُذفت. و هذا برايي مشابه للواقع! فإذا كان لدي مثلاً طلبية برقم معين ثم تم إلغاء (حذف) تلك الطلبية فلا يعني ذلك أن لدي خللاً في نظام الترقيم. ببساطة هو يعني أن لدي طلبية ملغية رقمها كذا. و إذا كان لدي طالب برقم قيد معين ثم انتقل إلى مدرسة أخرى فلا يجوز أن أعطي رقمه لطالب آخر... إلخ.

و نقطة مهمة أخرى و هي أنه إذا كنا لا نستعمل حقل الترقيم التلقائي في الربط مع جداول أخرى فربما لا بأس من إعادة الترقيم لملء الأرقام المحذوفة، أما إذا كان ذلك الحقل يُستعمل لربط الجدول مع جداول أخرى فإن إعادة الترقيم ستتسبب في كارثة.

الكود المرفق مع السؤال هو كود VBA مأخوذ من Access. و هو - في الحقيقة - كود بدائي، فاستعمال الوظيفة MoveLast للانتقال إلى آخر سجل (في الإجراء BeforeInsert) قد يؤدي إلى تحميل كمية كبيرة من السجلات في الذاكرة. و كذلك الحال مع استعمال حلقة While (في الدالة Init_numeroAuto) حيث سيمر على السجلات واحداً واحداً ! تصور لو أن قاعدة البيانات تحتوي على مئات الآلاف أو الملايين من السجلات... سيستغرق ذلك وقتاً لا بأس به و قد يتوقف البرنامج عن الاستجابة.

على أية حال... في المرفقات مشروع صغير به كل ما تطلب: الحصول على رقم جديد تلقائياً عند الإضافة و إعادة الترقيم فقط بعد الحذف للمحافظة على تسلسل الآرقام.

ستجد في الكود أن إجراء إعادة الترقيم قصير جداً و لا يعتمد على الحلقة التكرارية:
كود :
Private Sub RenumberRecords(ByVal ATable As String, ByVal IDField As String, ByVal DeletedID As Long)
   Dim SQL As String
   
   SQL = "UPDATE " & ATable & " SET " & IDField & " = (" & IDField & " - 1) WHERE (" & IDField & " > " & CStr(DeletedID) & ")"
   Cnn.Execute SQL
End Sub

يحتوي الكود أيضاً على بعض الدوال و الإجراءات المساعدة و التي يمكنك نقلها إلى Module مع تحويل Private إلى Public لاستعمالها في أكثر من Form و في أكثر من مشروع.

نرجو الاستفادة و السلام.


الملفات المرفقة
.rar   Manual Number.rar (الحجم : 11.87 ك ب / التحميلات : 498)
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , suliman alahdl , suliman alahdl , ola
#4
السلام عليكم اخي ناجي
الكود التي تفضلت به يعمل تمام و لكني نسيت ان اضيف اني استعمل data control و لا استعمل الكود للاتصال بقاعدة البيانات
حيث و جدت صعوبة في تعديل الكود خاصتك حسب ما اريد
و قد نقلت الدوال و الاجراءات الى موديل و نجحت العملية بقي التعديل على كود الاضافة فقط لتوليد الترقيم باستعمال الداتا كنترول
و نسيت ايضا ان اعلمكم اني مبتدئ في البرمجة
مزيد من المساعدة لو تفضلتم و شكرا
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم اخي ناجي
الكود التي تفضلت به يعمل تمام و لكني نسيت ان اضيف اني استعمل data control و لا استعمل الكود للاتصال بقاعدة البيانات
حيث و جدت صعوبة في تعديل الكود خاصتك حسب ما اريد
و قد نقلت الدوال و الاجراءات الى موديل و نجحت العملية بقي التعديل على كود الاضافة فقط لتوليد الترقيم باستعمال الداتا كنترول
و نسيت ايضا ان اعلمكم اني مبتدئ في البرمجة
مزيد من المساعدة لو تفضلتم و شكرا
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

- بعد إذن أخي ناجي إبراهيم . هذا مثالك بعد إضافة كود الأخ ناجي إبراهيم عليه مع تعديله قليلا ليتناسب مع اداة الـDataControl .

- تحياتي .


الملفات المرفقة
.rar   test-Fixed.rar (الحجم : 9.64 ك ب / التحميلات : 451)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#7
شكرا اخي vb.coder تمت الافادة
الرد }}}
تم الشكر بواسطة:
#8
بارك الله فيك أخي VB_Coder والله العظيم حليت لي مشكلة كبيرة جدا وكانت عاملة لي كوابيس بالليل وأنا نايم , شهر وأنا أفتش عن هذا الكود بارك الله فيك وجزاك الله ألف خير وإن شاء الله في ميزان حسناتك وتقبل فائق إحترامي وتقديري ...
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#9
السلام عليكم

- شكرا لك أخي العزيز ، جزاك الله خير .
- تحياتي لك .
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#10
بارك الله فيك ودمتم في العطاء
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] إظهار رسائل تنبيه تلقائي ع سطح المكتب aboezzat84 0 113 07-01-24, 02:27 PM
آخر رد: aboezzat84
  [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 2 1,387 18-12-21, 01:41 PM
آخر رد: اسلام الكبابى
  شرح طريقة انشاء barcode بسهوله ولد رائع 4 5,564 22-06-19, 08:06 PM
آخر رد: ابن دوعن
  [مثال] المساعدة - باعادة ترقيم الداتا ريبورت سامى 4 2,566 30-01-18, 03:24 PM
آخر رد: سامى
  [كود] التعديل على هذا الكود جزاكم الله خيراً عبد الرحمن على 15 5,318 09-05-17, 06:56 PM
آخر رد: عبد الرحمن على
  هل في الامكان انشاء فورم يتم إستدعاء الصوره من الماسح الضوئي (Scanner) مباشره ؟؟ softmail8 7 4,220 09-02-17, 12:15 AM
آخر رد: عمور2016
  سوال حول ترقيم تلقائي m_shrif 1 2,401 21-01-17, 06:33 PM
آخر رد: Ashraf Elafify
  [vb6.0] ارجو التعديل amer2000 2 2,193 08-08-16, 03:02 PM
آخر رد: amer2000
Smile انشاء مشروع في الvb.6 كترينا 1 2,010 07-07-16, 09:38 PM
آخر رد: Amir_Alzubidy
  وضع علامة ونص على الصورة وحفظها بعد التعديل أبو عمر 4 2,958 03-10-15, 02:24 PM
آخر رد: أبو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم