Moosak

السلام عليكم ورحمة الله وبركاته 🌹 بكل فخر وسعادة، تتقدم إدارة منتديات أوفيسنا وكافة أعضائها الكرام بأحرّ التهاني والتبريكات للأخ العزيز فادي @Foksh بمناسبة ترقيته إلى درجة مشرف 👏🎖️ لقد أثبت حضورك وجهودك الملحوظة في دعم الأعضاء وتقديم الفائدة باستمرار، وكان لعطائك بصمة واضحة في رُقي المنتدى وتطوره 📈💡 ✨ نبارك لك هذه الترقية المستحقة، ونتمنى لك كل التوفيق والنجاح في مهامك الجديدة ضمن كوكبة الإشراف في فريق الموقع 🌟 🌟 أهلاً وسهلاً بك في فريق أوفيسنا، واثقين بأنك ستواصل تميزك وتألقك بإذن الله 🌈 مع أطيب التحيات والتقدير، إدارة منتديات أوفيسنا 💼🌟

مبارك عليك المسمى أخي @Ahmos 🙂 وهو ليس عليك بجديد .. ومبارك علينا انظمامك لهذه القافلة المباركة .. 🌹 جعلك الله عطاء لا ينضب 🙂🤲

تفضل : 🙂 حتى في النموذج التواريخ المنتهية تلون بالأحمر .. ta13.rar

لكل مقام مقال 😎👌

بأبسط الامكانيات عملت لك حقلين في الأستعلام من نوع (True / False ) الأول يتحقق من دخول الفترة الزمنية نطاق التنفيذ .. والثاني يتحقق من أن الأيام دخلت نطاق التنفيذ .. وبالتالي صار سهل جدا فلترة السجلات بناءا عليهما : وهكذا تضع الشروط بكل سهولة 🙂 : Database1 (1).accdb

السلام عليكم 🙂 وهذا النموذج الذي يظهر المنتهية فقط ويميزها باللون الأحمر : ta13.rar

وعليكم السلام ورحمة الله وبركاته عمي @ابوخليل 🙂 هل هذا ما تريد الوصول إليه ؟ قدمت وقت الفترة الأولى لكي يظهر معي السجل .. 🙂 حاس أن الموضوع فيه تعقيد أكثر مما أتصور 😅🖐️ Database1.accdb

شكرا لك عمي @ابوخليل 🙂 على هذا العطاء .. 🌹 شخصيا أنا أدعم وكذلك يعجبني التوجه الذي يقتضي استخدام نفس العنصر (نموذج/تقرير) بأكثر من طريقة ولأكثر من غرض بدل تصميم نموذج لكل حالة 🙂 وهذه واحدة من أروع الحيل لتحقيق ذلك .. 👍🙂 درة ثمينة تضاف للمكتبة العامرة 😊👌 جعلها الله شفيعة لك 😇🤲

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

التجربة الأولى ناجحة ولله الحمد 🙂 بس لما رجعت أجرب نفس الكود السابق حصلت على نفس النتيجة السابقة 😅 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub والنتيجة : '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-06-10 17:43:10 ' Tool version: v1.3 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub #If VBA7 Then ' 64-bit declarations Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr) Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #End If الترتيب غير صحيح .. المفروض : الثوابت ثم -----> دالة ال API ثم -----> الدالة الفرعية

شكرا لك عمي جعفر @jjafferr على الطرح المميز والأفكار الرائعة 😊🌹 في هذي النقطة وحسب ما هو ملاحظ في برامج الصور .. مساحة العمل على الصورة محددة ولها مكانها الخاص به .. ماتجي في الخلفية وخلف الأزرار والأدوات .. فلما يكون الصورة الملتقطة لها مكانها الخاص بيكون أفضل من وجهة نظري (وهو الحل الوسط) .. 🙂👌

إطلالة سريعة على هذا الموضوع قد تكون مفيده بدرجة كبيرة قد لا تتصورها : جدول بآيات القرآن الكريم كاملا.zip

أنت اللي حاط الوقت .. تصرف !! 😂😅