محمد سلامة قام بنشر أغسطس 27, 2020 مشاركة قام بنشر أغسطس 27, 2020 السلام عليكم ورحمه الله وبركاته السادة الأعضاء الأفاضل ..بحثت في المنتدي لكني لم اوفق في التواصل للمطلوب اريد ترقيم شهري يتغير بتغير الشهر بهذه الصيغة 2020/08/001 001 هو الترقيم 2020/08 وهذا هو الشعر والسنة جربت بعض الاكواد وألامثلة ولكن لم اصل للمطلوب اشكركم جميعاً رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 27, 2020 مشاركة قام بنشر أغسطس 27, 2020 ممكن تستفيد من المرففترقيم حسب الشهر.mdb وتطوره فيه بعض الاخطاء ممكن تصححها وترسلها نستفيذمنها ترقيم حسب الشهر.mdb الترقيم حسب الشهر والسنة.rar 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب مشاركة قام بنشر أغسطس 29, 2020 في ٢٧/٨/٢٠٢٠ at 19:20, طاهر الوليدي said: ممكن تستفيد من المرففترقيم حسب الشهر.mdb وتطوره فيه بعض الاخطاء ممكن تصححها وترسلها نستفيذمنها ترقيم حسب الشهر.mdb 320 kB · 3 تنزيلات الترقيم حسب الشهر والسنة.rar 20.42 kB · 6 تنزيلات للاسف جربتها كلها ولم تفلح في ما اريد اريد كود ترقيم شهري بهذه الصيغة 2020/08/001 001 هو الترقيم 2020/08 وهذا هو الشهر والسنة ويتغير بتغير الشهر تلقائيا اتمني اجد ما أريده رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أغسطس 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.accdb 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 29, 2020 مشاركة قام بنشر أغسطس 29, 2020 2 ساعات مضت, الفلاحجى said: اتفضل استاذ محمد هذا المثال هنا ملاحظة من الاستاذ المحاسب عبدالله قدور ، لما استعملت Dcount 🙂 جعفر 1 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب مشاركة قام بنشر أغسطس 29, 2020 (معدل) جزاك الله خيرا استاذ احمد الفلاحجي وبارك الله فيك 5 ساعات مضت, الفلاحجى said: اتفضل استاذ محمد هذا المثال حاجه على قدى لعله يفى بالغرض وضعت الكود فى حدث بعد التحديث للتاريخ بامكانك وضعه فالحدث المناسب لك sYM = DCount("dDate", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'") + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(sYM, "000") استاذ جعفر جزاك الله خيرا معلوكة وملحوظة جيدة جدا 2 ساعات مضت, jjafferr said: هنا ملاحظة من الاستاذ المحاسب عبدالله قدور ، لما استعملت Dcount ================================================= وقد نسخة المعلومة هنا ليستفيد منها الاعضاء مستقبلاً ================================================ وعليكم السلام أخي عبدالله انا في اعتقادي Dcount أفضل ، لهذه الاسباب: 1. لسنا بحاجة الى الامر NZ لأول رقم ، 2. اذا لأي سبب تم حذف سجل في منتصف السجلات ، فـ Dmax سيعطيك الرقم الاكبر التالي ، مما يعني انك لن تعرف ان هناك رقم ناقص/تم حذفه من المنتصف ، ويصبح التسلسل غير صحيح (إلا اذا كان هذا غير مهم ، فهنا Dmax أفضل) ، بينما في Dcount ، فممكن معرفة اذا تم حذف سجل بسهولة ، حيث ان الرقم الاخير الموجود سوف يتكرر (طبعا هذا سيطلب تدخل المبرمج لحل هذه النقطة) ، ونستطيع ان نعمل كود للتأكد بأن الرقم غير متكرر ، مما سيعطينا اشعار بذلك ، 3. Dmax يقرأ بيان الحقل ، بينما Dcount يحسب السجلات ، لهذا Dcount اسرع في التنفيذ ولكن في نهاية الامر ، كل الطرق تؤدي الى روما ، والخيار للذي ترتاح له تم تعديل أغسطس 29, 2020 بواسطه jjafferr تم تظليل المادة 2 لتكون واضحة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 29, 2020 مشاركة قام بنشر أغسطس 29, 2020 شكرا لك اخي محمد ، ولكن الاستاذ عبدالله يقول استعمل DMax ولا تستعمل DCount ، للسبب رقم 2 في ملاحظتي اعلاه 🙂 جعفر 2 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب مشاركة قام بنشر أغسطس 29, 2020 9 دقائق مضت, jjafferr said: شكرا لك اخي محمد ، ولكن الاستاذ عبدالله يقول استعمل DMax ولا تستعمل DCount ، للسبب رقم 2 في ملاحظتي اعلاه 🙂 جعفر اشكرك استاذ جعفر علي المتابعة @jjafferr فعلا .. وانا اريد إستعمال dmax لأنها تناسب البرنامج الذي اعمل علي تنفيذه الان .. واحاول تعديل مثال استاذ الفلاحجي باستبدال Dcount بي Dmax ولكن لم يفلح التعديل رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أغسطس 29, 2020 مشاركة قام بنشر أغسطس 29, 2020 جزاك الله خيرا اخى واستاذنا الجليل @jjafferr على هذا الرابط والمعلومات القيمه جعلها الله فى موازين حسناتكم وفيك بارك الله اخى @محمد سلامة سوف احاول العمل عالتعديل وان شاء الله احد اخواننا واساتذتنا يساعد معنا رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبوبسمله قام بنشر أغسطس 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.accdb 1 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أغسطس 29, 2020 مشاركة قام بنشر أغسطس 29, 2020 جزاك الله خيرا معلمنا العزيز @jjafferr 💐 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر أغسطس 29, 2020 الكاتب مشاركة قام بنشر أغسطس 29, 2020 جزاكم الله خيرا .. جزيل شكري وامتناني بارك الله فيكم استاذ احمد - استاذ جعفر تمام التمام 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أغسطس 29, 2020 مشاركة قام بنشر أغسطس 29, 2020 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى محمد 1 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر سبتمبر 9, 2020 مشاركة قام بنشر سبتمبر 9, 2020 الخبير الفاضل الفلاحجى شكرا على الاجابة التى افادتنى كثيرا 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 9, 2020 مشاركة قام بنشر سبتمبر 9, 2020 18 دقائق مضت, jo_2010 said: شكرا على الاجابة التى افادتنى كثيرا الحمدلله الذى بنعمته تتم الصالحات والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خير بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان