محمد سلامة قام بنشر أغسطس 27, 2020 قام بنشر أغسطس 27, 2020 السلام عليكم ورحمه الله وبركاته السادة الأعضاء الأفاضل ..بحثت في المنتدي لكني لم اوفق في التواصل للمطلوب اريد ترقيم شهري يتغير بتغير الشهر بهذه الصيغة 2020/08/001 001 هو الترقيم 2020/08 وهذا هو الشعر والسنة جربت بعض الاكواد وألامثلة ولكن لم اصل للمطلوب اشكركم جميعاً
طاهر الوليدي قام بنشر أغسطس 27, 2020 قام بنشر أغسطس 27, 2020 ممكن تستفيد من المرففترقيم حسب الشهر.mdb وتطوره فيه بعض الاخطاء ممكن تصححها وترسلها نستفيذمنها ترقيم حسب الشهر.mdbFetching info... الترقيم حسب الشهر والسنة.rarFetching info... 1
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب قام بنشر أغسطس 29, 2020 في 27/8/2020 at 17:20, طاهر الوليدي said: ممكن تستفيد من المرففترقيم حسب الشهر.mdb وتطوره فيه بعض الاخطاء ممكن تصححها وترسلها نستفيذمنها ترقيم حسب الشهر.mdb 320 kB · 3 تنزيلات الترقيم حسب الشهر والسنة.rar 20.42 kB · 6 تنزيلات Expand للاسف جربتها كلها ولم تفلح في ما اريد اريد كود ترقيم شهري بهذه الصيغة 2020/08/001 001 هو الترقيم 2020/08 وهذا هو الشهر والسنة ويتغير بتغير الشهر تلقائيا اتمني اجد ما أريده
أبوبسمله قام بنشر أغسطس 29, 2020 قام بنشر أغسطس 29, 2020 السلام عليكم اخى @محمد سلامة مشاركه مع الاخ طاهر جزاه الله خيرا اتفضل استاذ محمد هذا المثال حاجه على قدى لعله يفى بالغرض وضعت الكود فى حدث بعد التحديث للتاريخ بامكانك وضعه فالحدث المناسب لك sYM = DCount("dDate", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'") + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(sYM, "000") بالتوفيق New.accdbFetching info... 2
jjafferr قام بنشر أغسطس 29, 2020 قام بنشر أغسطس 29, 2020 في 29/8/2020 at 13:50, الفلاحجى said: اتفضل استاذ محمد هذا المثال Expand هنا ملاحظة من الاستاذ المحاسب عبدالله قدور ، لما استعملت Dcount 🙂 جعفر 1 1
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب قام بنشر أغسطس 29, 2020 (معدل) جزاك الله خيرا استاذ احمد الفلاحجي وبارك الله فيك في 29/8/2020 at 13:50, الفلاحجى said: اتفضل استاذ محمد هذا المثال حاجه على قدى لعله يفى بالغرض وضعت الكود فى حدث بعد التحديث للتاريخ بامكانك وضعه فالحدث المناسب لك sYM = DCount("dDate", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'") + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(sYM, "000") Expand استاذ جعفر جزاك الله خيرا معلوكة وملحوظة جيدة جدا في 29/8/2020 at 16:37, jjafferr said: هنا ملاحظة من الاستاذ المحاسب عبدالله قدور ، لما استعملت Dcount ================================================= وقد نسخة المعلومة هنا ليستفيد منها الاعضاء مستقبلاً ================================================ وعليكم السلام أخي عبدالله انا في اعتقادي Dcount أفضل ، لهذه الاسباب: 1. لسنا بحاجة الى الامر NZ لأول رقم ، 2. اذا لأي سبب تم حذف سجل في منتصف السجلات ، فـ Dmax سيعطيك الرقم الاكبر التالي ، مما يعني انك لن تعرف ان هناك رقم ناقص/تم حذفه من المنتصف ، ويصبح التسلسل غير صحيح (إلا اذا كان هذا غير مهم ، فهنا Dmax أفضل) ، بينما في Dcount ، فممكن معرفة اذا تم حذف سجل بسهولة ، حيث ان الرقم الاخير الموجود سوف يتكرر (طبعا هذا سيطلب تدخل المبرمج لحل هذه النقطة) ، ونستطيع ان نعمل كود للتأكد بأن الرقم غير متكرر ، مما سيعطينا اشعار بذلك ، 3. Dmax يقرأ بيان الحقل ، بينما Dcount يحسب السجلات ، لهذا Dcount اسرع في التنفيذ ولكن في نهاية الامر ، كل الطرق تؤدي الى روما ، والخيار للذي ترتاح له Expand تم تعديل أغسطس 29, 2020 بواسطه jjafferr تم تظليل المادة 2 لتكون واضحة
jjafferr قام بنشر أغسطس 29, 2020 قام بنشر أغسطس 29, 2020 شكرا لك اخي محمد ، ولكن الاستاذ عبدالله يقول استعمل DMax ولا تستعمل DCount ، للسبب رقم 2 في ملاحظتي اعلاه 🙂 جعفر 2
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب قام بنشر أغسطس 29, 2020 في 29/8/2020 at 18:51, jjafferr said: شكرا لك اخي محمد ، ولكن الاستاذ عبدالله يقول استعمل DMax ولا تستعمل DCount ، للسبب رقم 2 في ملاحظتي اعلاه 🙂 جعفر Expand اشكرك استاذ جعفر علي المتابعة @jjafferr فعلا .. وانا اريد إستعمال dmax لأنها تناسب البرنامج الذي اعمل علي تنفيذه الان .. واحاول تعديل مثال استاذ الفلاحجي باستبدال Dcount بي Dmax ولكن لم يفلح التعديل
أبوبسمله قام بنشر أغسطس 29, 2020 قام بنشر أغسطس 29, 2020 جزاك الله خيرا اخى واستاذنا الجليل @jjafferr على هذا الرابط والمعلومات القيمه جعلها الله فى موازين حسناتكم وفيك بارك الله اخى @محمد سلامة سوف احاول العمل عالتعديل وان شاء الله احد اخواننا واساتذتنا يساعد معنا
تمت الإجابة أبوبسمله قام بنشر أغسطس 29, 2020 تمت الإجابة قام بنشر أغسطس 29, 2020 اخى الفاضل @محمد سلامة جرب التعديل التالى ووافنى بالنتيجه وارجو الاطلاع من اخى ومعلمنا العزيز @jjafferr dl = Nz(DMax("idym", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'"), 0) rd = Right([dl], Len([dl]) - InStrRev([dl], "/")) + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(rd, "000") New - 1.accdbFetching info... 1
jjafferr قام بنشر أغسطس 29, 2020 قام بنشر أغسطس 29, 2020 ممكن تختصرها الى : dl = Nz(DMax("idym", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'"), 0) rd = int(Right([dl],3)) + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(rd, "000") ولكن تذكر ، انك تأخذ التاريخ من الحقل الآخر ، وليس من نفس الحقل الذي فيه الرقم. جعفر 1 1
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب قام بنشر أغسطس 29, 2020 جزاكم الله خيرا .. جزيل شكري وامتناني بارك الله فيكم استاذ احمد - استاذ جعفر تمام التمام 1
أبوبسمله قام بنشر أغسطس 29, 2020 قام بنشر أغسطس 29, 2020 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى محمد 1
jo_2010 قام بنشر سبتمبر 9, 2020 قام بنشر سبتمبر 9, 2020 الخبير الفاضل الفلاحجى شكرا على الاجابة التى افادتنى كثيرا 1
أبوبسمله قام بنشر سبتمبر 9, 2020 قام بنشر سبتمبر 9, 2020 في 9/9/2020 at 19:06, jo_2010 said: شكرا على الاجابة التى افادتنى كثيرا Expand الحمدلله الذى بنعمته تتم الصالحات والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خير بالتوفيق 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.