ترقيم تلقائي حسب الشهر

[ibrteeb75]

السلام عليكم اريد ترقيم تلقائي حسب الشهر بالشكل 1/001 ، 1/002 ... الخ والشهر الثاني 2/001 , 2/002 وهكذا   ويكون الترقيم Database1.accdbاما بالحقل NoIn  أو يتم حفظه بحقل اخر في الجدول Table1

تم تعديل أغسطس 3 بواسطه ibrteeb75

[ahmed draz]

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

 اخي الكريم ibrteeb75

مرحباً بك معنا... لو تفضلت وقمت يشرح ماتريده بشكل أوضح حتى يستطيع الاعضاء والخبراء مساعدتك

وشكراً لك

[ibrteeb75]

أخي الكريم أحمد شكرا لك .. المطلوب فقط ترقيم تلقائي تسلسلي ولكن يعتمد على الشهر اي يتغير التتسلسل بتغير الالشهر ويكون على صورة (الرقم/الشهر) حسب تاريخ الادخال يعني لكل شهر تسلسله وبمجرد ادخال التاريخ يعطينا التسلسل . فيبدأ مثلا 1/001 ـ 1/002 ، 1/003 (1 هنا الشهر ) وهكذا الى مالانهاية ثم اذا ادخلنا الشهر الثاني يعطينا 2/001 ، 2/002 وهكذا ..

واذا ادخلنا تاريخ لشهر سابق يبدأ من آخر  تسلسل وصل اليه ذلك الشهر ... أرجو أن يكون المطلوب واضح 

تم تعديل أغسطس 3 بواسطه ibrteeb75

[ابوخليل]

تفضل من هنا :

ترقيم منوع ستجد مطلوبك فيه

[ibrteeb75]

السلام عليكم .. حاولت تطبيق الكود الموجود بالمواضيع السابقة ، وذلك عند التحديث في حقل ]ِDateIn  بالنموذج بالقاعدة المرفقة ولكن ولم ينجح معي

Database1.accdb

تم تعديل أغسطس 4 بواسطه ibrteeb75

[ibrteeb75]

بالانتظار

[ابوخليل]

Dim i As String, x As Integer
i = Format(Me.DateIn, "yymm")
x = DCount("*", "Table1", "Left([JoIn], 4)=" & i) + 1
Me.JoIn = i & "/" & Format(Str(x), "000")
Me.Refresh

من المهم جدا اضافة جزء السنة الى الشهر ... امامك 75 سنة حتى يتم التكرار ، ولو وضعت السنة كاملة سيكون امامك آلاف السنين 

نسأل الله حسن الختام لنا ولكم

Database2.rar