منتصر الانسي

اخي العزيز يبدو لي أنك ممارس للعمل بإستخدام الأكسل وتريد تطبيق ما تقوم به في أكسل في الأكسس المشكلة هنا ليست في الحل بل في الطلب نفسه فأنت هنا تتعامل مع قاعدة بيانات يكون لكل حقل في الجدول نوع بيانات مخصص فعندما تقول هذا حقل تاريخ فيمكنك عندها إدخال قيمة تاريخ واحدة في الحقل يمكنني أن أجيب عليك بحل سريع وأقول لك غير نوع الحقل إلى نص عندها ستتمكن من إدخال التاريخين في نفس المكان وبإمكانك مشاهدة النتيجة في المرفقات ولكن هذا لا يعتبر حلاً صحيحاً فأنت لن تستطيع التعامل معهما كتاريخين بل كنص الاكسس قاعدة بيانات علائقية والاكسل قاعدة بيانات مسطحة فإذا أردت العمل مع قواعد البيانات العلائقية فيجب عليك الإطلاع على موضوع مهم وهو التطبيع أو ما يسمى بـ(Normalize) والذي ستتمكن من خلاله فهم طريقة تحويل الجداول المسطحة إلى جداول علائقية ومن أهم نماذج التطبيع هو تحويل الأعمدة المتشابهة إلى سجلات بمعنى أنه من الخطأ أن تنشئ عمود لكل شهر بل عليك إنشاء جدول جديد للإحتفاظ بقيم التواريخ وربط الجدول الجديد مع الجدول الأصلي بعلاقة عن طريق أحد الحقول الأخرى الموضوع كبير ولن أستطيع شرحه في رد بسيط ولكني أنصحك أن تقوم بالبحث والإطلاع عن الطرق العلمية الصحيحة لإنشاء قواعد البيانات والجداول وأنواع بيانات الحقول عندها ستعرف لماذا قلت لك أن المشكلة ليست في الإجابة على طلبك ولكنها في طريقة تصميم الجدول نفسه تحياتي test.rar

اعرض الملف أداة تصفية النماذج والتقارير المخصصة {سلسلة الأدوات المساعدة المخصصة} نواصل سلسلة الأدوات المخصصة بهذه الأداة الجميلة التي ستوفر عليك الكثير من الوقت والجهد في كتابة الأوامر الخاصة بعملية تصفية النماذج والتقارير قمت بإرفاق ملف وورد يوضح طريقة الإستفادة من الأداة بالإضافة إلى التعليقات التوضيحية مع الأكواد أرجو أن يستفيد الأعضاء من هذه الأداة مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 08/15/25 الاقسام قسم الأكسيس  

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

اخي العزيز في البداية هناك مشاكل واضحة في طريقة تصميم الجدول سواء من حيث التطبيع أو طريقة تسمية الكائنات ولكن اذا عدنا لسؤالك فأنت تقول أن المهمة تبدأ في 01/01/2025 وتنتهي في 15/01/2025 والإجازة تبدأ في 17/01/2025 وتنتهي في 15/02/2025 ولكن عند فتح الجدول نجد التاريخين 01/01/2025 و 15/01/2025 فقط من الأفضل أن يحتوي المثال على عدد كافي من البيانات لتطبيق الفكرة على أساسها ويمكنك تصميم التقرير في وورد أو في أكسل لتوضيح شكل التقرير الذي تريده كنتيجة للبيانات التي يحتويها المثال تحياتي

وهذا هو ما نحاول القيام به انا من جهتي وجدت طريقة نجحت في التعرف على الجداول وهي usysbarnamg usystarweesa اطراف اطراف استحقاق الاصناف البيانات الاساسية الجهات المنصرف لها ولكنها تحتاج الى التعرف على بنية الجداول لإستعادة البيانات لذلك طلبت منك نسخة من تلك الجداول لمعرفة هل هذه هي كل الجداول أو انه مازالت هناك جداول لم يتعرف عليها البرنامج هذا من جهة ومن جهة أخرى لمعرفة أنواع البيانات لحقول كل جدول حتى يتم إستعادة البيانات بشكل صحيح تحياتي

اذا لديك نسخة قديمة قم باستيراد الجداول الى قاعدة بيانات جديدة وفرغها من أي بيانات وارسلها

قم بإستيراد النموذج والوحدة النمطية والجدول إلى التطبيق الخاص بك

اضغط زر اعرض الملف ستنتقل لصفحة الاداة في المكتبة ستجد زر حمل هذا الملف

هل تقصد بهذا الشكل تحديد البرنامج.rar

تغييرهم الى ماذا؟ الان انا إخترت تحضيري فظهر لي سجلين (هشام وقيس) ما الذي تريده أن يحصل لهما عند الضغط على الزر؟

اعرض الملف أداة الترقيم التلقائي المخصص - مع مراعاة الأرقام المفقودة {سلسلة الأدوات المساعدة المخصصة} هذه الأداة تقوم بمهمتين في غاية الأهمية الأولى إمكانية إستخدام الأرقام المفقودة (المحذوفة) الثانية إمكانية الترقيم بحسب مجموعة أو فئة (كالترقيم بحسب السنة مثلاً) أعتقد أن الكثير منا سيحتاجها في وقت من الأوقات لذا من الجيد أن تكون متوفرة في ذلك الوقت تحياتي صاحب الملف منتصر الانسي تمت الاضافه 08/09/25 الاقسام قسم الأكسيس  

اعرض الملف أداة تصفية النموذج أثناء الكتابة على أساس أي حقل من حقول النموذج {سلسلة الأدوات المساعدة المخصصة} ستقوم هذه الأداة بتوفير كل الوقت الذي قد تضيعه في التفكير لطرق تصفية النماذج وستستغني بها عن كل الأكواد أو الأوامر الطويلة داخل كل نموذج للقيام بعملية التصفية وفقاً لكل حقل من حقول النموذج فكل ما ستحتاجه هو سطر واحد فقط وسيتم الأمر تحياتي صاحب الملف منتصر الانسي تمت الاضافه 08/09/25 الاقسام قسم الأكسيس  

اعرض الملف أداة إنشاء وتحرير خصائص التطبيق والتعامل معها كمتغيرات عامة {سلسلة الأدوات المساعدة المخصصة} كما يعلم الجميع فإن المتغيرات العامة (العالمية) هي من الأمور الهامة التي يحتاجها أي مطور وهناك عدة طرق يمكن من خلالها تعريف وتعيين قيم لهذه المتغيرات كالإعلان عنها كمتغيرات Public أو Global أو تعريفها ضمن TempVar أو الإحتفاظ بهذه القيم في جدول وكل طريقة من هذه الطرق لها مزاياها وعيوبها ولكن هناك ميزة مخفية لا يعرفها الكثير منا وهي أنه بإمكاننا إنشاء خصائص عامة على مستوى التطبيق أو على مستوى الكائنات أو الحقول حتى يمكننا الإحتفاظ فيها بأي قيم وبأي نوع بيانات ويمكننا إسترجاعها وقت الطلب وهناك الكثير من المطورين الأجانب بدأو بالإعتماد عليها عند العمل مع المتغيرات العامة هذه الأداة تساعدك في إنشاء وتحرير وحذف هذه الخصائص وتوضح لك طريقة الإستفادة من هذه القيم أرجو أن تكون مفيدة لكم وأن تفتح لكم أفاق وأفكار جديدة كما فعلت معي شخصياً تحياتي صاحب الملف منتصر الانسي تمت الاضافه 08/09/25 الاقسام قسم الأكسيس  

اعرض الملف أداة تحويل محرر الأكواد للوضع الداكن Dark Theme {سلسلة الأدوات المساعدة المخصصة} هناك الكثير يفضل العمل في بيئة عمل داكنة لإنها تكون مريحة للعين أكثر وكما نعرف فإن طريقة تعيين ألوان محرر الأكواد طريقة طويلة ومعقدة بعض الشيئ لذا أقدم لكم هذه الأداة التي تقوم بتحويل محرر الأكواد VBE للوضع الداكن في جميع تطبيقات أوفيس وليس الأكسس فقط هذه الأداة بسيطة جداً ولا تتطلب إلا نقرة زر فقط قمت بتوضيح طريقة عمل الكود بالتفصيل ليتمكن أي شخص من تغيير الإعدادات التي يرغب بها مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 08/09/25 الاقسام قسم الأكسيس  

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

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

جرب المرفق قاعدة بيانات.rar

ماشاء الله أعتقد أن المداخلات من @ابو جودي و @jjafferr قد أثرت الموضوع وغطت الطرق الأكثر عملية مع توضيح مزايا وعيوب كل طريقة ولكن وتوضيحا لكلام الاخ @ابو جودي انا استخدم طابعة إفتراضية تقوم بإستخراج التقرير كملف PDF وتعمل مثل الطابعة الحقيقة أما كلامك فمعناه أنك تستخدم الأمر DoCmd.OutputTo وهذا لايعتبر أمر طباعة وإنما امر لإستخراج الكائن بصيغة محددة بحالته كيفما تكون ولو لاحظت فإن الرسالة لاتظهر من الأساس فحدث عند عدم وجود بياتات أو On No Data الخاص بالتقرير يتطلب استخدام الأمر DoCmd.OpenReport حتى يتم تفعيله ولكن مثلما أسلفت فهذه المناقشات جميلة لنتعرف كلنا على الطرق المختلفة لحل المشاكل فقد يحتاجها أحدنا يوما ما مع تحياتي

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

مع إحترامي لحل الأخ @ابو جودي فالمسألة أبسط من كذا كل ماعليك فعله هو إضافة الكود التالي لحدث عند عدم وجود بياتات أو On No Data الخاص بالتقرير 'رسالة تنبيه MsgBox "لايوجد أي بيانات في التقرير", vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" 'إلغاء الأمر وعدم متابعة فتح التقرير Cancel = -1 ليصبح بهذا الشكل Private Sub Report_NoData(Cancel As Integer) 'رسالة تنبيه MsgBox "لايوجد أي بيانات في التقرير", vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" 'إلغاء الأمر وعدم متابعة فتح التقرير Cancel = -1 End Sub مع تحياتي