السلام عليكم ورحمة الله وبركاته
ارجو المساعدة العاجلة من الاخوة الخبراء واعضاء المنتدى الكرام
اشتغلت على قاعدة بيانات كبيرة على الاكسس لمؤسسة اعمل بها .. وقمت بتقسيم قاعدة البيانات ووضعت الجداول داخل السيرفر
ووضعت النماذج في اجهزة المستخدمين ..
المشكلة في حقل الترقيم التلقائي حسب السنة ... في البداية بداء الترقيم بشكل ممتاز من 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