ترقيم سنوي تلقائي

يمكنك استخدام الكود التالي

Function Num2YearlyNum(ByVal Num As Long) As Long
Dim CuurentYear As Long
CuurentYear = Year(Now())
If Num <= 9999 Then
Num2YearlyNum = CuurentYear * 10000 + Num
Else
Num2YearlyNum = Num
MsgBox "رقم اكبر من 9999 لا يمكن التحويل"
End If
End Function

مرفق مثال ارجو ان يحقق مرادك مع اجمل تحية

YearlyCounter.rar

اخي الكريم

تذكرت حل آخر

لكن قبل ان اطرحة احتاج الى معلومة واحدة وهي

ماهو اقصى عدد للسجلات في السنة الواحدة ؟ هل هي 9999 او اقل.

كم يعني؟

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

اما بنسبة عن ماهو اقصى عدد للسجلات في السنة الواحدة ؟ هل هي 9999 او اقل ؟ نعم اقصى حد هو 9999 وهذا يكفيني ويوفي بالغرض 100%

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

اما بنسبة عن ماهو اقصى عدد للسجلات في السنة الواحدة ؟ هل هي 9999 او اقل ؟ نعم اقصى حد هو 9999 وهذا يكفيني ويوفي بالغرض 100% ت

تحياتي والف شكر

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

اما بنسبة عن ماهو اقصى عدد للسجلات في السنة الواحدة ؟ هل هي 9999 او اقل ؟ نعم اقصى حد هو 9999 وهذا يكفيني ويوفي بالغرض 100%

تحياتي والف شكر

اعتذر عن هذا التكرار الغير مقصود

الاخ الفاضلaboeessaa اشكرك على هذا الكود والعمل الرائع ... ولكن لو لاحظت ان الترقيم لا يبدأ من 1 في السنة التالية وانما يستمر متجاهل السنة الجديدة ... ولكن اعتقد ان هذا الكود سيفتح افاق للحل المطلوب إن شاء الله .............. تحياتي

اخي / الفيلسوف111

ممكن ترفق تصميم الجدول الرئيسي لديك (بدون سجلات)

و ساحاول ايجاد حل عملي

شكرا لك

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