Moosak

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

وعليكم السلام ورحمة الله وبركاته معلمنا القدير .. 🙂 🌹 وأنا أحد تلاميذك أسمحلي بأن أطرح فكرتي في هذا الموضوع ( وقد عملت على مشروع مشابه) .. 🙂 أولا : نفترض أن الموظف له فترة دوام محددة (من ضمن القائمة التي ذكرتها) بين تاريخين محددين مثال : 1- شهر رمضان له أوقات دوام مختلفة عن باقي الشهور. 2- الموظف أنتقل من موقع عمل لموقع آخر له فترة دوام مختلفة. 3- الموظف تغيرت ورديته من صباحية إلى مسائية أو العكس. 4- والأمثلة كثيرة ..... ثانيا : نقوم بتصميم جدول فرعي لجدول الموظفين (جدول الورديات) يتم فيه إضافة سجل لكل نوع دوام للموظف حسب نوع الوردية وتحديد الفترة الزمنية (من تاريخ) ---> (إلى تاريخ). ثالثا : تصميم نموذج فرعي يضاف لنموذج الموظفين يتم فيه تعبئة هذه البيانات التي ذكرناها في جدول الورديات . رابعا : يتم احتساب مدة العمل والتأخير والانصراف المبكر وعدد ساعات العمل التي أداها الموظف بناءً على فترة دوامه المذكورة في جدول الورديات . وهذه صور توضيحية حسب المشروع الذي عملت عليه وهو خاص ببرنامج لأحد الاخوة 🙂 : جدول الورديات : نموذج بيانات الموظفين + النموذج الفرعي للورديات ( الورديات التي ليس لها تاريخ نهاية هي ورديات مستمرة حتى تاريخ اليوم ولها اعتبار في كود الحسابات) : صورة مقربة للنموذج الفرعي : القائمة المنسدلة للورديات تأخذ بياناتها من جدول فرعي آخر يتم فيه تسجيل أنواع الورديات والبيانات المتعلقة بها : بعد هذا قمنا بتصميم جملة من الدوال الخاصة بجلب البيانات الخاصة بتفاصيل الورديات من الجداول وتطبيقها على الموظفين وحساب ما يطلب حسابه .. هذا باختصار وسلامتكم 🙂

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

طيب كفكرة ممكن تعمل الساعة لحالها في نموذج فرعي وتعمل الحدث في النموذج الفرعي بدون ما يأثر على أحداث النموذج الرئيسي 🙂 Clock In Sub Form.accdb

<<جبتها لك بالنص>> ************************************** السبب في ظهور كلمة "محذوف" (Deleted) في جدول Access المرتبط بقاعدة بيانات SQL Server غالباً يكون: 📌 مشكلة في تعريف المفتاح الأساسي (Primary Key) في الجدول المرتبط عندما تربط جدول SQL Server بـ Access، فإن Access يعتمد على وجود مفتاح أساسي واضح (أو مجموعة مفاتيح فريدة) لتتبع الصفوف. وإذا لم يكن هناك مفتاح أساسي محدد أو كان التعريف غير دقيق، تظهر هذه المشكلة. ✅ الحل إليك خطوات لحل المشكلة: 🛠 1. تأكد من وجود مفتاح أساسي في جدول SQL Server افتح الجدول في SQL Server Management Studio. تأكد أن هناك حقل أو مجموعة حقول مخصصة كمفتاح أساسي (Primary Key). 🛠 2. احذف الربط في Access وأعد ربط الجدول مع تحديد المفتاح الصحيح: الخطوات: في Access، احذف الجدول المرتبط (فقط الرابط، لا تقلق البيانات الأصلية في SQL Server). من الشريط العلوي في Access: اختر "External Data" → ثم ODBC Database. اختر Link to the data source by creating a linked table. اختر مصدر ODBC المرتبط بقاعدة بيانات SQL. بعد تحديد الجدول، سيطلب منك Access اختيار المفتاح الأساسي. حدد الحقل أو الحقول التي تشكل المفتاح الأساسي الحقيقي للجدول (مثلاً: Vou_Detail_ID أو مجموعة من الحقول مثل Vou_ID + Acc_ID إذا كانت تشكل مفتاح مركب). ⚠️ ملاحظات مهمة: إذا لم يكن الجدول يحتوي على مفتاح أساسي في SQL Server، يمكنك إنشاء View في SQL Server تتضمن مفتاحًا فريدًا مؤقتًا (مثل استخدام ROW_NUMBER() أو NEWID()). في بعض الأحيان تظهر هذه المشكلة إذا تم تعديل الجدول يدوياً في Access أو حدث تعارض في الترميز بين SQL وAccess.

شكرا لك حبيبنا @Foksh على هذي العطية الرائعة 🙂 موضوع قديم متجدد وباب الإبداع فيه والتنوع بحر لا ساحل له 😊🖐 وكل فنان وله بصمته فيه .. والأفكار كثيرة لا يمكن حصرها .. لذلك سأكتفي بالتجربة والاستمتاع بهديتك القيمة 😄🌹 فقط مما واجهني عند الضغط على زر ضبط مسار الحفظ بشكل آلي : .. المفروض ينعمل المجلد تلقائيا أليس كذلك ؟! لذلك زر الحفظ يظهر رسالة الخطأ التالية : أنشأت نسخة خاصة بالأمتداد Dat .. ولكن عند الاسترجاع : ملاحظة : النسخ الخاصة لا يتم حفظ بياناتها في الجدول !! وربما التلقائية كذلك (لم أجرب) .. أم هذا مقصود ؟ والباقي راائع كروعتك 😎👌

ما شاء الله تبارك الرحمن ... تقبل الله وجعله في موازين حسناتكم 🙂🌹 عندي بعض المقترحات التحسينية : 1- تفعيل التنقل بين الآيات والسور عن طريق الكيبورد . 2- تمكين البحث والنسخ للآيات . 3- حبذا لو تضاف طريقة لإظهار الآيات الخاصة بالسورة كلها في الصفحة وليس آية آية .. ( تضاف كخيار إضافي للشكل الحالي )>> وهذه يمكن تحقيقها عن طريق عرضها كتقرير في النموذج القرعي وليس كنموذج لكي تلائم السجلات حجم كل آية . تمنياتي لكم بالتوفيق 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لك أخي @waleed907 .. شكله مرتب ومنظم 🙂🌹

السلام عليكم ورحمة الله وبركاته 🌹 بكل فخر وسعادة، تتقدم إدارة منتديات أوفيسنا وكافة أعضائها الكرام بأحرّ التهاني والتبريكات للأخ العزيز فادي @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

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

اعرض الملف 📅📚🔥>> لعبة مطابقة الأرقام 2 :: لتنمية مهارة التركيز 😉👌 <<🧮🌟 :: الإصدار الثاني المطور 😎✌ :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: عدنا إليكم بالإصدار المطور من اللعبة الجميلة 😊🎁 🧮📚>> لعبة مطابقة الأرقام 2.0 <<📚🧮 ملخص اللعبة هو : اللعبة تعطيك رقم عشوائي وكل ما عليك فعله هو إعادة كتابة الرقم من خلال لوحة الأزار التي أمامك أو من خلال أزرار الكيبورد في زمن محدد 😊🖐 .... أنتظر .. هذا ليس كل شيء .. !! 😉 ستخوض تحدي حقيقي هذه المرة خلال عبورك عشر مستويات من الإثارة والمتعة .. حيث أن في كل مستوى سوف يتم إعادة توزيع الأرقام في الأزرار بشكل عشوائي وكذلك عدد الأرقام يزداد والزمن المحدد يقل مما يزيد الإثارة في كل مستوى .. 😁👌 :: مميزات اللعبة والتحديثات الجديدة :: * يمكن اللعب بشكل فردي أو بشكل جماعي (أكثر من لاعب) * * مرحلة تدريبية قبل الشروع في المستوى الأول * * يمكن التنقل بين المستويات العشرة * * تصميم جميل وأنيق ولعبة شيقة تعينك على تمرين مهارة التركيز لديك * وهذه لقطات مختلفة من اللعبة : ::🌷 شكر وتقدير 🌷:: للأخالعزيز المهندس فادي @Foksh لتطويره اللعبة بالشكل الحالي وإضافة أفكاره النيرة ولمساته الرائعة 😊🌹 :: وختاما .. لا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 06/04/25 الاقسام قسم الأكسيس