التعديل على كود انشاء ترقيم تلقائي ذاتي

التعديل على كود انشاء ترقيم تلقائي ذاتي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : التعديل على كود انشاء ترقيم تلقائي ذاتي (/showthread.php?tid=8380)

الصفحات: 1 2

التعديل على كود انشاء ترقيم تلقائي ذاتي - abouassem - 08-04-13

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

التعديل على كود انشاء ترقيم تلقائي ذاتي - abouassem - 08-04-13

هل من مجيــــــــــــــــــــــــــــــــــب

التعديل على كود انشاء ترقيم تلقائي ذاتي - ناجي إبراهيم - 08-04-13

السلام عليكم...

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

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

الكود المرفق مع السؤال هو كود 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 و في أكثر من مشروع.

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

التعديل على كود انشاء ترقيم تلقائي ذاتي - abouassem - 08-04-13

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

التعديل على كود انشاء ترقيم تلقائي ذاتي - VB_Coder - 10-04-13

السلام عليكم

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

- تحياتي .

التعديل على كود انشاء ترقيم تلقائي ذاتي - abouassem - 10-04-13

شكرا اخي vb.coder تمت الافادة

التعديل على كود انشاء ترقيم تلقائي ذاتي - hamoud - 06-07-13

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

التعديل على كود انشاء ترقيم تلقائي ذاتي - VB_Coder - 06-07-13

السلام عليكم

- شكرا لك أخي العزيز ، جزاك الله خير .
- تحياتي لك .

التعديل على كود انشاء ترقيم تلقائي ذاتي - الهجري - 22-07-13

بارك الله فيك ودمتم في العطاء