اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

احبتي الكرام 

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

تحياتي اليكم 

وحده نمطيه.mdb

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

    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

 

  • Thanks 1
رابط هذا التعليق
شارك

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  للحصول على آخر تاريخ تم إدخاله

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information