النجاشي قام بنشر يوليو 5, 2018 مشاركة قام بنشر يوليو 5, 2018 السلام عليكم ورحمه الله وبركاته احبتي الكرام اريد تعديل علي الوحده النمطيه عندما ادخل بسنه جديده يبدا الترقيم من جديد تحياتي اليكم وحده نمطيه.mdb رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يوليو 5, 2018 الكاتب مشاركة قام بنشر يوليو 5, 2018 للرفع رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يوليو 8, 2018 الكاتب مشاركة قام بنشر يوليو 8, 2018 للرفع رابط هذا التعليق شارك More sharing options...
علي الحداد قام بنشر يوليو 8, 2018 مشاركة قام بنشر يوليو 8, 2018 السلام عليكم اخي الكريم شوف المرفق هل تنفع هذه الطريقة ؟ تحياتي وحده نمطيه.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يوليو 8, 2018 الكاتب مشاركة قام بنشر يوليو 8, 2018 وعليكم السلام استاذي الفاضل @علي الحداد ليس هذا مرادي مطلوبي تعديل علي الوحده النمطيه الموجوده لدي لا اريد كود شكرا اليك على مجهودك اخي الكريم رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 8, 2018 مشاركة قام بنشر يوليو 8, 2018 الأخ الكريم @ابو زاهر المرفق لا يحتوي على نماذج يستعمل فيها الوحدة النمطية لذا أي اقتراح سيكون بدون تجربة وعلى حسب فهمي المتواضع للمطلوب جرب تعديل الشرط الأخير في الكود إلى 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 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يوليو 8, 2018 الكاتب مشاركة قام بنشر يوليو 8, 2018 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 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يوليو 9, 2018 الكاتب مشاركة قام بنشر يوليو 9, 2018 للرفع رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 9, 2018 مشاركة قام بنشر يوليو 9, 2018 تفضل أخي الكريم @ابو زاهر نفس الكود السابق فقط كان يحتاج لتطويع حسب الملف المرفق جرب تعديل الشرط الأخير في الكود إلى 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 للحصول على آخر تاريخ تم إدخاله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.