AbuuAhmed

مع ملاحظة أن تنسيق الوقت لا يقبل أكثر من 24 ساعة ، فلو تجاوزت الساعات الإضافية 24 ساعة فـ "سيقلب العداد" وسيبدأ من الصفر. بمعنى لو وصلت الساعة 25 ساعة ستراها ساعة واحدة فقط. لذلك فأنت تحتاج إلى تنسيق رقم عشري للمجموع.

إضافة أخيرة للموضوع جمع بين تنسيق جمع السنين "0000-0000" واستخدام القائمة بدلا من الاستعلام أو الجدول. هذه الإضافة للموضوع وليس لصاحب الموضوع 🙂 MissingYears_05.rar

للأسف أخي لا أستطيع أن أفتح قاعدة البيانات لأن الأكسس عندي إصداره قديم. الزملاء لن يتأخروا علي إن شاء الله.

فكرة القائمة فكرة ممتازة أضافت للموضوع خيارأ رابعا. فهناك رسالة واستعلام وجدول وقائمة. في حلي الأول مطابقة لما طلبت استعلام وطريقة العرض. وفي حلي الأخير مطابقة لطلبك الثاني والذي لم يكن موجودا في طلبك الأول. تركت الحلول ومطابقة الطلب وتمسكت في ملاحظة فنية!! وفي الأخير اختيارك لا يطابق طلبك مع أن نتائج كل الزملاء صحيحة فلهم اعتذاري على تعليقي هذا. إذا لا تريد طباعة الناتج من استعلام أو جدول وتنسيق الناتج فأنا أرشح لك حل @ابوبسمله فهو السهل الممتنع وكلنا لم يفكر به. وبالتوفيق.

ارفع مثالك وسنعدل عليه، بهذه الكيفية ستضطرنا لتصميم جدول وتقرير وسنقوم بإدخالات البيانات.

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

تم تبديل المرفق لأني ما حسبت حساب آخر سنة في النطاق أي السنة الجارية. وكذلك إضافة سطر احتراز لو كان السجل في طور الإضافة.

طريقة أخرى .. في الطريقة الأولى حاولت تجنب استخدام جدول لحفظ النتائج مما يسهم سلبا في توسيع حجم البرنامج مع كل عملية حذف وإضافة، ولكن في هذا المثال لابد من استخدامه. MissingYears_03.rar

هذا اللي جاء في بالي الآن، أكيد في طرق مختصرة بس ما جاء وقتها الآن 🙂 MissingYears_01.rar

تم تبديل المرفق في مشاركتي السابقة بسبب خلطي بين إصدارين مختلفين من المثال أثناء تصرفي في الكود، ففي المثال السابق تم تحديث كود الموديول وتركت كود النموذج للنسخة الأسبق والذي تسبب في عدم فعالية التحكم في محاذاة النص.

وهذا مثال لـ أبو هادي مع تصرف بسيط مني: في آخر الوحدة النمطية (المديول) يوجد إجراء لتطبيق صندوق الرسائل العربي من مواصفاته اختيار الألوان واختيار المؤقت والتحكم بمحاذاة النص. استخدامه يشبه تماما أمر MsgBox مع إضافة ثلاثة حروف Arb بداية الأمر. ArbMsgBox_20200907_03.rar

تم تبديل المرفق بعد مراجعتي ومقارنة النتائج مع الزملاء.

جرب محاولتي: حساب ضريبة كسب العمل_03.xlsx

جرب .. حسب فهمي: test_03.accdb

هذا الناتج من المثال المرفع الأخير: 11 شهر و 29 يوم.

مع احترامي وتقديري للأستاذ @بن علية حاجي ، استخدامك لدالة Date(4,0,0) هي حيلة ذكية ولكنها استخدام خاطئ ولن تحصلوا على نتائج دقيقة بل ستكون تقريبية. سامحني ولكن من باب الأمانة العلمية آليت أن أتداخل فلك تقديري واحترامي وللقراء كامل الحرية في قبول ملاحظتي أو رفضها.

هذه محاولة جرب وخبرنا إلا إذا أردت النتيجة شهور فقط وبكسر عشري غيرنا لك طريقة الحل. التاريخ_02.accdb

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

وهذا كود لإنهاء مهمة أكسس، من جلبي وتصرفي: Sub Kill_msAccess() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc 'Rename MSACCESS.EXE in the line below with the process that you need to Terminate. 'NOTE: It is 'case sensitive If oProc.Name = "MSACCESS.EXE" Then MsgBox "KILL" 'used to display a message for testing pur oProc.Terminate 'kill exe End If Next End Sub

الترتيب لن يخادع دالة DLast 🙂

إذا أردت الشهور للسنة الناقصة (غير المكتملة) فاستخدم المعادلة كالتالي: Me.tmonth = DateDiff("m", Me.Date1, Me.date2) Mod 12

إليك المثال حساب مدة اخر ترقية_02.xlsx

هل يمكنكم رفع نسخة بإصدار 2007 أو أقل؟

راجعت الكود ولاحظت أن اسم المحل قد يتسبب في فشل عملية البحث لو احتوى على الداش "-" فأقترح تبديل سطر واحد في الكود كالتالي: 'pos = InStr(1, QR, "-") pos = InStrRev(QR, "-", -1) - 3

أقترح باستخدام DMax بدلا من DLast تفاديا لأخطاء ادخالات الموظفين، فـ DLast تأخذ القيم حسب ترتيب اضافتها للجداول. والمعذرة لكم.