مساعدة عاجلة في الترقيم التلقائي حسب السنة

[bader2ss]

السلام عليكم ورحمة الله وبركاته

ارجو المساعدة العاجلة من الاخوة الخبراء واعضاء المنتدى الكرام

اشتغلت على قاعدة بيانات كبيرة على الاكسس لمؤسسة اعمل بها .. وقمت بتقسيم قاعدة البيانات ووضعت الجداول داخل السيرفر

ووضعت النماذج في اجهزة المستخدمين ..

المشكلة في حقل الترقيم التلقائي حسب السنة ... في البداية بداء الترقيم بشكل ممتاز من 2014-00001 واستمر الى 2014-00100 ولكن المفاجئة في السجل التالي رجع الى 2014-00001 واستمر بدون تغير الرقم .

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

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim vLastY As Variant
Dim iNext As Integer
vLastY = DMax("[kawanter_no]", "[data]", "[kawanter_no] LIKE '" & Format(date, "yyyy\*\'"))
If IsNull(vLastY) Then
iNext = 1
Else
iNext = Val(Mid(vLastY, 9, 4)) + 1
End If
Me![kawanter_no] = Format(date, "yyyy") & "-" & Format(iNext, "00000")
End Sub

تم تعديل يناير 11, 2014 بواسطه أبو آدم
احتواء الكود ضمن المعالج

[ابوخليل]

الشكر مقدما لأخي ابي آدم على التنسيق

 

اخي الكريم 

جرب استبدال هذا السطر :

iNext = Val(Mid(vLastY, 9, 4)) + 1

بهذا :

iNext = Val(Mid(vLastY, 6, 5)) + 1

[bader2ss]

 

الشكر مقدما لأخي ابي آدم على التنسيق

 

اخي الكريم 

جرب استبدال هذا السطر :

iNext = Val(Mid(vLastY, 9, 4)) + 1

بهذا :

iNext = Val(Mid(vLastY, 6, 5)) + 1

شكرا اخي العزيز ابو خليل ما قصرت وفي ميزان حسناتك والشكر موصول لاخي ابي آدم

[أبو آدم]

شكرًا لكم

ساعين للعلم

راجين الأجر و الثواب