تعديل وحده نمطيه_ ترقيم جديد كل سنة

[النجاشي]

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

احبتي الكرام 

اريد تعديل علي الوحده النمطيه عندما ادخل بسنه جديده يبدا الترقيم من جديد

تحياتي اليكم 

وحده نمطيه.mdb

[النجاشي]

للرفع

[النجاشي]

للرفع

[علي الحداد]

السلام عليكم اخي الكريم

شوف المرفق 

هل تنفع هذه الطريقة ؟ 

تحياتي

 

وحده نمطيه.rar

[النجاشي]

وعليكم السلام استاذي الفاضل @علي الحداد ليس هذا مرادي 

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

[أ / محمد صالح]

الأخ الكريم @ابو زاهر

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

وعلى حسب فهمي المتواضع للمطلوب

جرب تعديل الشرط الأخير في الكود إلى

    Else
        If Year(Date) > Year(Date - 1) Then
        Next_Seq = 0
        Else
        Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & t & "'"), 0)
        End If
        Next_Seq = t & Format(Next_Seq + 1, "0000000")
    End If

 

[النجاشي]

20 ساعات مضت, أ / محمد صالح said:

الأخ الكريم @ابو زاهر

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

وعلى حسب فهمي المتواضع للمطلوب

جرب تعديل الشرط الأخير في الكود إلى

    Else
        If Year(Date) > Year(Date - 1) Then
        Next_Seq = 0
        Else
        Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & t & "'"), 0)
        End If
        Next_Seq = t & Format(Next_Seq + 1, "0000000")
    End If

 

بارك الله فيك استاذي الكريم ارفقت اليك النموذج معذرتا لم ارفقه من سابق

بعد ما قمت بالتعديل ولم يشتغل معي انظر الي  اول جدول فيه فواتير من سنه 2017 الان اريد يبدا  الترقيم  من جديد 

تحياتي اليك  استاذي الفاضل

تعديل وحده نمطيه.rar

[النجاشي]

للرفع

[أ / محمد صالح]

تفضل أخي الكريم @ابو زاهر

نفس الكود السابق

فقط كان يحتاج لتطويع حسب الملف المرفق

جرب تعديل الشرط الأخير في الكود إلى

       Else
        If Year(Date) > Year(DMax("[Atarih]", "AfwtIar")) Then
        Next_Seq = 0
        Else
        Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & t & "'"), 0)
        End If
        Next_Seq = t & Format(Next_Seq + 1, "0000000")
    End If

يمكن استعمال dmax للحصول على أكبر (أحدث) تاريخ

أو استعمال dlast  للحصول على آخر تاريخ تم إدخاله