Moosak

فكرة جميلة يمكن إضافتها بإذن الله .. 🙂 سرني مرروكم جميعاً 😊🌹

وعليكم السلام 🙂 جرب كتابتها هكذا : (أكبر من أو يساوي)----> 0.85

السلام عليكم ورحمة الله وبركاته هذا ناتج تمرين اليوم على البرمجة VBA 🙂 :: آلة حاسبة :: أهديكموها مفتوحة المصدر 😊🎁 ملاحظة : تم إضافة خاصية الحساب عن طريق مفاتيح الكيبورد 😊 مع حل مشكلة الأرقام العشرية 😁 آراؤكم ودعواتكم 😉 Moosak Calculator V1.1.accdb

إضافة إلى جواب أستاذنا جعفر .. 🙂 ضع القيمة الإفتراضية لهذه الحقول في الجدول تساوي 0 وذلك لتلافي هذه الفراغات في المعاملات المستقبلية

أنت الآن جعلتنا نتطمع في رؤية هذه التجربة بعين اليقين 😏 والظاهر أننا لا نعذرك في ذلك ( إلا إن أحيط بكم ودارت عليكم الدوائر فنعذرك حينها ) 😅

وعليكم السلام ورحمة الله وبركاته دكتور محمد 🙂🌹 سؤال: هل هناك آلية لحذف الملفات السابقة (ملفات محددة وليس الكل) حسب الأهمية ..؟ بغرض توفير المساحة 🙂

ليست لدي الطريقة الآن ولكن أقترح عليك بما أنك لم تغير في الجداول أن تبحث عن طريقة تستورد لك البيانات من النسخ القديمة للنسخة الجديدة .. 🙂

وهذه الخلاصة في استعلام نهائي : 🙂 لكنه بطيء حبتين بسبب الدوال المكتوبة في الاستعلام .. ربما يوجد طريقة أسرع لإنجاز المهمة DateVal (1).mdb

أحببت المشاركة مع ما تفضل به مهندسنا الدكتور @د.كاف يار 🙂 وهذا ما توصلت إليه : قمت بإضافة حقل ترقيم تلقائي [Number] في الجدول وذلك لكي تعمل دوال المجال بشكل صحيح 🙂 العمود الأيسر الأخير يبين لك القيمة الأكبر لكل ID .. وفي بعضها تتكرر القيمة بسبب أن الفرق بين الفترات متشابه. تحتاج الآن لاستعلام تجميعي يعزل لك السجلات ذات القيمة الأكبر ( لأني ما عرفت كيف أسويه ) DateVal (1).mdb

الحمدلله .. توفيق من الله 🙂 البرنامج الحالي يحدث لك التواريخ تلقائيا ويعطيك التواريخ حسب اليوم بدقة .. جرب الانتقال بين الأسابيع من الأزرار العلوية [الأسبوع السابق]……[الأسبوع التالي] ولاحظ التواريخ بنفسك 🙂👌🏻 ومن مزاياه أنه أول ما يفتح يركز لك على الأسبوع الحالي .. ويلون لك اليوم اللي أحنا فيه بالأصفر مثل الصورة اللي وضعتها سابقا .. 😉 وفي أعلى اليمين ممكن تنتقل لأي يوم تريده من أيام السنة .. وكذلك عندك جدول لأسماء القاعات ممكن من خلاله تزيد قاعات جديدة أو تغير أسمائها.

وعليكم السلام ورحمة الله وبركاته contrac.accdb

الكود موضوع على حدث بعد التحديث للاسم الرابع 🙂 هكذا : Private Sub fourthName_AfterUpdate() fullName = [firstName] & " " & [secondName] & " " & [thirdName] & " " & [fourthName] fullName.Requery End Sub

وعليكم السلام ورحمة الله وبركاته أخي عدنان .. لا تنسى أن ترفق ملفك أخي عدنان لوضع اليد على مكان المشكلة بالضبط 🙂 وقبل ذلك لا يفوتك أن تمر على هذا الموضوع إن شاء الله تجد فيه الحل 😊👌🏼

تفضل أخي لقمان : بالنسبة لمعادلة حساب عدد السجلات التي تقع بين القيمتين فبهذه الطريقة : DCount("*";"[sub]";"[ID] ="& [Forms]![Head]![ID] &" And [No] >"& [Forms]![Head]![txt2] &" And [No] <"& [Forms]![Head]![txt1]) وبمساعدة الكاتب الذكي دوال المجال نحصل عليها هكذا 🙂 : 2.accdb

بارك الله فيك مهندسنا @د.كاف يار 🙂 🌹 كلماتك تبعث الروح في النفس ☺️ العفو مهندسنا العزيز @Eng.Qassim 🙂 سرني مروركم 🌹

هذه فكرة أخرى مشاركة لأخي الحلواني @أبو عبدالله الحلوانى 🙂 إضافة تقرير فرعي وهو عبارة عن صفحة فارغة لذلك ستفصل بين السجلات .. M_L - Copy.rar

وعليكم السلام ورحمة الله وبركاته أخي العزيز .. أتمنى أن يكون هو المطلوب 🙂 2.accdb

انتهيت ولله الحمد 😄 للتحميل من المرفقات ( دعوة للتجربة وإبداء الرأي ) 😊: الروزنامة الأسبوعية.accdb

أخي علي أنهيت 90% تقريبا من العمل ولله الحمد ..🙂 بقي لدي سؤال .. هل ستكون الأيام من السبت الى الجمعة؟.. أم من الأحد إلى الخميس ؟

نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️ أخي بلال وضعته لك في مثال 🙂 : تضع الدالة على مصدر صندوق النتيجة هكذا : =DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To]) التواريخ.accdb

في أحد برامجي صممت شيء مشابه لذا الموضوع نوعا ما .. ولكنه يحتاج لشغل محترم للتنفيذ 👌🏼 سأحاول أن أمشي معك خطوة خطوة للتنفيذ ..

أخي بلال ضع مرفقك أو صور لنا كيف طبقتها ..

وعليكم السلام ورحمة الله وبركاته أخي علي ..🙂 نحتاج للمزيد من التفاصيل عن آلية العمل علي الروزنامة والهدف منها؟ هل هي أسبوعية أم شهرية ؟ وعدد الأعمدة والصفوف بالضبط ؟ وما نوع البيانات التي ستكتب ؟

لا تلومني العتب على النظر 😂 لا هذي يبغالها شرح عملي 😏

وعليكم السلام ورحمة الله وبركاته الأخ بلال 🙂 هذه الجزئية غير واضحة ! على الرغم من ذلك جرب هذه المعادلة : DateDiff("yyyy", DateAdd("yyyy", 3, date1), Date2) date1 = تاريخ التعيين Date2 = تاريخ الانتهاء