السلام عليكم
ابحث منذ مدة على كود انشاء ترقيم تلقائي ذاتي بدون الاعتماد على المبرمج في الاكسس
و قد وجدت هذا الكود في النت لكنني لم احسن تنفيذه في الفورم
الكود بالمرفقات اجو التعديل عليه
هل من مجيــــــــــــــــــــــــــــــــــب
السلام عليكم...
الترقيم التلقائي العددي في جميع محركات قواعد البيانات يعمل في اتجاه واحد و هو الزيادة دون تكرار مع عدم إعادة استعمال القيم التي تم تجاوزها حتى و إن حُذفت. و هذا برايي مشابه للواقع! فإذا كان لدي مثلاً طلبية برقم معين ثم تم إلغاء (حذف) تلك الطلبية فلا يعني ذلك أن لدي خللاً في نظام الترقيم. ببساطة هو يعني أن لدي طلبية ملغية رقمها كذا. و إذا كان لدي طالب برقم قيد معين ثم انتقل إلى مدرسة أخرى فلا يجوز أن أعطي رقمه لطالب آخر... إلخ.
و نقطة مهمة أخرى و هي أنه إذا كنا لا نستعمل حقل الترقيم التلقائي في الربط مع جداول أخرى فربما لا بأس من إعادة الترقيم لملء الأرقام المحذوفة، أما إذا كان ذلك الحقل يُستعمل لربط الجدول مع جداول أخرى فإن إعادة الترقيم ستتسبب في كارثة.
الكود المرفق مع السؤال هو كود 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 و في أكثر من مشروع.
نرجو الاستفادة و السلام.
السلام عليكم اخي ناجي
الكود التي تفضلت به يعمل تمام و لكني نسيت ان اضيف اني استعمل data control و لا استعمل الكود للاتصال بقاعدة البيانات
حيث و جدت صعوبة في تعديل الكود خاصتك حسب ما اريد
و قد نقلت الدوال و الاجراءات الى موديل و نجحت العملية بقي التعديل على كود الاضافة فقط لتوليد الترقيم باستعمال الداتا كنترول
و نسيت ايضا ان اعلمكم اني مبتدئ في البرمجة
مزيد من المساعدة لو تفضلتم و شكرا
السلام عليكم اخي ناجي
الكود التي تفضلت به يعمل تمام و لكني نسيت ان اضيف اني استعمل data control و لا استعمل الكود للاتصال بقاعدة البيانات
حيث و جدت صعوبة في تعديل الكود خاصتك حسب ما اريد
و قد نقلت الدوال و الاجراءات الى موديل و نجحت العملية بقي التعديل على كود الاضافة فقط لتوليد الترقيم باستعمال الداتا كنترول
و نسيت ايضا ان اعلمكم اني مبتدئ في البرمجة
مزيد من المساعدة لو تفضلتم و شكرا
السلام عليكم
- بعد إذن أخي ناجي إبراهيم . هذا مثالك بعد إضافة كود الأخ ناجي إبراهيم عليه مع تعديله قليلا ليتناسب مع اداة الـDataControl .
- تحياتي .
شكرا اخي vb.coder تمت الافادة
بارك الله فيك أخي VB_Coder والله العظيم حليت لي مشكلة كبيرة جدا وكانت عاملة لي كوابيس بالليل وأنا نايم , شهر وأنا أفتش عن هذا الكود بارك الله فيك وجزاك الله ألف خير وإن شاء الله في ميزان حسناتك وتقبل فائق إحترامي وتقديري ...
السلام عليكم
- شكرا لك أخي العزيز ، جزاك الله خير .
- تحياتي لك .
بارك الله فيك ودمتم في العطاء