اذهب الي المحتوي
أوفيسنا

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. Today
  2. نغم السعدني started following دورة إدارة أصحاب المصلحة للمشروع , دورة إدارة محافظ المشاريع و دورة الإعداد لشهادة أخصائي إدارة مخاطر المشاريع (RMP)®
  3. نغم السعدني
    #دورات_2025_2026 #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى التخطيط وإدارة المشروعات التى سوف تعقد خلال العام 2025 &2026 يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو - الاسكندرية …………………………… دورة إدارة المشاريع الرشيقة دورة الإدارة الفعّالة لمشاريع تقنية المعلومات دورة مهارات إدارة المشاريع دورة الإعداد لشهادة أخصائي إدارة المشاريع (PMP) دورة إدارة أصحاب المصلحة للمشروع دورة الإعداد لشهادة أخصائي إدارة مخاطر المشاريع (RMP)® دورة إدارة محافظ المشاريع دورة موازنة المشاريع وتقدير التكاليف و تقنيات توفيرها دورة الإعداد لشهادة الممارس المعتمد في إدارة المشاريع الرشيقة (PMI-ACP)® دورة إتقان مكتب إدارة المشاريع PMO من التأسيس وحتى مؤشرات الأداء الرئيسية ولوحات المراقبة دورة الأتجاهات الحديثة والمتقدمة فى التمويل والأستثمار دورة شهادة في الإدارة المتقدمة للمشاريع دورة التخطيط والجدولة وضبط المشاريع بإستخدام بريمافيرا دورة إدارة إتصالات ومخاطر وتوريدات المشاريع دورة تخطيط وتطبيق مكاتب إدارة المشاريع والتحضير لشهادة مدير مشاريع محترف دورة إدارة وبرمجة وتخطيط وجدولة وضبط المشاريع بإستخدام الحاسب الالي MS Project و بريمافيرا دورة الإحتراف في إدارة المشاريع وحل المشاكل وإتخاذ القرارات دورة تخطيط وجدولة وضبط المشاريع دورة إجادة الجدولة والتحكم بالمشاريع وإكتساب المهارات الإدارية دورة إدارة المشاريع والإشراف على الإستشاريين والمقاولين دورة البرنامج التأسيسي في إدارة المشاريع دورة إدارة مشاريع تكنولوجيا المعلومات دورة الإدارة المتكاملة ونطاق العمل وإدارة الوقت والجودة والموارد البشرية و التدريب والتكلفة للمشروع دورة تقنيات بدء المشروع وتخطيطه وتنفيذه دورة المهنية والتخصص والإحتراف في إدارة المشاريع– البرنامج الأصلي للتحضير لشهادة مدير مشروع محترف دورة التحضير لشهادة مدير مشاريع معتمد وإكتساب المهارات الشخصية والإدارية دورة الإحتراف في إدارة المشاريع وتطوير المهارات الإدارية والقيادية دورة الإحتراف في إدارة مخاطر المشاريع دورة الإحتراف في إدارة المشاريع وتجنب المخاطر وفن التفاوض والمهارات القيادية وبناء فرق العمل دورة البرنامج الأول في إدارة المشاريع لمجالات المعرفة التسعة وفقاً للمقياس العالمي الموحد دورة تقنيات إدارة المشاريع المعتمدة وإكتساب مهارات الإدارة الإستراتيجية دورة مجموعة العمليات المتكاملة لإدارة المشروعات وفقاً للمقياس العالمي الموحد دورة إدارة برامج مشاريع – دورة تحضيرية لشهادة إستشاري PMP دورة برنامج إدارة المشاريع الشامل - التخصص في إدارة المشاريع والتخطيط والجدولة والتحكم دورة التخصص في إدارة المشاريع والتعامل الفعال مع المتغيرات الإدارية دورة تقنيات التفاوض والقيادة الفعالة وبناء فرق عمل إدارة المشاريع دورة تخطيط وجدولة وضبط المشاريع – برنامج تحضيري لشهادة PSP دورة الإحتراف في إتخاذ القرارات وإدارة المخاطر دورة التحضير لشهادة إدارة برامج ومكتب مشاريع دورة الإحتراف في إدارة المشاريع والتخطيط الإستراتيجي والقيادة المتميزة دورة مهارات إدارة المشروعات الهندسية دورة مواضيع متقدمة في إدارة المشاريع ، ومهارات القيادة والتفاوض والتعاقد وبناء فرق العمل الفعالة دورة أساسيات إدارة المشاريع دورة إدارة المشاريع ورشة عمل متقدمة في التحكم وإدارة المشاريع والأدوات التعاقدية الناجحة دورة القائد الماستر - مهارات إدارة المشاريع والإدارة دورة الإدارة المتكاملة لمراحل ونطاق سير المشروع وإدارة الوقت دورة البرنامج المتقدم الإحتراف في إدارة المشاريع دورة إدارة الجودة والموارد البشرية و التدريب وتكاليف وإتصالات ومخاطر وتوريدات المشاريع للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات هندسة التعدين والتنقيب - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام
  4. نغم السعدني
    #دورات_2025_2026 #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى التخطيط وإدارة المشروعات التى سوف تعقد خلال العام 2025 &2026 يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو - الاسكندرية …………………………… دورة إدارة المشاريع الرشيقة دورة الإدارة الفعّالة لمشاريع تقنية المعلومات دورة مهارات إدارة المشاريع دورة الإعداد لشهادة أخصائي إدارة المشاريع (PMP) دورة إدارة أصحاب المصلحة للمشروع دورة الإعداد لشهادة أخصائي إدارة مخاطر المشاريع (RMP)® دورة إدارة محافظ المشاريع دورة موازنة المشاريع وتقدير التكاليف و تقنيات توفيرها دورة الإعداد لشهادة الممارس المعتمد في إدارة المشاريع الرشيقة (PMI-ACP)® دورة إتقان مكتب إدارة المشاريع PMO من التأسيس وحتى مؤشرات الأداء الرئيسية ولوحات المراقبة دورة الأتجاهات الحديثة والمتقدمة فى التمويل والأستثمار دورة شهادة في الإدارة المتقدمة للمشاريع دورة التخطيط والجدولة وضبط المشاريع بإستخدام بريمافيرا دورة إدارة إتصالات ومخاطر وتوريدات المشاريع دورة تخطيط وتطبيق مكاتب إدارة المشاريع والتحضير لشهادة مدير مشاريع محترف دورة إدارة وبرمجة وتخطيط وجدولة وضبط المشاريع بإستخدام الحاسب الالي MS Project و بريمافيرا دورة الإحتراف في إدارة المشاريع وحل المشاكل وإتخاذ القرارات دورة تخطيط وجدولة وضبط المشاريع دورة إجادة الجدولة والتحكم بالمشاريع وإكتساب المهارات الإدارية دورة إدارة المشاريع والإشراف على الإستشاريين والمقاولين دورة البرنامج التأسيسي في إدارة المشاريع دورة إدارة مشاريع تكنولوجيا المعلومات دورة الإدارة المتكاملة ونطاق العمل وإدارة الوقت والجودة والموارد البشرية و التدريب والتكلفة للمشروع دورة تقنيات بدء المشروع وتخطيطه وتنفيذه دورة المهنية والتخصص والإحتراف في إدارة المشاريع– البرنامج الأصلي للتحضير لشهادة مدير مشروع محترف دورة التحضير لشهادة مدير مشاريع معتمد وإكتساب المهارات الشخصية والإدارية دورة الإحتراف في إدارة المشاريع وتطوير المهارات الإدارية والقيادية دورة الإحتراف في إدارة مخاطر المشاريع دورة الإحتراف في إدارة المشاريع وتجنب المخاطر وفن التفاوض والمهارات القيادية وبناء فرق العمل دورة البرنامج الأول في إدارة المشاريع لمجالات المعرفة التسعة وفقاً للمقياس العالمي الموحد دورة تقنيات إدارة المشاريع المعتمدة وإكتساب مهارات الإدارة الإستراتيجية دورة مجموعة العمليات المتكاملة لإدارة المشروعات وفقاً للمقياس العالمي الموحد دورة إدارة برامج مشاريع – دورة تحضيرية لشهادة إستشاري PMP دورة برنامج إدارة المشاريع الشامل - التخصص في إدارة المشاريع والتخطيط والجدولة والتحكم دورة التخصص في إدارة المشاريع والتعامل الفعال مع المتغيرات الإدارية دورة تقنيات التفاوض والقيادة الفعالة وبناء فرق عمل إدارة المشاريع دورة تخطيط وجدولة وضبط المشاريع – برنامج تحضيري لشهادة PSP دورة الإحتراف في إتخاذ القرارات وإدارة المخاطر دورة التحضير لشهادة إدارة برامج ومكتب مشاريع دورة الإحتراف في إدارة المشاريع والتخطيط الإستراتيجي والقيادة المتميزة دورة مهارات إدارة المشروعات الهندسية دورة مواضيع متقدمة في إدارة المشاريع ، ومهارات القيادة والتفاوض والتعاقد وبناء فرق العمل الفعالة دورة أساسيات إدارة المشاريع دورة إدارة المشاريع ورشة عمل متقدمة في التحكم وإدارة المشاريع والأدوات التعاقدية الناجحة دورة القائد الماستر - مهارات إدارة المشاريع والإدارة دورة الإدارة المتكاملة لمراحل ونطاق سير المشروع وإدارة الوقت دورة البرنامج المتقدم الإحتراف في إدارة المشاريع دورة إدارة الجودة والموارد البشرية و التدريب وتكاليف وإتصالات ومخاطر وتوريدات المشاريع للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات هندسة التعدين والتنقيب - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام
  5. Yesterday
  6. نغم السعدني
    #دورات_2025_2026 #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى التخطيط وإدارة المشروعات التى سوف تعقد خلال العام 2025 &2026 يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو - الاسكندرية …………………………… دورة إدارة المشاريع الرشيقة دورة الإدارة الفعّالة لمشاريع تقنية المعلومات دورة مهارات إدارة المشاريع دورة الإعداد لشهادة أخصائي إدارة المشاريع (PMP) دورة إدارة أصحاب المصلحة للمشروع دورة الإعداد لشهادة أخصائي إدارة مخاطر المشاريع (RMP)® دورة إدارة محافظ المشاريع دورة موازنة المشاريع وتقدير التكاليف و تقنيات توفيرها دورة الإعداد لشهادة الممارس المعتمد في إدارة المشاريع الرشيقة (PMI-ACP)® دورة إتقان مكتب إدارة المشاريع PMO من التأسيس وحتى مؤشرات الأداء الرئيسية ولوحات المراقبة دورة الأتجاهات الحديثة والمتقدمة فى التمويل والأستثمار دورة شهادة في الإدارة المتقدمة للمشاريع دورة التخطيط والجدولة وضبط المشاريع بإستخدام بريمافيرا دورة إدارة إتصالات ومخاطر وتوريدات المشاريع دورة تخطيط وتطبيق مكاتب إدارة المشاريع والتحضير لشهادة مدير مشاريع محترف دورة إدارة وبرمجة وتخطيط وجدولة وضبط المشاريع بإستخدام الحاسب الالي MS Project و بريمافيرا دورة الإحتراف في إدارة المشاريع وحل المشاكل وإتخاذ القرارات دورة تخطيط وجدولة وضبط المشاريع دورة إجادة الجدولة والتحكم بالمشاريع وإكتساب المهارات الإدارية دورة إدارة المشاريع والإشراف على الإستشاريين والمقاولين دورة البرنامج التأسيسي في إدارة المشاريع دورة إدارة مشاريع تكنولوجيا المعلومات دورة الإدارة المتكاملة ونطاق العمل وإدارة الوقت والجودة والموارد البشرية و التدريب والتكلفة للمشروع دورة تقنيات بدء المشروع وتخطيطه وتنفيذه دورة المهنية والتخصص والإحتراف في إدارة المشاريع– البرنامج الأصلي للتحضير لشهادة مدير مشروع محترف دورة التحضير لشهادة مدير مشاريع معتمد وإكتساب المهارات الشخصية والإدارية دورة الإحتراف في إدارة المشاريع وتطوير المهارات الإدارية والقيادية دورة الإحتراف في إدارة مخاطر المشاريع دورة الإحتراف في إدارة المشاريع وتجنب المخاطر وفن التفاوض والمهارات القيادية وبناء فرق العمل دورة البرنامج الأول في إدارة المشاريع لمجالات المعرفة التسعة وفقاً للمقياس العالمي الموحد دورة تقنيات إدارة المشاريع المعتمدة وإكتساب مهارات الإدارة الإستراتيجية دورة مجموعة العمليات المتكاملة لإدارة المشروعات وفقاً للمقياس العالمي الموحد دورة إدارة برامج مشاريع – دورة تحضيرية لشهادة إستشاري PMP دورة برنامج إدارة المشاريع الشامل - التخصص في إدارة المشاريع والتخطيط والجدولة والتحكم دورة التخصص في إدارة المشاريع والتعامل الفعال مع المتغيرات الإدارية دورة تقنيات التفاوض والقيادة الفعالة وبناء فرق عمل إدارة المشاريع دورة تخطيط وجدولة وضبط المشاريع – برنامج تحضيري لشهادة PSP دورة الإحتراف في إتخاذ القرارات وإدارة المخاطر دورة التحضير لشهادة إدارة برامج ومكتب مشاريع دورة الإحتراف في إدارة المشاريع والتخطيط الإستراتيجي والقيادة المتميزة دورة مهارات إدارة المشروعات الهندسية دورة مواضيع متقدمة في إدارة المشاريع ، ومهارات القيادة والتفاوض والتعاقد وبناء فرق العمل الفعالة دورة أساسيات إدارة المشاريع دورة إدارة المشاريع ورشة عمل متقدمة في التحكم وإدارة المشاريع والأدوات التعاقدية الناجحة دورة القائد الماستر - مهارات إدارة المشاريع والإدارة دورة الإدارة المتكاملة لمراحل ونطاق سير المشروع وإدارة الوقت دورة البرنامج المتقدم الإحتراف في إدارة المشاريع دورة إدارة الجودة والموارد البشرية و التدريب وتكاليف وإتصالات ومخاطر وتوريدات المشاريع للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات هندسة التعدين والتنقيب - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام
  7. ابو جودي
    يا خبر عن أى اذن تتحدث اساتذتنا يتقدمون فـــ بحضور الماء يبطل التيمم ممتاز لكن كانت فكرتى عمل متغير بوليانى مثلا عند استدعاء التقرير يتم كل ما تفضلتم به ولكن لم يكن فى بالى عمل وحده نمطية أخرى سوف تكون نفس الاكواد والوحده النمطية ومن خلال المعامل البوليانى يتعامل مع الحالة هذه فكرتى المبدئة والتخطيط الذى كنت أنتوى أن اتعامل معه ☺ حلوة أنتوى دى لكن جزاكم الله خيــــــــــر
  8. ابو لجين started following ascTimetable to excel converter
  9. ابو لجين
    اخي يوجد شخص اسمه ابويوسف للبرمجيات عرض برنامج يقوم بما طلبتAsc to Excel (Demo)
  10. Foksh
    تم انشاء دالة للتحديث التلقائي عند فتح الشيت Search في ThisWorkbook كالآتي :- Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "SEARCH" Then Call UpdateSearchSheet With ThisWorkbook.Sheets("SEARCH") .Range("B5").Select End With End If End Sub وطبعاً دالة التحديث التلقائي :- Sub UpdateSearchSheet() Dim wsSearch As Worksheet Dim wsData As Worksheet Dim wsPensions As Worksheet Dim lastRowData As Long Dim lastRowPensions As Long Dim lastRowSearch As Long Set wsSearch = ThisWorkbook.Sheets("SEARCH") Set wsData = ThisWorkbook.Sheets("DATA") Set wsPensions = ThisWorkbook.Sheets("معاشات") wsSearch.Range("A10:M1000").ClearContents lastRowData = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row If lastRowData > 9 Then wsData.Range("A10:M" & lastRowData).Copy wsSearch.Range("A10").PasteSpecial xlPasteValues End If lastRowSearch = wsSearch.Cells(wsSearch.Rows.Count, "A").End(xlUp).Row If lastRowSearch < 10 Then lastRowSearch = 9 lastRowPensions = wsPensions.Cells(wsPensions.Rows.Count, "A").End(xlUp).Row If lastRowPensions > 9 Then wsPensions.Range("A10:M" & lastRowPensions).Copy wsSearch.Range("A" & lastRowSearch + 1).PasteSpecial xlPasteValues End If Application.CutCopyMode = False End Sub وبشكل اختياري ، زر تحديث يدوي :- Sub RefreshSearchData() Call UpdateSearchSheet With ThisWorkbook.Sheets("SEARCH") .Range("B5").Select End With MsgBox "تم تحديث البيانات بنجاح", vbInformation End Sub توحيد البحث في شيت واحد.xlsb
  11. kkhalifa1960 started following شخابيط وأفكار: الحل الاحترافي لإدارة فتح وإغلاق النماذج
  12. kkhalifa1960
    مشاركة بنفس ماتقدم به استاذنا @ابو جودي . بعد اذنه طبعاً NavigateForm (V2.1)-1.rar
  13. ابو جودي
    وردا على سؤالك ده الطريقة موجوده هنا لو محتاجها
  14. ابو جودي
    صف جمب أخوك @Moosak تانى هأعمل حالى مش شايف الحمد لله ان ما حد فاهم نعم انا افضل ذلك لا علاقه لها بالخصائص علشان تفهم المقصود منها روح للنموذج : FormA اعتبر انك تريد فتح نموذج ثم فى مربع النص اللى عنوانه على النموذج : OpenArgs Value اكتب فيه التالى : Foksh ثم اضغط زر الامر : بعنوان Open Form ( B ) DialogMode وانظر الى الى النموذج FormB انظر بعد الفتح ما سوف يتم تمريره الى نفس مربع النص فى ها النموذج اعد نفس الخطوات مع تغيير السطر : NavigateForm "", "FormB", DialogMode, strOpenArgsValue لزر الامر : بعنوان Open Form ( B ) DialogMode والموجود فى النموذج FormA الى : NavigateForm "", "FormB", , strOpenArgsValue سوف تجد انه يتم فتح النموذج بالشكل الطبيعى فى كلا الحالتان لا يوجد تغيير فى خصائص النموذج ولكن فى الحاله الاولى سلوك النموذج ديلوج فى انتظار بينات لاتمام العمليات فقط لا غير هذا هو المقصود بالسلوك هذا الحدث لا يغير السلوك او لا يحدد السلوك ولكن يتم قراءة القيم من خلاله فقط والتى تم تمريرها مسبقا وفقط تحدد كيف تريد التعامل معها هل فلتر هل تمرير نص هل تمرير قيم هل تغيير عنوان النموذج مثلا
  15. Foksh
    اممممم ، جميل يعني أحسن شيء و الأفضل هو ، أن يتم :- تصميم النماذج المراد استخدامها كـ Popup مسبقاً بهذه الخصائص . استخدام معلمة في OpenArgs لتحديد ما إذا كان النموذج سيفتح كـ Popup أو لا .. في حدث OnLoad للنموذج ، التحقق من OpenArgs وتعديل السلوك حسب الحاجة ( بدون تغيير الخصائص الأساسية ) . أعتقد هذا الحل يتجنب مشاكل الأمان ، وأيضاً يوفر مرونة معقولة ( نسبياً إلى حد ما 😅 ) دون الحاجة لتعديل التصميم أثناء التشغيل .
  16. ابو جودي
    طبعا دى خصائص ولتمرير هذه الخصائص لابد من فتح النموذج اولا فى وضع التصميم وهو مخفى حتى لا يلاحظ المستخدم ثن تمرير هذه الخصائص من الكود الى النموذج ثم اغلاقه مع الحفظ ثم اعادة فتحه اللى قلته سابقا ده السيناريو النظرى والمحتوم ولا سبيل أو طريق سواه لتحقيق مرادك ولكن هناك عدة تساؤلات يجب طرحها هل لو القاعدة مأمنه يعمل ؟ هل لو الاطارات مخفيه يعمل ؟ هل لو تم تشفير القاعده الى Accde يعمل ؟ الله اعلم لذلك ابتعدت عنها تماما
  17. Foksh
    ما شاء الله تبارك الله !!! ايه التحفة الجميلة دي أداة رائعة بالفعل ومهنية في تنظيم التنقل بين النماذج ، وأعجبتني عدة مميزات فيها :- التصميم المتكامل : التعداد FormOpenMode شامل ويغطي جميع حالات الفتح تقريباً ، مما يجعل الأداء مرناً وقابلاً للتوسعة . وطبعاً التحكم الدقيق من خلال دعم WhereCondition و OpenArgs يضيف طبقة احترافية للتواصل بين النماذج . وهنا تحفة فنية عجبتني كمان وهي منع التكرار من خلال lastCall فكرة ذكية لتجنب إهدار الموارد . بس سؤال خطر على بالي ، وأكيد لم يخف عنك يا تحفتنا هل يمكن إضافة خاصية فتح نموذج كـ "Popup" (نافذة منبثقة) لوضع acWindowNormal مع إمكانية التمرير فوق النماذج الأخرى . جزاك الله خيراً على هذا المجهود ، وجعلها في ميزان حسناتك
  18. nssj
    الذي فهمته من كلامك أخي الكريم أن المشكلة قد تكون في جعل حقل الترقيم التلقائي (ID) هو المفتاح الأساسي فقمت بإضافة حقل رقمي آخر ليكون هو المفتاح الأساسي وهو حقل (bookID) وأنشأت العلاقات بين الجداول وعندما حاولت نقل المعلومات لجدول الربط (TAB_takhrij_X) حصلت نفس المشكلة ففرغت جدول الربط من المعلومات لأقوم بإضافتها من جديد يدويا من خلال نموذج (book) ولم تحدث مشكلة في الصفحات الأولى وعندما ذهبت لآخر صفحتين من كتاب (طبقات أصبهان) وجدوله (bookx) وحاولت إضافة رقم ربط خرجت نفس الرسالة وحتى أقطع الشك باليقين قمت بإنشاء قاعدة بيانات جديدة (3book) وأنشأت جدولين صغيرين بدون بيانات، لكن بنفس تصميم وأسماء الجداول السابقة، وأنشأت جدول الربط (TAB_takhrij_X) وجعلته فارغا لأقوم بتعبئته يدويا عبر نموذج (book) والكتاب الأول (طبقات أصبهان) وجدوله (bookx) وفيه خمس صفحات فقط تم ربطه عبر جدول الربط بلا مشاكل وكذا في الكتاب الثاني (تاريخ أصبهان) وجدوله (bookx2) إلى أن وصلت للصفحة (6) وعندما أضفت رقم الربط خرجت الرسالة أنا أجري تحديثا على جدول (bookx2) فلماذا تخرج لي رسالة أنه مطلوب سجل مرتبط في جدول (bookx) وكلاهما من الجداول الفرعية ولا رابط بينهما وكأن العلاقة المنشأة تتطلب وجود ترابط بين أرقام (bookID) في الجداول الفرعية هذا تفسيري لما حدث .. ولست من أهل الخبرة ولا أدري إن كان ما قمتُ به هو ما قصدته أخي الكريم .. أم أنني أخطات الفهم book3.accdb
  19. Moosak
    علشان فاضل ساعة على موعد الدوا بتاع الـ.................. 😂😂 أنتبهت لاحقا أنك ذاكرها بس مش حاطها من ضمن الأمثلة 😎✌ يا تحفة 😁👊
  20. Moosak started following شخابيط وأفكار: الحل الاحترافي لإدارة فتح وإغلاق النماذج و موضوع للنقاش بخصوص أداة جديدة لتحويل الأكواد من 32 بت لتتوافق مع النواتين ( 32 و 64 )
  21. Moosak
    أفكار لامعة أخي فادي @Foksh 😊👌🌷 .. لك أجمل تحية 😊🌹 ما أجمل هذي الأدوات اللي تسهل العمل وتضع الحلول الجذرية لأغلب المشاكل اللي تواجهنا .. ............ بصراحة أحاول أحشر نفسي في الموضوع لكن ما عندي شي أضيفة بعد ملاحظات فطاحلة الأكسس هنا 😅🖐 لذلك سألتزم المتابعة والاستفادة وجني الثمار بعد نضجها إن شاء الله 😄✌🌹🌟🌷
  22. ابو جودي
    مش مرتاح لك مش عارف ليه حاسس ان واحد تحفة دي بوصلة تتجه نحو التكه يا اللي فاضلة على أخر السكة بس ما علينا هأعمل حالى مش شايف السطر هاد اجمالا يعنى كل المميزات والخدمات التي يقدمها الكود وطرق الاستدعاءات المختلفة توضح الالية وكمان فى مرفق علشان واحد صاحبنا بس مش راح أحكى عن اسمه لو دخل الموضوع من غير مرفق راح يضل يزعق لي
  23. ابو جودي
    استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr كل الفضل لكم ولأساتذتي العظماء بعد رب العزة سبحانه وتعالي انتم الضياء الذى يضئ ظلمات جهلنا والنجوم التي بها نهتدى جزاكم الله خيـــرا
  24. Moosak
    ما شاء الله تبارك الله ... 😊🌹🌟 تحفة فنية نزين بيها المكتبة العامرة .. من واحد تحفة 😁👌🌷 الميزة هذي إنت ذاكرها من ضمن المميزات 😎☝
  25. jjafferr
    وعليكم السلام الافكار الجديدة دائما تخلينا نفكر خارج الصندوق، شكرا جزيلا اخوي ابو جودي 🙂
  26. ابو جودي
    اولا لى عظيم الشرف ان تكون اول تجربه ومشاركة لاستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل 🌹 وشهادتكم وسام فخر وعزة جزاكم الله خير انتم وكل اساتذتى الذين اتعلم منهم فلكم جميعا كل القضل بعد رب العزة سبحانه وتعالى خطرت على بالى دالة بسيطه جدا لعمل مجرد سويتش باغلاق نموذج وفتح اخر بحيث امرر اسماء النماذج للداله ولكن بعد ذلك قلت لاجهل الكود اكثر شكوليه ومرونة ليتم التعامل معه من خلال البراميترز وبقدر الامكان حاولت ان يكون اسلوب الاستظعاء سهل ومرن جدا جدا وبعد ذلك خطر على بالى اضاافة شروط الفتح و openings قلت فى نفسيى ولما لا اوسع الكوظ لتكون ظاله واحدة وتلبى العديد من الخدمات لتشمل معظم الرغبات وطبعا لن ننسي دوال الاكسس اصلا هى اساس الكود والافكار ولكن تمت تمت برمجة دالة واحدة شاملة لعدة وظائف وخدمات بمناسبة التقارير فكرت فيها برضو بس فعلا تعبت ومش قادر فى الوقت الحالى لكن ان شاء الله هى فكرة فى البال والخاطر الله المستعان
  27. ابوخليل started following شخابيط وأفكار: الحل الاحترافي لإدارة فتح وإغلاق النماذج و مساعدة في الربط بين الجداول مع خاصية (فرض التكامل المرجعي)
  28. ابوخليل
    👍
  29. ابوخليل
    يسرني ان يكون ردي هو الاول على الموضوع عمل جميل احترافي .. يختصر على المطور الكثير على المطور او المبرمج اعتماد هذه الدالة في بداية مشروعه من اجل يعتاد عليها وينسى دوال اكسس الافتراضية يتبادر الى الذهن سؤال .. هل سيتم دمج التقارير _على الأقل _ ضمن هذه الدالة؟ بكذا يمكن ننسى دوال اكسس فعلا
  30. ابو جودي started following مساعدة في الربط بين الجداول مع خاصية (فرض التكامل المرجعي)
  31. ابو جودي
    من اجل ذلك انصح دائما بعدم الاقتراب من حقل الترقيم الخاص بالاكسس واتصح بتركه للاكسس اولا انسخ الجداول فى نفس القاعدة كنسخ احتياطيه قم باقراغ الجداول الاساسيه حازل ترك حقول الترقيم التلقائية للاكسس انشئ حقول خصاة بالمفاتيح اعط خصائص الانديكس لها بابشكل المناسب قم بعمل العلاقات قم بنسخ بيانات الجداول الاساسية اولا بعد ذلك انسخ بيانات الجداول الفرعيه بناء على ترتيب العلاقات سينتج جداول اخطاء فى حال عدم وجود قيم قى مفاتيح الربط المختلفه
  32. nssj
    يعني لكل كتاب أرقام (ID) الخاصة به ورقم (ID) هو لعدد الصفحات أو الأحاديث حسب طبيعة الكتاب فهذا الكتاب عدد صفحاته (500) وبالتالي عدد (ID) هو (500) وذاك الكتاب عدد صفحاته (2000) وبالتالي عدد (ID) هو (2000) وأصلا فالكتابين المرفقين في الملف أنا اختصرتهما إلى (100) وإلا فأحدهما (2090) والآخر (4970) والذي ظهر لي أن لكي تكون العلاقة فيها تكامل فينبغي أن تكون كل هذه الجداول الفرعية لها نفس عدد (ID) وإلا لماذا يرفض إضافة رقم لــ (ID) موجود في جدول (bookx) وغير موجود في (book2) وإذا كان الأمر كذلك فهل من حل ؟
  33. ابو جودي
    هل تبحثون عن طريقة مرنة وقوية للتحكم في فتح وإغلاق النماذج في قواعد البيانات ؟ إليكم دالة NavigateForm الحل الأمثل لتبسيط إدارة فتح وإغلاق النماذج أو التبديل بين الفتح/والإغلاق بكفاءة عالية! ما هي دالة NavigateForm ؟ NavigateForm هي دالة تستخدم في وحدة نمطية عامة (Module) لإدارة النماذج بطريقة احترافية تقوم الدالة بـالآتي : إغلاق النموذج الحالي أو نموذج محدد فتح نموذج آخر بوضع عرض محدد (مثل العرض العادي - الحوار - التصميم - المخفي - . . . .. إلخ) التبديل بإغلاق نموذج وفتح أخر أو فتح نموذج أخر مع الابقاء على النموذج الأب مفتوح تطبيق فلاتر عبر WhereCondition لتحديد السجلات المعروضة تمرير بيانات إضافية عبر OpenArgs لتخصيص سلوك النموذج الدالة مثالية للمطورين اللي عايزين تنقل سلس بين النماذج مع تحكم دقيق في أوضاع الفتح والإغلاق سواء في تطبيقات بسيطة أو معقدة مميزات دالة NavigateForm مرونة عالية: تدعم إغلاق النموذج الحالي أو إغلاق نموذج محدد أو فتح نموذج بوضع معين أو الجمع بين العمليات دي في استدعاء واحد تعداد مخصص (FormOpenMode): يشمل كل أوضاع فتح النماذج الشائعة: - DefaultMode: الوضع الافتراضي - NormalMode: العرض العادي (Form View) - DesignMode: وضع التصميم (Design View) - DatasheetMode: عرض ورقة البيانات (Datasheet View) - PreviewMode: معاينة الطباعة (Print Preview) - LayoutMode: عرض التخطيط (Layout View) - AddMode: إضافة سجل جديد - EditMode: تعديل السجلات - ReadOnlyMode: القراءة فقط - HiddenMode: فتح النموذج في الوضع المخفي - DialogMode: فتح النموذج كحوار (يوقف تنفيذ الكود حتى الإغلاق) معالجة الأخطاء: تتضمن معالجة أخطاء مدمجة للتعامل مع حالات زي: - أسماء نماذج غير موجودة - محاولة إغلاق نموذج غير مفتوح - أخطاء تشغيل غير متوقعة التعامل مع الإغلاق اليدوي: الدالة بتتعامل بذكاء مع إغلاق النماذج يدويًا (مثل ضغط "X" في النافذة) وبتضمن إمكانية إعادة فتح النموذج بدون مشاكل منع الاستدعاءات المتكررة: بتمنع فتح النموذج مرتين بنفس المعاملات لو كان مفتوح بالفعل، مع إعادة تعيين السجل بعد كل عملية توثيق احترافي: الكود مرفق بتوثيق مفصل يشرح المعاملات و الأوضاع و وأمثلة الاستدعاء سهولة التكامل: يمكن استدعاؤها من أحداث النماذج (مثل أزرار OnClick) أو ماكرو أو كود VBA آخر دعم الفلاتر والبيانات الإضافية: بتسمح بتطبيق فلاتر عبر WhereCondition وتمرير بيانات مخصصة عبر OpenArgs الكود الكود متاح في وحدة نمطية عامة (basNavigateForm)، ويتضمن: تعداد FormOpenMode لتحديد أوضاع الفتح دالة IsFormPresent للتحقق من وجود النموذج دالة NavigateForm لإدارة فتح وإغلاق النماذج Option Compare Database Option Explicit ' متغير عام للتحكم في طباعة رسائل التصحيح Public DebugPrintEnabled As Boolean ' تعداد لتحديد أوضاع فتح النموذج Public Enum FormOpenMode DefaultMode = 0 ' الوضع الافتراضي (يفتح النموذج بإعدادات Access الافتراضية) NormalMode = 1 ' العرض العادي (Form View) DesignMode = 2 ' وضع التصميم (Design View) DatasheetMode = 3 ' عرض ورقة البيانات (Datasheet View) PreviewMode = 4 ' عرض معاينة الطباعة (Print Preview) LayoutMode = 5 ' عرض التخطيط (Layout View) AddMode = 6 ' وضع إضافة سجل جديد EditMode = 7 ' وضع تعديل السجلات ReadOnlyMode = 8 ' وضع القراءة فقط HiddenMode = 9 ' الوضع المخفي (Hidden) DialogMode = 10 ' وضع الحوار (Dialog) End Enum ' ======================================================================= ' الدالة: التحقق من وجود نموذج في قاعدة البيانات ' الوصف: ترجع True إذا كان النموذج موجودًا في قاعدة البيانات، وFalse إذا لم يكن موجودًا ' المعاملات: formName (String) - اسم النموذج المراد التحقق منه ' ' المؤلف: [ابو جودي - منتديات أوفيسنا] ' تاريخ الإنشاء: 24 مايو 2025 ' الإصدار: 2.1 ' ======================================================================= Public Function IsFormPresent(formName As String) As Boolean On Error Resume Next Dim formObj As Object Set formObj = CurrentProject.AllForms(formName) IsFormPresent = Not (formObj Is Nothing) ' طباعة نتيجة التحقق إذا كانت الطباعة مفعلة If DebugPrintEnabled Then Debug.Print "IsFormPresent: التحقق من النموذج '" & formName & "': " & IsFormPresent End If Set formObj = Nothing On Error GoTo 0 End Function ' ======================================================================= ' NavigateForm ' ' وصف: ' دالة عامة للتحكم في فتح وإغلاق نماذج Microsoft Access. تتيح إغلاق ' النموذج الحالي أو نموذج محدد، وفتح نموذج آخر بوضع محدد مع إمكانية ' تمرير بيانات إضافية عبر OpenArgs وتطبيق فلتر عبر WhereCondition. ' إذا كان النموذج المراد فتحه مفتوحًا بالفعل، يتم إغلاقه وإعادة فتحه ' بالوضع المحدد مع الحفاظ على OpenArgs وWhereCondition. ' ' المعاملات: ' - formToClose (اختياري، String): اسم النموذج المراد إغلاقه. ' - formToOpen (اختياري، String): اسم النموذج المراد فتحه. ' - openMode (اختياري، FormOpenMode): وضع فتح النموذج. ' - openArgs (اختياري، Variant): بيانات إضافية لتمريرها إلى النموذج المفتوح. ' - WhereCondition (اختياري، String): شرط فلترة لتحديد السجلات المعروضة. ' ' القيمة المرجعة: ' - Boolean: True إذا نجحت العملية، False إذا حدث خطأ. ' ' أمثلة: ' Call NavigateForm ' إغلاق النموذج الحالي ' Call NavigateForm("Form1") ' إغلاق Form1 ' Call NavigateForm("", "Form2", DialogMode) ' فتح Form2 كحوار ' Call NavigateForm("Form1", "Form2", AddMode) ' إغلاق Form1 وفتح Form2 لإضافة سجل ' Call NavigateForm("", "Form2", NormalMode, "CustomerID=123", "ID=123") ' فتح Form2 مع فلتر ' Call NavigateForm("Form1", "Form2", DialogMode, "Source=MainForm") ' إغلاق Form1 وفتح Form2 كحوار ' Call NavigateForm("", "Form1", DialogMode, , "ID=456") ' إغلاق Form1 وإعادة فتحه كحوار مع فلتر ' ' ملاحظات: ' - تأكد من وجود النماذج المحددة في قاعدة البيانات. ' - وضع DialogMode يوقف تنفيذ الكود حتى إغلاق النموذج. ' - وضع DesignMode قد يكون مقيدًا في قواعد البيانات المحمية. ' - استخدم المتغير العام DebugPrintEnabled لتفعيل طباعة رسائل التصحيح أثناء التجربة. ' - OpenArgs يمكن استخدامه في حدث OnLoad أو OnActivate للنموذج لمعالجة البيانات الممررة. ' - يمكن استدعاء الدالة من ماكرو باستخدام RunCode: NavigateForm() ' - إذا كان النموذج مفتوحًا، سيتم إغلاقه وإعادة فتحه بالوضع المحدد. ' - WhereCondition يتم تطبيقه عند فتح النموذج. ' - يتم منع الاستدعاءات المتكررة بنفس المعاملات فقط إذا كان النموذج مفتوحًا. ' - يتم إعادة تعيين سجل الاستدعاء بعد نجاح أو فشل العملية. ' ' المؤلف: [ابو جودي - منتديات أوفيسنا] ' تاريخ الإنشاء: 24 مايو 2025 ' الإصدار: 2.1 ' ======================================================================= Public Function NavigateForm(Optional ByVal formToClose As String = "", _ Optional ByVal formToOpen As String = "", _ Optional ByVal openMode As FormOpenMode = DefaultMode, _ Optional ByVal openArgs As Variant = Null, _ Optional ByVal WhereCondition As String = "") As Boolean On Error GoTo ErrHandler ' متغير ثابت لتتبع آخر استدعاء Static lastCall As String Dim currentCall As String currentCall = formToClose & "|" & formToOpen & "|" & openMode & "|" & IIf(IsNull(openArgs), "Null", openArgs) & "|" & WhereCondition ' التحقق من التكرار: نتجاهل فقط إذا كان النموذج مفتوحًا ونفس المعاملات If currentCall = lastCall And formToOpen <> "" Then If IsFormPresent(formToOpen) And CurrentProject.AllForms(formToOpen).IsLoaded Then If DebugPrintEnabled Then Debug.Print "NavigateForm: تجاهل استدعاء متكرر بنفس المعاملات: " & currentCall End If NavigateForm = True Exit Function End If End If ' تحديث lastCall lastCall = currentCall ' افتراض النجاح NavigateForm = True ' طباعة المعاملات عند دخول الدالة If DebugPrintEnabled Then Debug.Print "NavigateForm: استدعاء الدالة مع المعاملات - formToClose: '" & formToClose & "', formToOpen: '" & formToOpen & "', openMode: " & openMode & ", openArgs: " & IIf(IsNull(openArgs), "Null", openArgs) & ", WhereCondition: '" & WhereCondition & "'" End If ' إذا لم يتم تمرير أي معاملات، أغلق النموذج الحالي If formToClose = "" And formToOpen = "" Then If Not Screen.ActiveForm Is Nothing Then If DebugPrintEnabled Then Debug.Print "NavigateForm: إغلاق النموذج الحالي '" & Screen.ActiveForm.Name & "'" End If DoCmd.Close acForm, Screen.ActiveForm.Name, acSaveNo ' إعادة تعيين lastCall بعد الإغلاق lastCall = "" Else If DebugPrintEnabled Then Debug.Print "NavigateForm: لا يوجد نموذج حالي مفتوح" End If End If Exit Function End If ' التحقق إذا تم تمرير اسم نموذج للإغلاق If formToClose <> "" Then If IsFormPresent(formToClose) Then If CurrentProject.AllForms(formToClose).IsLoaded Then If DebugPrintEnabled Then Debug.Print "NavigateForm: إغلاق النموذج '" & formToClose & "'" End If DoCmd.Close acForm, formToClose, acSaveNo ' إعادة تعيين lastCall بعد الإغلاق lastCall = "" Else If DebugPrintEnabled Then Debug.Print "NavigateForm: النموذج '" & formToClose & "' غير مفتوح" End If End If Else If DebugPrintEnabled Then Debug.Print "NavigateForm: النموذج '" & formToClose & "' غير موجود" End If MsgBox "النموذج '" & formToClose & "' غير موجود في قاعدة البيانات.", vbExclamation, "خطأ" NavigateForm = False ' إعادة تعيين lastCall بعد الفشل lastCall = "" Exit Function End If End If ' التحقق إذا تم تمرير اسم نموذج للفتح If formToOpen <> "" Then If IsFormPresent(formToOpen) Then ' إذا كان النموذج مفتوحًا بالفعل، أغلقه If CurrentProject.AllForms(formToOpen).IsLoaded Then If DebugPrintEnabled Then Debug.Print "NavigateForm: النموذج '" & formToOpen & "' مفتوح بالفعل، سيتم إغلاقه" End If DoCmd.Close acForm, formToOpen, acSaveNo End If ' فتح النموذج بالوضع المحدد If DebugPrintEnabled Then Debug.Print "NavigateForm: فتح النموذج '" & formToOpen & "' بوضع " & openMode & IIf(IsNull(openArgs), "", ", openArgs: " & openArgs) & IIf(WhereCondition = "", "", ", WhereCondition: " & WhereCondition) End If Select Case openMode Case NormalMode DoCmd.OpenForm formToOpen, acNormal, , WhereCondition, , , openArgs Case DesignMode DoCmd.OpenForm formToOpen, acDesign, , WhereCondition, , , openArgs Case DatasheetMode DoCmd.OpenForm formToOpen, acFormDS, , WhereCondition, , , openArgs Case PreviewMode DoCmd.OpenForm formToOpen, acPreview, , WhereCondition, , , openArgs Case LayoutMode DoCmd.OpenForm formToOpen, acLayout, , WhereCondition, , , openArgs Case AddMode DoCmd.OpenForm formToOpen, acNormal, , WhereCondition, acFormAdd, , openArgs Case EditMode DoCmd.OpenForm formToOpen, acNormal, , WhereCondition, acFormEdit, , openArgs Case ReadOnlyMode DoCmd.OpenForm formToOpen, acNormal, , WhereCondition, acFormReadOnly, , openArgs Case HiddenMode DoCmd.OpenForm formToOpen, acNormal, , WhereCondition, , acHidden, openArgs Case DialogMode DoCmd.OpenForm formToOpen, , , WhereCondition, , acDialog, openArgs Case Else DoCmd.OpenForm formToOpen, , , WhereCondition, , , openArgs End Select ' إعادة تعيين lastCall بعد فتح النموذج lastCall = "" Else If DebugPrintEnabled Then Debug.Print "NavigateForm: النموذج '" & formToOpen & "' غير موجود" End If MsgBox "النموذج '" & formToOpen & "' غير موجود في قاعدة البيانات.", vbExclamation, "خطأ" NavigateForm = False ' إعادة تعيين lastCall بعد الفشل lastCall = "" Exit Function End If End If Exit Function ErrHandler: If DebugPrintEnabled Then Debug.Print "NavigateForm: حدث خطأ: " & Err.Description End If MsgBox "حدث خطأ: " & Err.Description, vbExclamation, "خطأ" NavigateForm = False ' إعادة تعيين lastCall بعد الخطأ lastCall = "" End Function طريقة الاستخدام إنشاء الوحدة النمطية: افتح محرر VBA في (Alt + F11) أنشئ وحدة نمطية جديدة (Insert > Module) انسخ الكود أعلاه والصقه في الوحدة احفظ الوحدة النمطية باسم : basNavigateForm استدعاء الدالة: يمكن استدعاء NavigateForm من أحداث النماذج (مثل OnClick لزر) أو ماكرو أو كود VBA آخر أمثلة الاستدعاء: ' إغلاق النموذج الحالي Call NavigateForm ' إغلاق نموذج محدد Call NavigateForm("Form1") ' فتح نموذج في وضع الحوار Call NavigateForm("", "Form2", DialogMode) ' إغلاق Form1 وفتح Form2 في وضع إضافة سجل Call NavigateForm("Form1", "Form2", AddMode) ' فتح نموذج مع فلتر Call NavigateForm("", "Form2", NormalMode, , "CustomerID=123") ' فتح نموذج مع OpenArgs Call NavigateForm("", "Form2", DialogMode, "Source=MainForm") ' فتح نموذج مخفي Call NavigateForm("", "Form2", HiddenMode) ' فتح نموذج في وضع التصميم Call NavigateForm("", "Form2", DesignMode) ' فتح نموذج في عرض ورقة البيانات Call NavigateForm("", "Form2", DatasheetMode) وأخيـــــرا مرفق بسيط للتجربة NavigateForm (V2.1).accdb
  1. أظهر المزيد
×
×
  • اضف...

Important Information

  I accept