نجوم المشاركات

السلام عليكم ورحمة الله وبركاته، كيف حالكم اخواني الأفاضل. مبارك عليكم حلول شهر رمضان المبارك أعاده الله علينا وعليكم باليمن والخير والبركات. اقدم لكم فنكشن لإحتساب المدة بين تاريخين سنة - شهر - اسبوع - ساعة - دقيقة - ثانية سؤال: ما الفائدة من هذا الفنكشن؟ بالدرجة الأولى سيُفيد أصحاب برامج الأقساط والتقسيط لإحتساب فترات التأخير والإستحقاق وغيرها. وربما هنالك استخدامات أخرى له، حسب احتياج كل شخص الفنكشن: Public Function MainElapsedTime(d1, d2) As String d1 = CDate(d1) d2 = CDate(d2) vSecs = DateDiff("s", [d1], [d2]) MainElapsedTime = ElapsedTimeAsTextRecur(vSecs) End Function Public Function ElapsedTimeAsTextRecur(ByVal pvSecs, Optional ByVal pvSecBlock) 'recursive time lapse given seconds Dim vTxt Dim iNum As Long Const kDAY = 86400 Const kSECpYR = 31536000 '60 sec = 1 min = 60 sec '60 min = 1 hour = 3,600 sec '24 hour = 1 day = 86,400 sec '07 days = 1 week = 604,800 sec '30 days = 1 month = 25,92,000 sec '12 months = 1 year = 31,536,000 sec 'YEARS If IsMissing(pvSecBlock) Then pvSecBlock = kSECpYR iNum = pvSecs \ pvSecBlock Select Case pvSecBlock Case kSECpYR 'yr sUnit = "years" If iNum > 0 Then vTxt = iNum & " Years " pvSecs = pvSecs - (iNum * pvSecBlock) End If vTxt = vTxt & ElapsedTimeAsTextRecur(pvSecs, 2592000) Case 2592000 'MO sUnit = "months" If iNum > 0 Then If iNum > 11 Then iNum = 11 vTxt = vTxt & iNum & " Months " pvSecs = pvSecs - (iNum * pvSecBlock) End If vTxt = vTxt & ElapsedTimeAsTextRecur(pvSecs, 604800) Case 604800 'WEEK sUnit = "weeks" If iNum > 0 Then If iNum > 3 Then iNum = 3 vTxt = vTxt & iNum & " Weeks " pvSecs = pvSecs - (iNum * kDAY * 7) End If vTxt = vTxt & ElapsedTimeAsTextRecur(pvSecs, 86400) Case kDAY 'day sUnit = "days" If iNum > 0 Then vTxt = vTxt & iNum & " Days " pvSecs = pvSecs - (iNum * kDAY) End If vTxt = vTxt & ElapsedTimeAsTextRecur(pvSecs, 3600) Case 3600 'hrs sUnit = "hrs" If iNum > 23 Then iNum = 23 If iNum > 0 Then vTxt = vTxt & iNum & " Hours " pvSecs = pvSecs - (iNum * pvSecBlock) End If vTxt = vTxt & ElapsedTimeAsTextRecur(pvSecs, 60) Case 60 'min sUnit = "mins" If iNum > 0 Then vTxt = vTxt & iNum & " Minutes " pvSecs = pvSecs - (iNum * pvSecBlock) End If vTxt = vTxt & ElapsedTimeAsTextRecur(pvSecs, 1) Case Else sUnit = "secs" If pvSecs > 0 Then vTxt = vTxt & pvSecs & " Seconds" End Select ElapsedTimeAsTextRecur = vTxt End Function الإستخدام بسيط جدا في الإستعلامات او في النماذج او التقارير كالآتي: MainElapsedTime("Here your date", Date()) --------------------------------------------------- Example: MsgBox MainElapsedTime("6/3/2020", "14/4/2021") النتيجة: هنا انا قمت بمقارنة تاريخين فقط بدون أوقات، سأقوم الآن بمقارنة تاريخ مع وقت MsgBox MainElapsedTime("2/02/2019 12:07:16 pm", "13/04/2021 1:08:6 am") النتيجة: للأمانة الكود ليس من كتابتي 100%، فقط انا قمت بالتعديل عليه ليصبح بشكل افضل.. تحياتي وانتضرو مفاجئتي في الموضوع القادم

تفضل هذا التعديل تم ارجاع كل شي كما في السابق - اضافة العمود الجديد لا يؤثر على البرنامج بشكل عام فهو تنظيمي - محفوظ : تعني انك تستطيع التعديل على السجل في اي وقت . - مرحلة : تعني لا تستطيع التعديل لكن بالإمكان انشاء نسخة ممثالة . مرفق التعديل DATA2000.mdb

كل عام وحضراتكم جميعا بخير مبارك عليكم الشهر اسأل الله أن يوفقنا فيه للأعمال الصالحات ويتقبل منا ويجعلنا من عتقائه من النار في هذا الشهر الكريم وجزاكم الله خيرا

تفضل هذا التعديل Microsoft Access قاعدة بيانات جديد (2).accdb

اذا اتفضل هذا التعديل تم ربط التاريخ و الرقم و المخزن DATA2000.mdb

عليكم السلام والرحمة تفضل التعديل Last Po2.rar

هذه المعلومة (الظريفة 🙂) منك اخي الكريم جعلتني أعيد النظر في الجدولين، فأضفت للجدول الثاني (b14000) حقل (MNO) ليكون رابطا بين الجدولين وبعد النظر في مكتبة الأكواد التي عندي -والتي مصدرها مشاركات الأفاضل أمثالك أخي الكريم- عدلت الكود إلى cdb.Execute "UPDATE b14 INNER JOIN b14000 ON b14.MNO = b14000.MNO SET b14.HNO = [b14000].[HNO]" وزبطت معي أخيرا .. والآن سوف أضيف الكود (المبالغ به 😃) الذي تفضلت به لهذه المكتبة .. لاستخدامه في التجارب والاختراعات المقبلة

شكرا لك أخي الفاضل husamwahab هذا ما كنت أقصدة بالفعل تقبل الله طاعاتكم ,, وجزاكم الله خير .

جرب هذا جمع كودين.xlsm

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

شكرا ابا مهاب وكل عام وانتم بخير

عليكم السلام والرحمة مبارك عليكم الشهر الفضيل وتقبل الله صيامكم تفضل هذه المحاولة PDF2.rar

وانت من المحسنين استاذ nssj انا معك ان الكود مبالغ به لكن هذا ما استطعت ان اجده من حل ممكن وان شاء الله اساتذتنا الاجلاء لن يبخلوا علينا بحل افضل بالنسبة للكود اعلاه مشكلته انه يجب ان تكون هناك علاقة بين الجدولين والله العالم

تفضل هذه المحاولة سجلات xxx.rar

كل عام وانتم جميعاً بخير والنجاح والتفوق دائماً لمنتدانا الكريم

الحل بالمعادلات مش اكواد =COUNTIFS(B2:B5;B5;E2:E5;E5) =IF((E5=E4)*AND(C4<>"");C4;C4+1) تفضل اخي عمر الملف بالاكواد تعبئة.xls

جزاك الله خيرا استاذى العزيز @kha9009lid وبالنسبه للملف المرفق فهو للاستاذ محمد فؤاد تركى جزاه الله خيرا فشرح بناء نظام المخازن ومرفق الملف النهائى لهذا الشرح لمن اراده تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم مرفق الملف النهائي للعمل19.rar

الاخوه الكرام في بعض الاحيان نقوم بتصميم برامج على الاكسيل ولا نحتاج الى تصفح الملف لان العمل ينفذ بالكامل من خلال الفورم ولا ننسى ان المنظر الجمالي للبرنامج يكون بشكل ارقى بكثير حينما يظهر الفورم فقط المرفق المرسل هو ملف دليل الهاتف الذي ارسلته منذ عشرة ايام تقريبا ولكني فضلت ان يكون في موضوع منفصل حتي يتيح للجميع التعرف على كيفية اخفاء الملف بالكامل * في حال انك رغبت في اظهار الملف ،ستجد في اسفل الفورم من الجهه اليسرى زر امر بدون عنوان ارجوا المعذره ان كانت الفكره قديمه او مطروحه من قبل ، لكنني شخصيا لم اعلمها الا اليوم PHONE BOOK.rar

السلام عليكم استاذ جمال شكرا على الاستجابة والرد الطيب وارجو منك مساعده بسيطة وهى يظهر لى علامات الخطا فكيف احلها بمعنى اخفاء علامة الخطافى هذه المعادلات الايوجد طريقة لعمل تصحيح لهذه القيم الخطا فى اى معادلة بمعنى الايوجد طريقة ثابته لاخفاء هذه الاخطاء وشكرا 2012.rar

بسم الله الرحمن الرحيم ادرج اليكم ملف اكسل عن الإصدار الرابع من اعداد xlfdic و هو بالتأكيد مفيد جدا و إن شاء الله تستفيدوا منه و اردت اضافته و لما به من شرح جميل لعدد كبير من الدوال التي نحتاجها ملحوظه:- قد يكون ادرج في الموقع منذ زمن الإصدار الاول و لكن رأيت اعداد الموضوع لإستفاده الجميع او للتذكير به XLFDIC04.zip