كل الانشطه

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

تفضل ، ارفقت المثال البسيط ، فرجاء تضبيطه بدالتك 🙂 TimeInterval.accdb

أصغر همومك أخي أحمد .. كمثال ؛ في حدث بعد التحديث للعنصر OptMain ، جرب الفكرة التالية أو كما تريد لحاجتك :- Private Sub OptMain_AfterUpdate() If Me.OptMain.Value = 1 Then Me.Btn_Doit.Caption = "إلغاء تفعيل مفتاح الشيفت" Else Me.Btn_Doit.Caption = "تفعيل مفتاح الشيفت" End If End Sub

بسيطة .. إذا أردت : فيما يلى رابط لتحميل Portable_Office 2003 من صنعي ، جربه مطلوب تعديل بسيط على تطبيقك: عند الضغط على زر تفعيل مفتاح الشيفت / إلغاء مفتاح الشيفت ، يتم التنقل بين عناصر الاختيار Disable و Enaable والعكس لا يتم إذا تم التأشير واختيار عناصر الاختيار لا يتم تغير المسمى على زر تفعيل مفتاح الشيفت طبقاً للإختيار والمطلوب التعديل هنا

اهاااا .. فهمتك الحين .. يعني كتشبيه بسيط !! كالميكانيكي الذي يريد إصلاح ماتور سيارة أثناء سيرها .. بلهجتنا الأردنية = كيف .. ليش .. وين .. متى ؟؟ هو حر يدبر راسه ، و يفك الماتور ويصلحه والسيارة شغالة . وبما أنك مصر على الوقوف عند عقدة آكسيس ، لم لا تنقل حدثك من عند الوقت الى دالتي المتواضعة ( NativeTimerCallback ) 😎 !! وبما أن كود مراقبة المجلدات لا يعتمد على التعديل الرسومي للواجهة ، فإنه سيستمر بالعمل أخي جعفر ، بل ومراقبة المجلدات كل ثانية في الخلفية ، حتى وأنت داخل محرر الأكواد ، تستطيع تكتب أكوادك بكل هدوء وسلام 😏 ..

المعذرة ، اعتقد صار فيه اشباه في الموضوع وفي طلبي ، وما كان مفروض اخليه في موضوعك !! انا قلت تنفيذ الوقت عن طريق Time Interval لازم يكون مستمر ، لأن الحدث يقوم بعدة امور ، ومو ممكن اوقفه علشان تظبيط الكود في مكان آخر من البرنامج ، وخلال عمل ذلك النموذج ، اريد ان اعدل الكود في نموذج آخر ، بحيث اشتغل فيه كالمعتاد ولا يسبب لي مشكلة في كتابة الكود.

تفضل. لعل هذا ما تطلبه 2 _ شهر ابريل1 2026.xlsm

المعذرة ، اعتقد صار فيه اشباه في الموضوع وفي طلبي ، وما كان مفروض اخليه في موضوعك !! انا قلت تنفيذ الوقت عن طريق Time Interval لازم يكون مستمر ، لأن الحدث يقوم بعدة امور ، ومو ممكن اوقفه علشان تظبيط الكود في مكان آخر من البرنامج ، وخلال عمل ذلك النموذج ، اريد ان اعدل الكود في نموذج آخر ، بحيث اشتغل فيه كالمعتاد ولا يسبب لي مشكلة في كتابة الكود.

شكلك اتحضيت من شكل التحليل متتكسفش قول الحق

ان شاء الله عالاسبوع الجاي كده ولا حاجه لان اليومين دول مش فاضي

السلام عليكم استاذ مازالت ورقة اسمها Plateform اريد اضافة ترحيل الحقول بالون الاحمر الى ورقة اسمها Feuil2 الحقول عند الترحيل لم يتم افراغ الحقول بالون الأحمر فقط اما الحقول بالون الأصفر عند الترحيل يتم افراغ الحقول بارك الله فيك استاذ

عرفت انا ضحكت ليه من شويه على جملة وحضرتك قلت : طلبتها ونولتها وانا شاركتك التفاصيل وادق التفاصيل عيش يا وحش خد بالك التفاصيل بالطريقة اللى شاركتها دى نصف المشوار حرفيا لو مش مظبوطه صدقنى يا تعيد فى الاكواد كل ما تفتكر شئ او تتفاجئ بشئ لان طبعا هتعيد هيكلة الجدول / الجداول ودا اللى اسمه تحليل النظم واللى المفروض يتعمل ويتم دراستة جيد وباستفاضة لانه حجر الاساس ورينا شطاراتك فى التنفيذ

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

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

هو خلينا نتفق على شئ فى البداية هو مش بيعمل هو بينفذ طلباتك بالرد نظرى او باكواد وانت تنفذ طيب بالنسبة لى انا الطلب المنطقى الاول اللى اطلبه منه تحليل النظم وبعدين اشوف الناتج والاول وقبل اى شئ ادرسة كويس جدا جدا جدا واذا محتاج تعديل اعدل او اطلب منه يعدل اللى انا محتاج لتعديله ولان انا مش فاهم فى المحاسبة وعلى الله حكايتى هسيب لكم تجربتى معاه وكل واحد يقارن نتيجة تجربته مع الموجود هنا أولاً: نطاق النظام وأهدافه الاستراتيجية نظام متكامل لإدارة العمليات المالية والإدارية بين: فرع رئيسي واحد. عدد غير محدود من الفروع الفرعية. موظفين تابعين لكل فرع. عمليات يومية وشهرية وسنوية. نظام جرد وأرصدة وتقارير مالية كاملة. مرونة كاملة عبر جداول مساعدة تمنع الحاجة لأي تعديل هيكلي أو برمجي مستقبلاً. ثانياً: الكيانات الرئيسية (بدون أسماء جداول – مجرد وصف وظيفي) الفرع الرئيسي كيان وحيد. له رصيد خاص. يغذي الفروع. يستقبل أرباح أو أرصدة زائدة من الفروع. الفرع الفرعي عدد غير محدود. لكل فرع رصيد مستقل. له عنوان وبيانات اتصال. له صلاحيات تحويل مختلفة حسب سياسة النظام. الموظف تابع لفرع فرعي واحد فقط. له راتب ثابت أو متغير. له خصومات وإضافات شهرية ثابتة أو متغيرة. التحويل اليومي حركة أموال بين رئيسي وفرعي أو بين فروع مع بعضها (لو سمحت السياسة). له سبب محدد ورقم مرجعي. مصروف الفرع أي تكلفة يتحملها الفرع. بتصنف حسب نوع المصروف (من جدول مساعد). راتب الموظف تسجيل شهري لكل موظف. فيه تفصيل الخصومات والإضافات. الأصل الثابت ممتلكات للفرع (أجهزة، أثاث، عربيات). يستهلك شهرياً بقيمة إهلاك. إيراد الفرع أي دخل يحققه الفرع (مبيعات، خدمات، عمولات). ضروري لحساب الربح والخسارة. الأمانة أو الضمان مبلغ مدفوع مؤقتاً (تأمين إيجار، تأمين كهرباء). يتحول لمصروف فعلي لو لم يسترد. السلفة أو القرض سلفة للموظف أو قرض بين الفروع. له أقساط وتسديدات. المخصص والاحتياطي مبلغ محجوز لاستخدام مستقبلي (مكافأة نهاية خدمة، ديون مشكوك فيها). المصروف المقدم والإيراد المستحق مصروف مدفوع مقدماً على عدة فترات. إيراد مستحق ولم يقبض بعد. الفترة المالية شهر أو ربع سنة أو سنة. يتحكم في إقفال العمليات وترحيل الأرصدة. ثالثاً: الجداول المساعدة (Service Tables) – سر المرونة الكاملة هذه الجداول لا تحتوي على أي عمليات مالية، فقط بيانات تحكم: أنواع المصروفات – اسم النوع، تصنيف عام، هل يخضع لضريبة، نشط/غير نشط. أسباب التحويل – الاسم، الاتجاه المسموح به، هل يؤثر على الرواتب، نشط. أنواع الخصومات والإضافات على الراتب – الاسم، نوعه (خصم/إضافة)، طريقة حسابه (نسبة/مبلغ ثابت/متغير). قيم ثابتة للموظف – ربط موظف بنوع تسوية بقيمة ثابتة أو نسبة وفترة صلاحية. سياسات الرواتب – يوم الصرف، هل الخصومات تلقائية، حدود دنيا وعليا. صلاحيات التحويل للفروع – كل فرع يحدد له أسباب مسموحة وحد أقصى لكل عملية أو يوم. ثوابت النظام – أي قيمة قابلة للتغيير مستقبلاً (نسبة ضريبة، حد أدنى للرصيد، عدد أيام السماح). تسلسل المستندات – بادئة وبداية تسلسل لكل نوع معاملة (تحويل، مصروف، راتب، إلخ). أنواع الإيرادات – اسم الإيراد، تصنيفه، هل يخضع لضريبة. أنواع الأصول الثابتة – العمر الإفتراضي، نسبة الإهلاك السنوية، حساب الإهلاك المقترح. أنواع الأمانات والضمانات – اسم النوع، جهة الاستلام، هل قابل للاسترداد كلياً أو جزئياً. أنواع المخصصات – طريقة الحساب (نسبة من شيء، مبلغ ثابت، معادلة). العملات – اسم العملة، رمزها، سعر الصرف الافتراضي. أيام أسعار الصرف – سعر العملة في تاريخ محدد (للفروق). الفترات المالية – اسم الفترة، تاريخ البداية والنهاية، هل مقفولة. رابعاً: الجداول الأساسية للعمليات (بدون أسماء – فقط غرضها) سجل الفرع الرئيسي – اسمه، رصيده الحالي. سجل الفروع الفرعية – اسمها، تبعيتها للرئيسي، رصيدها الحالي، عنوانها، بيانات اتصالها. سجل الموظفين – اسمه، تابع لأي فرع، راتبه الأساسي، تاريخ تعيينه. سجل التحويلات اليومية – تاريخ، طرف مصدر وطرف مستقبل (رئيسي/فرعي)، المبلغ، السبب، الرقم المرجعي، حالة التحويل. سجل مصروفات الفروع – تاريخ، فرع، نوع المصروف، المبلغ، رقم الفاتورة، ملاحظات. سجل رواتب شهرية – شهر وسنة، موظف، المبلغ الإجمالي، تفصيل الخصومات والإضافات (مرتبط بجدول تفصيلي منفصل)، الصافي، تاريخ الصرف. تفصيل الخصومات والإضافات للراتب – ربط براتب محدد، بنوع تسوية، القيمة المطبقة هذا الشهر. سجل الأصول الثابتة – فرع، اسم الأصل، تاريخ الشراء، القيمة، العمر الإنتاجي، قيمة الخردة، القيمة الدفترية الحالية. سجل قسط الإهلاك الشهري – أصل، شهر وسنة، قيمة الإهلاك، تاريخ التسجيل. سجل إيرادات الفروع – تاريخ، فرع، نوع الإيراد، المبلغ، الفاتورة المرجعية، ملاحظات. سجل الأمانات والضمانات – فرع، نوع الأمانة، الجهة المستلمة، تاريخ الدفع، القيمة، تاريخ استحقاق الاسترداد، القيمة المستردة فعلياً. سجل السلف للموظفين – موظف، فرع، قيمة السلفة، تاريخها، عدد الأقساط، قيمة القسط، المتبقي. سجل تسديد أقساط السلف – ربط بالسلفة، تاريخ، قيمة القسط، المتبقي بعد السداد. سجل القروض بين الفروع – من فرع إلى فرع، قيمة القرض، تاريخه، فائدة (نسبة أو مبلغ)، جدول سداد، المتبقي. سجل المخصصات – فرع، نوع المخصص، الرصيد أول الفترة، الإضافة خلال الفترة، الاستخدام خلال الفترة، الرصيد آخر الفترة. سجل المصروفات المقدمة – فرع، نوع المصروف، إجمالي المبلغ المدفوع، تاريخ الدفع، عدد الشهور، القسط الشهري، رصيد المقدم المتبقي. سجل الإيرادات المستحقة – فرع، نوع الإيراد، القيمة المستحقة، تاريخ الاستحقاق، هل تم تحصيله أم لا. سجل التسويات البنكية – فرع، حساب بنكي، الرصيد البنكي الفعلي، الرصيد الدفتري، تاريخ التسوية، الفروق المفسرة. سجل شيكات تحت التحصيل – فرع، رقم الشيك، قيمته، جهة الإصدار، تاريخ الاستحقاق، هل صرف أم لا. سجل الموازنات التخطيطية – سنة، فرع، بند (مصروف أو إيراد أو راتب)، القيمة المخططة. سجل الأرصدة الدورية – فرع، تاريخ نهاية الفترة، نوع الفترة، الرصيد الرسمي، ملاحظات. سجل الرصيد اليومي التراكمي – فرع، تاريخ، رصيد آخر اليوم، إجمالي واردة اليوم، إجمالي صادرة اليوم، إجمالي مصروفات اليوم. سجل قيود تسوية الجرد – فرع، تاريخ الجرد، رصيد نظري، رصيد فعلي، الفرق، السبب، هل تم الاعتماد. سجل الجرد العام – تاريخ الجرد، إجمالي النظري لكل الفروع، إجمالي الفعلي، الفرق الإجمالي، تم التوزيع على الفروع. سجل تدقيق العمليات – أي عملية (إضافة، تعديل، حذف) لأي جدول عمليات، وقتها، مستخدمها، قيمتها القديمة والجديدة. خامساً: العلاقات المنطقية (بدون تفاصيل تقنية) رئيسي ← فروع (واحد لكثير) فرع ← موظفين (واحد لكثير) فرع ← تحويلات (واحد لكثير – كمصدر أو مستقبل) فرع ← مصروفات (واحد لكثير) فرع ← أصول ثابتة (واحد لكثير) فرع ← إيرادات (واحد لكثير) فرع ← أمانات (واحد لكثير) فرع ← مخصصات (واحد لكثير) فرع ← أرصدة دورية ويومية (واحد لكثير) موظف ← رواتب شهرية (واحد لكثير) موظف ← سلف (واحد لكثير) راتب شهري ← تفصيل خصومات وإضافات (واحد لكثير) أصل ثابت ← أقساط إهلاك (واحد لكثير) سلفة ← أقساط سداد (واحد لكثير) قرض بين فروع ← جدول سداد (واحد لكثير) كل الجداول المساعدة ترتبط بالجداول الأساسية عبر معرفات أجنبية (مثلاً: ExpenseTypeID في جدول المصروفات). سادساً: المعادلات الحسابية الأساسية رصيد فرع في تاريخ T = آخر رصيد مسجل في الرصيد اليومي التراكمي قبل T مجموع تحويلات واردة من تاريخ آخر رصيد حتى T مجموع تحويلات صادرة من تاريخ آخر رصيد حتى T مجموع مصروفات من تاريخ آخر رصيد حتى T مجموع إهلاك أصول (اختياري حسب السياسة) صافي راتب الموظف في شهر = الراتب الأساسي SUM(إضافات الشهر من جدول التفصيل) SUM(خصومات الشهر من جدول التفصيل) صافي ربح أو خسارة فرع في فترة = SUM(إيرادات الفترة) SUM(مصروفات الفترة) SUM(رواتب الفترة) SUM(إهلاك أصول الفترة) SUM(أقساط مخصصات مستهلكة) القيمة الدفترية للأصل = قيمة الشراء - SUM(أقساط الإهلاك المسجلة) فرق الجرد لفرع = رصيد فعلي (مدخل يدوي) - رصيد نظري (محسوب آلياً) إجمالي فرق الجرد العام = SUM(رصيد فعلي لكل الفروع) - SUM(رصيد نظري لكل الفروع) قسط المصروف المقدم الشهري = إجمالي المبلغ المدفوع / عدد الشهور المتبقي من السلفة = قيمة السلفة - SUM(أقساط السداد) سابعاً: التقارير النهائية (اللي هتطلع من النظام) كشف حساب الفرع الرئيسي (يومي، شهري، سنوي). كشف حساب كل فرع فرعي. ملخص التحويلات اليومية بين الرئيسي والفروع. كشف الرواتب الشهرية لكل فرع وكل موظف مع تفصيل الخصومات والإضافات. تقرير مصروفات كل فرع حسب النوع والفترة. تقرير أرباح وخسائر (P&L) لكل فرع ولجميع الفروع. الميزانية العمومية المجمعة. تقرير الأصول الثابتة والإهلاك لكل فرع. تقرير الأمانات والضمانات (المدفوعة والمستردة). تقرير السلف والديون (موظفين وفروع). تقرير المخصصات والاحتياطيات. تقرير التسويات البنكية. تقرير تحليل الفروق بين الموازنة والفعلي. تقرير الجرد العام والجرد الفردي. تقرير التدفق النقدي للفرع الرئيسي وكل فرع. تقرير ضريبة القيمة المضافة. تقرير فروق العملة (إن وجدت). تقرير سجل التدقيق الكامل (Audit Log). تقرير الإيرادات المستحقة والمصروفات المقدمة. تقرير أرصدة أول وفتر سابقة وترحيلات. ثامناً: سير العمل الكامل (Process Flow) بداية النظام: إدخال بيانات الفروع والموظفين. إدخال الأرصدة الافتتاحية عبر جدول الأرصدة الدورية. إدخال السياسات والثوابت والصلاحيات. أثناء التشغيل اليومي: تسجيل تحويلات يومية (يدوي أو آلي). تسجيل مصروفات فروع. تسجيل إيرادات فروع (اختياري). النظام يحدث الرصيد اليومي التراكمي تلقائياً. نهاية الشهر: حساب الرواتب الشهرية (يدوي أو آلي باستخدام قيم ثابتة الموظف). تسجيل أقساط الإهلاك للأصول الثابتة. تسجيل أقساط المخصصات. توزيع المصروفات المقدمة والإيرادات المستحقة. إقفال الفترة المالية وترحيل الأرصدة للفترة التالية. الجرد: تشغيل جرد لفرع واحد أو جرد عام. إدخال الرصيد الفعلي يدوياً. تسجيل الفروق وتصحيحها عبر قيود تسوية. نهاية السنة: إقفال حسابات الأرباح والخسائر. ترحيل الأرصدة للسنة الجديدة. طباعة التقارير السنوية. إعداد الموازنة التخطيطية للسنة القادمة. تاسعاً: الضمانات التي يقدمها هذا التحليل لا حاجة لأي تعديل هيكلي مستقبلاً لأن أي متغير جديد يضاف عبر الجداول المساعدة. لا حاجة لتعديل الأكواد لأن كل منطق التحكم قائم على بيانات. النظام جاهز لأي توسع (عملات متعددة، ضرائب، أصول، قروض، مخصصات، موازنات، تدقيق). يغطي 100% من الاحتياجات الحالية والمستقبلية المحاسبية لشركة بفروع متعددة. قابل للتنفيذ على MS Access مع استخدام VBA للتحكم الآلي، أو أي RDBMS آخر. عاشراً: خاتمة التحليل هذا التحليل يحتوي على: كل الكيانات الأساسية والمساعدة. كل العلاقات المنطقية. كل المعادلات الحسابية. كل التقارير الممكن احتياجها. كل سيناريوهات الجرد والأرصدة. كل المتطلبات المحاسبية المتقدمة (ضريبة، إهلاك، مخصصات، قروض، عملات، موازنات، تدقيق).

لا ابدا الموضوع مفيهوش مشكله هاتو التفاصيل وادق التفاصيل واعملكم مثال عملي تطبيقي بالذكاء الاصطناعي

انا فعلا باضحك علشان كده وبالاخص ان دا برنامج محاسبى يعنى فى وارد ومنصرف وقيود يومية وجرد و.............

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

انا هموت من الضحك بسبب الجملة دى

عليكم السلام اخونا العزيز عبدالله جميل جدا وحاجة تفتح النفس نريد بارك الله فيك مثال عملي تطبيق صغير نستفيد منه وجئت في وقتك المناسب .. صديق لي يبحث عن برنامج صغير محاسبي لديه عدة فروع وتحت هذه الفروع موظفين يريد قيود يومية بينه وبين الفروع تحويل اموال ورواتب شهرية لموظفيهم وقيود مصروفات للفروع: كهرباء / ايجارات / ماء / تامينات / انترنت ... وهكذا هذا كل شيء فقط هل يمكن للذكاء الاصطناعي اذا اعطيته هذه البنود ان يعمله ؟

وعليكم السلام ورحمة الله وبركاته الحل قم بتحديث اوفيس2007 الى 2010 او احدث فالامر بسيط عند اول محل كمبيوتر اما بالنسبة لطلبك الاول تعديل كود الترحيل اليك الملف Plateform19840019.xlsb

مجهود جميل أستاذ @عبدالله بشير عبدالله ، ومتابعة جيدة جداً منكم جميعاً .. تم نقل الإجابة إلى آخر مرفق . وعله يكون الشافي لأخينا @بلانك

وعليكم السلام ورحمة الله وبركاته .. أهلاً بك معلمي الفاضل @jjafferr ، وأشكرك جداً على هذه الملاحظة الدقيقة والمهنية . نقطتك في محلها تماااااماً ؛ فالتحديث الأول أوقف التايمر الخاص به فقط ولكنه لم يتدخل في تايمرات النماذج التقليدية ( Timer Interval ) كاستخدامك لها في الـ ( Hot Folders ) ، مما استمر في مقاطعتك كمطور عند كتابتك للأكواد داخل المحرر . ولذلك ، ولحل هذه المعضلة بشكل جذري وجعل الفكرة ناجحة 100% ، قمت بتوسيع مهام حدث الويندوز ForegroundChangedProc . الفكرة الآن أنه وبمجرد مرور تركيز الويندوز إلى نافذة محرر الأكواد VBA ، سيقوم الكود بمسح جميع النماذج المفتوحة بلحظة واحدةً ، وبالتالي يحفظ قيم التايمر لها - عند وجود الحدث فقط - في ذاكرة مؤقتة ، ويجعل التايمر = 0 . وعند إغلاقك المحرر ، سيعيد الاستئناف بدقة لكل نموذج بناءً على ما تم حفظه في الذاكرة . وقد تم الاعتماد على خصيصة hWnd كمعرف فريد للنماذج بدلاً من اسمها تفادياً لأي خطأ ( في حال كنت تستدعي أكثر من نسخة لنفس الحدث ) 😅 . سنقوم بالإعلان عن متغير ( الذاكرة المؤقتة ) الذي ستعيش وتموت مع فتح وإغلاق محرر الأكواد VBA ، كالآتي :- Private colPausedForms As Collection الإضافة الثانية ( عملية الإيقاف والفكشنة عند فتح VBA ) . وتكون في الجزء الأول من دالة ForegroundChangedProc داخل شرط If IsVBEOpen() Then ، وهي المسؤولة عن حصر النماذج المفتوحة لدالة الصيد لتقوم بإيقافها وتتبع النماذج الفرعية داخلها :- Set colPausedForms = New Collection Dim frmMain As Object For Each frmMain In Forms PauseAllTimers frmMain Next frmMain الإضافة الثالثة ، وتكون في الجزء الثاني Else عند إغلاق الـمحرر ، وهي المسؤولة عن إعادة الروح للتايمرات وقيمها الأصلية كما كانت عليه :- If Not colPausedForms Is Nothing Then Dim frmMain2 As Object For Each frmMain2 In Forms ResumeAllTimers frmMain2 Next frmMain2 Set colPausedForms = Nothing End If أما الإضافة الرابعة والأخيرة 😅 ( دالتين صغيرتين بمثابة محركات البحث المتداخل ) ، لكتابة وحفظ البصمات 😁 :- Private Sub PauseAllTimers(frm As Object) If frm.TimerInterval > 0 Then On Error Resume Next colPausedForms.Add frm.TimerInterval, CStr(frm.Hwnd) frm.TimerInterval = 0 On Error GoTo 0 End If Dim ctl As Object On Error Resume Next For Each ctl In frm.Controls If ctl.ControlType = 112 Then If Not ctl.Form Is Nothing Then PauseAllTimers ctl.Form End If Next ctl On Error GoTo 0 End Sub Private Sub ResumeAllTimers(frm As Object) On Error Resume Next Dim savedInterval As Long: savedInterval = 0 savedInterval = colPausedForms(CStr(frm.Hwnd)) If savedInterval > 0 Then frm.TimerInterval = savedInterval Dim ctl As Object For Each ctl In frm.Controls If ctl.ControlType = 112 Then If Not ctl.Form Is Nothing Then ResumeAllTimers ctl.Form End If Next ctl On Error GoTo 0 End Sub الآن الكود بحلته الجديدة وملفه الجديد تالياً ( فضلاً لا أمراً ، افتح النموذج Frm_WithTimerInterval ) وضع به ما شئت من نماذج فرعية بداخل بعضها البعض ذات تايمرات مستمرة ! ثم جرب الدخول إلى المحرر Time With No TimerInterval.accdb

هل هذا طلبك اليك العرض والمرفق . Bilal 17-04-2026-1.rar