كل الانشطه

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

وعليكم السلام ورحمة الله وبركاته الحل قم بتحديث اوفيس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

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

تمام ..... الله ينور عليك تعبت حضرتك معايا .... ربنا يكرمك كما اكرمتني وصبرت عليا شكرا جزيلا ............... وتصبح على خير

السلام عليكم انا لا استعمل الساعة في اي من برامجي ، اضطر للتعامل مع Timer Interval في بعض النماذج لفحص مجلدات معينة (هناك مجلد مشاركة بين المستخدمين ، والبرنامج يراقب هذا المجلد ، فلما يجد فيه ملف معين ، يقوم بعمل معين) ، هذا النوع من المجلدات يسمى Hot Folder. اثناء عمل هذا البرنامج (فكر به كأنه ساعة ، تغير المعاينة كل ثانية) ، لما ادخل الكود ، لا استطيع الكتابة بسلاسة ، بسبب Time Interval نموذج آخر. كنت اتمنى عملكم اعلاه يحل المشكلة ، ولكن اتضح ان الساعة تتوقف عن العمل عند دخولي الى نافذة الكود ، مما يجعلني لا استفيد من الكود.

السلام عليكم انا لا استعمل الساعة في اي من برامجي ، اضطر للتعامل مع Timer Interval في بعض النماذج لفحص مجلدات معينة (هناك مجلد مشاركة بين المستخدمين ، والبرنامج يراقب هذا المجلد ، فلما يجد فيه ملف معين ، يقوم بعمل معين) ، هذا النوع من المجلدات يسمى Hot Folder. اثناء عمل هذا البرنامج (فكر به كأنه ساعة ، تغير المعاينة كل ثانية) ، لما ادخل الكود ، لا استطيع الكتابة بسلاسة ، بسبب Time Interval نموذج آخر. كنت اتمنى عملكم اعلاه يحل المشكلة ، ولكن اتضح ان الساعة تتوقف عن العمل عند دخولي الى نافذة الكود ، مما يجعلني لا استفيد من الكود.

جرب التعديل التالي توزيع عدد الحصص (233) (1).xlsm

عند وضع 1 حصة في الخلية N9 أو الخلية N17 لا يعطي شئ

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

والله العظيم انا محرج منك استاذي ..... ولكن انظر للصورة مجموع الحصص الزيادة 12 وبعد تعديل حضرتك المجموع 11 وبالتالي ناقص حصة وبالتالي لم يتم عمل دائرة على الحصة ٣-٢

AI يسرع التنفيذ فقط لكنه لا يستبدل الفهم الهندسي ولا الخبرة العملية

....الرإي السائد الان ان مهمه البرمجيين اختلفت تماما هي لم يعد كتابه الكود ولا تصحيح الكود انما هو قائد اوركسترا فقط وهذا المصطلح سوف تسمعه كثيرا هل عندما تتابع فيديوهات ai مهمه المبرمج الان اصبحت فقط هو كيفيه اداره ادوات الذكاء الاصطناعي للوصول الى الكفاء القصوى في البرنامج المصمم واقصد ادوات الذكاء الاصطناعي كثيره منها السكيلز ملفات الام دي والام سي بي سيرفر والستيرنج ومشاريع github المتعلقه بالحصول على احدث،اساليب الاستفاده من الذكاء الاصطناعي مع ،

التوزيع بالكود مغ زر رسم الدوائر توزيع عدد الحصص (233) (1).xlsm

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

تطور التعليم بالنسبة لي: وقبل ايام الانترنت ، في عمل المجسمات الثلاثية الابعاد 3D Animation كنت مشترك في مجلات شهرية تجيني من الخارج ، استفيد من الامثلة . الان لما اكون بحاجة الى مساعدة لكود معين: ارجع الى مساعد اكسس في الكود F1 وابحث فيه ، ابحث في المنتدى هذا ، وفي مواقع الانترنت ، استعين بالذكاء الاصطناعي ، وبالخصوص في مناقشة عمل مشروع جديد (يعني مو الكود). صحيح عدد الاسئلة في المنتدى صار اقل ، ولكني اقرأ عداد "عدد مرات قراءات الموضوع" ، وارى ان هناك كم كبير من الاعضاء الصامت ، الذي لايزال يقرأ مواضيع معينة. بمعنى ، انهم لا يسألون الكثير من الاسئلة ، لأن هناك طرق اخرى للحصول على اجابات ، ولكنهم يزورون المنتدى لمعرفة الطرق التي لا يلبيها الذكاء الاصطناعي. وللعلم ، فهناك على الاقل موقعين عالميين للاكسس تم اغلاقهم قريبا ، واعتقد الذكاء الاصطناعي له دور في الغلق ، وهتاك موقع ممنوع فيه استعمال الذكاء الاصطناعي في الاجابات ، وهو عامر الى الان. هي موجه ، فلا بد من صعودها

الحمد لله وفقني الله بحل الموضوع واصبح تمام

تفضل استاذ @بلال بلال طلبك حسب مافهمت اليك الشرح والمرفق . ووافني بالرد . Bilal 17-04-2026.rar

السلام عليكم عندي كود اريد التعديل عليه - التعديل المطلوب هو هناك في الملف الاصلي لقسم أو شعبة اكثر من تاريخ أي ان التقرير للفترة يوم أو يومين او ثلاث او شهر او سنة فيكون من ففترة الى فترة حاليا الكود يقوم بوضع تاريخ واحد كما تظهر بالنتيجة كما في الملف المرسل (مثال لشعبة الرمادي والفلوجة ) والصحيح ان الملف(الكل) يحتوي على أكثر من تاريخ ولكن بالنتائج ياخذ فقط تاريخ واحد وهو أول تاريخ أما الملف الاصلي الذي يحتوي على البيانات هو كما في الملف الكل الموجود في مجلد التقارير الذي يحتوي لبعض الاقسام أكثر من تاريخ - واليك البرنامج الذي يحتوي على الكود في البرنامج هناك مفتاح اسمه ملف انشاء ملفات الاقسام الذي يحتوي على الكود والمطلوب التعديل عليه والرقم السري للدخول للمحرر الاكواد 1967=1967 الرمادي_25-03-2026.xlsx الفلوجة_25-03-2026.xlsx الكل.xlsx البرنامج.xlsm

الأخ @ابو جودي لخص الكلام كله في عبارتين

وعليكم السلام ورحمة الله وبركاته خلينا نتكلم بصراحة ومن غير أي تجميل اللي بيحصل دلوقتي مش تراجع منتدى اللي بيحصل إن طريقة التعلم نفسها اتغيرت وفي ناس لسه مصممة تتعامل بعقلية زمن فات زمان… اللي عنده معلومة كان مصدر قوة دلوقتي… نفس المعلومة بقت متاحة لأي حد في ثواني فالسؤال الحقيقي بقى: إيه القيمة الفعلية للخبير انهارده؟ هل:يكتب الكود من الصفر؟ واللا: يفهم، يراجع، ويصحح اللي بيتولد قدامه؟ خلينا نبقى أوضح دلوقتي فيه نوعين: مستخدم أدوات: ينسخ من AI يجرب لو اشتغل خلاص مطور فاهم يبص على نفس الكود ويقول: ده غلط ليه و ده خطر فين وامتى ينهار الحقيقة اللي ممكن تضايق البعض: فيه ناس كانت قيمتها إنها "تعرف الحل" النهارده الحل بقى متاح للجميع فلو القيمة ما اتطورتش طبيعي إنها تقل طيب هل AI بديل للخبراء؟ الإجابة قطعا و ببساطة: لا AI لا يفهم النظام بل هو فقط يتوقع و لكن لا يشغل الكود و لا يرى النتائج و لا يختبر الحالات الشاذة و لا يعيش بيئة أكسس بكل مشاكلها هو فقط يقول: ده شكل كود غالبا بيشتغل وهنا الخدعة الخطيرة الكلام الناتج منه ظاهريا تجده : منظم واثق و مقنع فيتكون انطباع عند البعض إنه "فاهم" لكن الحقيقة: دي بلاغة لغوية مش خبرة تنفيذية: لانه مجرد وفقط الة تقليد لغوي ليست مفسركود بل مولد نصوص احتمالي متى يضللك فعلا؟ لما تديله Bug خفي Edge Case أو سلوك غير موثق في أكسس ساعتها: يخترع تفسير منطقي شكله صح ظاهريا لكنه فعليا غلط فتدخل في دايرة: تجرب → تكتشف خطأ → تصلح → يبوظ تاني وهنا المفارقة أحيانا AI: لا يوفر وقت بل يضاعف وقت التصحيح بينما لما تكتب بإيدك: ممكن تغلط لكنك تفهم لماذا في أكسس تحديدا… المشكلة أكبر لأنه مليان سلوكيات غير موثقة فيه تفاعلات غريبة مع API فيه Edge Cases غير متوقعة وأدوات AI: لا تعيش هذه البيئة و لا تختبرها و لا تعرف حدودها لكنها تتكلم بثقة بلاغية فقط الخلاصة بدون مجاملة اللي فاهم → AI هيقويه اللي مش فاهم → AI هيغرقه تعامل مع AI كـ: مرجع سريع و مساعد مش: مصدر نهائي ولا عقل بديل الاعتماد الأعمى → كارثة الاستخدام الواعي → قوة

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

بارك الله فيك اخي والحقيقة كان كلامك في البداية في محله ونسأل الله الهداية اما عن سؤالك سأقوم بتجزئته إلى جزئين (التوقعات بشأن قواعد بيانات أكسس كإطار عمل) و (التوقعات بشأنه مع تطور الذكاء الصناعي) فيما يخص الجزء الأول من السؤال فبالمناسبة دائما ما يُسأل لي وتكون إجابتي غلى شكل مثال كالتالي تخيل أن لدينا سيارة نقل صغيرة ذات 4 عجلات وشاحنة نقل كبيرة ذات إثنا عشرة عجلة وانت صاحب بقالة صغيرة وأغلب عملك اليومي يقتصر على توريد بضاعة صغيرة (كرتون واحد من كذا صنف مثلاً) فهل سيكون من الأجدى لك إستئجار السيارة الصغيرة أم الشاحنة الكبيرة؟ وهذا هو الحال مع قواعد البيانات (أو بالأصح مع البرامج والتطبيقات الخاصة بقواعد البيانات) حيث سيكون من الأجدى لأصحاب المشاريع الصغيرة إستخدام تطبيق تم تطويره بإستخدام أكسس لأكثر من سبب منها على سبيل المثال لا الحصر: - غالبا من يبدأ بتأسيس المشاريع الصغيرة يكونون من الشباب رواد الاعمال وهذا يعني أنه من الوارد أن يتم تعديل آليات العمل أكثر من مرة حتى يتم التوصل إلى آلية عمل شبه ثابتة ومن هذا المنطلق فأيهما سيكون الأرخص والأكثر مرونة أن يتم تنفيذ التعديل بإستخدام أكسس أم بإستخدام أحد البرامج الكبيرة الأخرى؟ - وحتى لو قلنا أن هذا المشروع قد أنشئ بعد دراسة كافية ووافية ولن يتطلب أي تعديلات (والذي من واقع خبرتي أراه شبه مستحيل) فهل سيتطلب حجم البيانات لمشروع صغير يعمل فيه عشرة موظفين وحجم تعاملاته لاتتجاوز مائة أو مائتين الف دولار شهريا لبرنامج وقاعدة بيانات سيكلف المشروع الاف الدولارات للدعم الفني فقط؟ - أهم مايميز اكسس هو أنها بيئة قواعد بيانات علائقية وهذا يعني أن أسلوب تصميم وبناء قاعدة البيانات فيه هو نفس الأسلوب لتصميم وبناء قواعد البيانات في أي بيئة أخرى وهكذا فعندما يكبر حجم المشروع سيكون من السهل نقل (هجرة) البيانات إلى أي قاعدة بيانات أخرى - في الاونة الاخيرة بدأت مايكروسوفت ببعض الاضافات والتحسينات كما رأينا في إضافة كائن عنصر تحكم متصفح Edge او تحديث عنصر تحكم الرسوم البيانية وكذا محرر الاستعلامات موناكو وغيرها من الاضافات والتحسينات التي سيتم اضافتها في المستقبل وأعتقد أن مايكروسوفت لم تقم بهذه التحديثات إلا على ضوء نتائج دراسة للسوق قامت بها وجعلها تستشعر أهمية هذا التطبيق من أوفيس (المظلوم من حيث التحديثات مقارنة ببقية تطبيقات أوفيس الأخرى) وهذا إن دل على شيئ فإنما يدل على أن هناك توجه كبير نحو العمل بإستخدام أكسس في المستقبل. وفيما يخص الجزء الثاني من السؤال (التوقعات بشأنه مع تطور الذكاء الصناعي) فوجهة نظري أن المبالغة في إستخدامه لن يفيد أحد - الغير فاهم سيخاطر بإستخدام برنامج لايعلم إن كان صحيحاً أم مليئا بالأخطاء والأخطار التي قد يتسبب بها على المدى القريب او البعيد - المبتدئ الذي يريد التعلم لن يتعلم شيئاً فمن خلال رحلة تعلمي لم أجد أفضل طرق للتعلم إلا شيئ واحد هو التجربة والخطأ فإذا لم يمارس المبتدئ العمل بنفسه ويظل يجرب ويخطئ فلن يتعلم أي شيئ - المحترف لابأس في أن يستخدم الذكاء الصناعي للمساعدة في حل جزئية معينة (جزئية وليس الكل) كذلك يمكن إستخدامه للمساعدة في تصور شكل النماذج والتقارير أو إقتراح الخطوط العريضة للبرنامج لإستخدامها للعصف الذهني لإستنباط الأفكار فقط أما أن يستخدمه في إنشاء برنامج من الألف إلى الياء فهذا أنا ضده تماماً. فكما يعلم الجميع فأن كتابة البرنامج من الصفر أسهل من مراجعة برنامج قام به شخص آخر والشيئ الثاني أن قيام المطور بكتابة الكود بنفسه يجعله ملماً بأدق تفاصيله وعند حدوث أي خطأ يكون من السهل معرفة موقعه ومعرفة تأثير التعديل الذي سيتم على الكود لإصلاح الخطأ على بقية الأكواد وحتى ولو إفترضنا جدلاً أن الذكاء الصناعي قام بإنشاء تطبيق صحيح 100% (سواء كان أكسس أو غيره) فهل سيتمكن المطور من حل أي مشكلة قد تظهر في المستقبل؟ وإذا كان يعمل ولم تظهر أخطاء فهل سيكون لدى المطور الذي سيدّعي القيام بالعمل الثقة الكافية فيه أم سيظل حاطط يده على قلبه في إنتظار المكالمة التي تخبره بظهور خطأ ... والا أنتو إيه رأيكو 😅؟