Foksh

وعليكم السلام ورحمة الله وبركاته ..

شكراً لك على الهدية القيمة .. وخطر ببالي سؤال يخص التصميم .

بأي إصدار تم إنشاء قاعدة البيانات في أساسها ؟؟؟ أم هي الفكرة من خلال المديول فقط !!!!

وأقصد تحديداً النموذج ufTreeview

37 دقائق مضت, jjafferr said:

انا اميل الى اشعار المستخدم بالخطأ على مستوى الحقل وليس على مستوى السجل ، حتى يتمكن من التعديل مباشرة ،

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

38 دقائق مضت, jjafferr said:

ولما يسمح لنا اخوي @Foksh ، بنتكلم عن الطريقة ان شاء الله 🙂

سامحك الله أخي جعفر .. من أنا لأسمح أو أمنع  ..

لاحظ أن الشرط حماية هيكل الرواتب ( ربط الراتب بالدرجة ) ، فهذا الشرط لا يمكن عمله على مستوى الحقل أبداً  ، لأننا هنا سنقارن حقلين ببعضهما . لذا ومن رأيي الشخصي ، لا بد من وجود قاعدة تعمل على مستوى السجل .

4 ساعات مضت, jjafferr said:

وتماشيا مع روح الشروط (وليس تماشيا مع الشروط 🙂 ) ، وهي ثغرة قانونية استندت عليها في المرفق 🙂

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

في آخر نسخة لك ، انظر للخلل في الإحصائيات :-

وحيث تم إضافة العاطفة البرمجية ( مقتبس من مشروع RobotaAI ) لأخي أحمد يوسف . هذه النسخة الأخيرة من اللعبة بالإصدارين 32 و 64 ..

X-O Game - 64.zip

X-O Game - 32.zip

1. إصدار تفاعلي أكثر مرونة عن اللعب ضد الكمبيوتر ..
2. إضافة تفاعل عاطفي مزاجي للكمبيوتر عند اللعب ضده بحيث يكون متهاون حتى في ردود أفعاله النصية عند المستويات .
3. حسم الأمر بالمستوى الصعب ، فليس دائماً يكون ارتكاز الكمبيوتر على مركز اللعبة ليلعب به دائماً ..

الملف مفتوح المصدر :-

X-O Game - Open Source.accdb

30 دقائق مضت, Debug Ace said:

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

4 دقائق مضت, Debug Ace said:

لسة فيه عندك bugs يا سيد Foksh 

احذف القديم ، وشغل الجديد يا هندسة ..  😎

13 دقائق مضت, ابوخليل said:

  كل الامثلة لا تعمل على 2010  😠 

معلمنا الفاضل ، انا مستغرب جداً من عدم عمل الإصدار 32 لديك .. انظر من جهاز آخر بالقرب مني ويعمل على أوفيس 2010 32 ..

24 دقائق مضت, Debug Ace said:

ولكن انت محتاج تراجع اكوادك تانى يا عثل فى عندك bugs

جرب كدة ونشوف النتيجة !!

X-O Game - 32.zip

X-O Game - 64.zip

12 دقائق مضت, Debug Ace said:

ولكن انت محتاج تراجع اكوادك تانى يا عثل فى عندك bugs

ماشي يا محمد .. الـ Bugs ده اللي بتتكلم عنه سببه إنك بالنقر على الأزرار بينما الكمبيوتر كان يفكر .. ولكن جاري المعالجة في المرفقات التي سيتم رفعها في المشاركة التالية .. 

على العموم ، انا زودت قفل زيادة علشان تفرح يا عم 😉

8 دقائق مضت, Debug Ace said:

لا تعتقد انى سوف انقل افكار او خبرات او حلول المشاركين يا سيد Foksh

لا لا يا هندسة ، مش ده قصدي !! ولا حتى قريب منه ، استغفر الله أن نظن بأحد ظناً سيء . على العكس ثقتنا كبيرة ببعضنا 

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

وهذين ملفين 32 و 64 للتجربة ، وإبداء الرأي لمن يريد .

وثق تماماً أنني سأفرج عن الملف مفتوح المصدر بعد مشاهدة بعض المشاركات .

X-O Game - 32.zip

X-O Game - 64.zip

منذ ساعه, Debug Ace said:

طيب وانت تقوم بعمل التطوير اجعل منافسك هو الحاسوب لان انت اللى بتعمل كل شئ انا عاوزها لعبة تفاعلية حقيقية بينك وبين الحاسوب

تقصد بهذا الشكل ؟؟

وعليكم السلااااااام ورحمة الله وبركاته ..

وبما أنني من عشاق تصميم الألعاب في آكسيس .. وقد كان لي تجربة مع هذه اللعبة الجميلة ، وقد قمت بتضمينها ضمن برنامج إدارة النوادي الرياضية في هذا الموضوع هنا .. وكانت تجربتي بالشكل  القديم التالي :-

ولكن وبما أننا في 2026 ، فسأقوم بتطويرها بشكل أجمل ضمن هوايتي المتواضعة .😁.

 رابط موضوع التحدي هنا .

أهلاً بكم في انطلاقة سلسلتنا الجديدة "الفعاليات والتحديات الشهرية". في عالم قواعد البيانات ، المحترف الحقيقي ليس من يكتب مئات الأسطر من الأكواد ، بل هو "المعماري" الذي يبني قاعدة بيانات قوية ، ذكية ، وتحمي نفسها بنفسها !

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

📖 قصة التحدي :-

طلب منك عزيزي المشارك ( مصنع تقني ) بناء نظام لإدارة شؤون الموظفين ، ولكن لديهم شروط صارمة جداً لمنع أي موظف مُدخِل بيانات من ارتكاب أخطاء . حيث أن الإدارة ترفض تماماً استخدام أكواد ( VBA ) ، وتريد أن تكون الحماية مزروعة ومتأصلة في قلب الجداول مباشرة ، لضمان أقصى درجات الأمان .

🛠️ المطلوب :- إنشاء جدول باسم tbl_Managers ، يحتوي على الحقول التالية :-

• اسم الموظف ( EmpName )
• تاريخ الميلاد ( DOB )
• تاريخ التعيين ( HireDate )
• الدرجة الوظيفية ( JobGrade ) = (A أو B أو C)
• الراتب الأساسي ( Salary )

🚫 شروط التحدي :-

يجب عليك ضبط إعدادات الجدول (Property Sheet) ليقوم بالمهام التالية تلقائياً :-

• يُمنع الحفظ في حال مخالفة القوانين والأحكام ، حيث يُمنع تسجيل أي موظف عمره أقل من 18 عاماً ( بناءً على تاريخ ميلاده مقارنة بتاريخ اليوم ) .
• حماية التسلسل الزمني ، حيث يُمنع أن يكون تاريخ التعيين قبل تاريخ تأسيس المصنع ( 01/01/2020 ) .
• يُمنع أن يكون تاريخ التعيين في ( المستقبل ، أي بعد تاريخ اليوم الحالي ) .
• حماية هيكل الرواتب : يجب ربط الراتب بالدرجة الوظيفية كالتالي :-

1. إذا كانت الدرجة A : الحد الأقصى للراتب هو 10,000 .
2. إذا كانت الدرجة B : الحد الأقصى للراتب هو 7,000 .
3. إذا كانت الدرجة C : الحد الأقصى للراتب هو 5,000 .

الرسائل المخصصة ، بحيث عند وقوع أي خطأ ، يجب أن يظهر للمستخدم رسالة تنبيه واضحة باللغة العربية تشرح له سبب الرفض بالضبط .

🚫 قوانين المشاركة :-

• يُمنع منعاً باتاً استخدام أكواد VBA أو الـ Macros - الماكرو .
• الحل يجب أن يكمن في خصائص الجدول ( Table Properties ) فقط .

♻ كيف تشارك ؟

• قم برفع ملف مرفق فقط . وتذكر أنك عزيزي المشارك تملك الحق في 3 محاولات لإجاباتك خلال التحدي الواحد فقط .

3 ساعات مضت, Debug Ace said:

فى فرق كبير لازم نركز فيه

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

مشاركة مع الأستاذ @عبدالله بشير عبدالله ، هذه تجربتي ..

استخدمت الحدثين التاليين في ThisWorkbook :-

Private Sub Workbook_Open()
    Application.IgnoreRemoteRequests = True
    Application.Visible = False
    UserForm6.Show vbModeless
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Response As VbMsgBoxResult
    Dim MsgText As String
    MsgText = "سيتم اغلاق جميع أوراق العمل ومشاريع آكسل المفتوحة ، هل ترغب بالاغلاق؟"
    Response = MsgBox(MsgText, _
                      vbCritical + vbYesNo + vbMsgBoxRight + vbRtlReading, _
                      "تنبيه هام - إغلاق النظام")
    If Response = vbNo Then
        Cancel = True
        Exit Sub
    End If
    Application.IgnoreRemoteRequests = False
    ThisWorkbook.Saved = True
    Application.Quit
End Sub

وقمت بتعديل بسيط على الحدث UserForm_Activate :-

Private Sub UserForm_Activate()
    ThisWorkbook.Application.Visible = False
    Load UserForm6
End Sub

مشكلة.xlsm

4 ساعات مضت, Debug Ace said:

فيما يخص تحويل الدوال : 60 % يكون مخطئ وانا كنت رحيم انى قلت 60 مش أعلى من كده

يعني انت لا تنصح باستخدام الذكاء الإصطناعي في كتابة الأكواد ؟

انصحني لأني لقيت أن التوجه له أصبح كبيراً وكثيراً جداً 😥

يسرّنا مشرفي قسم الآكسيس أن نعلن عن انطلاق سلسلة من التحديات الشهرية التي سيتم نشرها في قسم الآكسيس حصراً ، حيث سيتم طرح سؤال أو فكرة بموضوع - مثبت شهرياً - كنوع من أنواع التحدي والمثابرة لجميع الأعضاء في المنتدى . وستُعرض المشاركات التي تم اعتمادها بالتصويت من قبل الأعضاء كافةً من خلال الإعجاب لكل تحدي وسؤال على حدة .

الهدف من هذه الفعاليات هو تعزيز روح المنافسة الإيجابية والبناءة ، تبادل الخبرات ، وإثراء المحتوى في هذا القسم .

1. يحق لكل عضو المشاركة بـ 3 محاولات للإجابة في كل تحدي .
   ( وذلك لأن الأفكار أحيانا تتفجر بشكل متلاحق بعد الشروع في فكرة ما ، وتنتج عنها عدة نسخ في كل نسخة تحسين للتي قبلها )
2. جميع التحديات ستكون ضمن إطار برنامج الآكسيس حصراً .
3. موضوع التحدي يتم تحديده مسبقاً وهو غير قابل للتعديل أو النقاش .
4. يجب أن تكون المشاركة مكتوبة بلغة واضحة وخالية من الأخطاء قدر الإمكان .
5. لا مانع من استخدام أي مصدر أو مساعدة خارجية ، أو حتى الذكاء الإصطناعي . 
6. الإلتزام بالوقت المحدد لنشر الإجابات ، حيث لن تُقبل المشاركات بعد انتهاء المهلة المقررة لكل تحدي .
   ( سيتم إغلاق الموضوع بعد انقضاء المهلة المخصصة للتحدي )
7. سيتم اعتماد الفائزين عبر تصويت الأعضاء من خلال الضغط على  ، ويُعلن عن النتائج في نهاية كل تحدي ؛ والتي سيتم تثبيتها في هذا الموضوع فقط مع ذكر اسم صاحب المشاركة التي تم التصويت لها .
8. يحق للإدارة استبعاد أي مشاركة مخالفة للشروط أو خارجة عن موضوع التحدي .
9. المشاركة تشمل جميع الأعضاء ومن جميع الأقسام أيضاً .
10. أي إضافات خارجة عن نطاق التحدي لن تحتسب ضمن التقييم لدى المشرفين .
    ( الهدف هو عدم الإبتعاد عن جوهر التنفيذ البرمجي وليس الشكل الجمالي فقط )

33 دقائق مضت, mohsen mohamed said:

السلام عليكم ورحمة الله وبركاته 

وعليكم السلام ورحمة الله وبركاته ،،  

33 دقائق مضت, mohsen mohamed said:

في الحقيقة لا تزال رسالة الخطأ موجودة 

فعلياً بعد تحميل المرفق الأصلي ، يعمل بدون مشاكل لدي على الإصدار 2019 - 64

33 دقائق مضت, mohsen mohamed said:

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

وقد يكون هذا أحد الأسباب .. جرب ولن تخسر شيء أخي الكريم . مع العلم أنني كنت سأطلب منك إرفاق صورة لنفس الخطا في رسالته التي تظهر لك ، وليس السطر اذي يشير إليه الخطأ .

3 ساعات مضت, بلانك said:

هذا مثال للتوضح    تجميع محتويات الاعمدة في عمود واحد

الأصل أخي العزيز @بلانك ، وبما أنك عضو مميز أن تقوم بالشرح الوافي لمطلبك ، فقارئ كلماتك لا يسمع صوتك حين كتبتها 😅 ، حتى باختيارك للعنوان لم توفق هذه المرة  .

على العموم حاول أن تهتم بطريقة توصيل المعلومة التي تريدها لاحقاً كي تتلافى هذه المتاهة . ففهم السؤال = ثلثي الإجابة .

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

تقصد ان الخلية P1 مثلاً يكون قيمتها =

41-59-36-45-17-12-43-2-55-58-25-24-11

أو مثلاً

4159364517124325558252411

وعليكم السلام ورحمة الله وبركاته ..

رغم ان طلبك غير واضح بشكل كافي . فهل ما تريده هو نقل قيمة الخلية A1 الى النظير لها في الصف P1 وهكذا للصف التالي A2 = P2 ؟؟؟؟

إن كان كذلك فالأحق والأصح هو وضع قيمة في :-

P1 = "=A1"

والسحب الى باقي الخلايا في العمود P وستحصل على القيمة النظيرة لأي خليه من P من المصدر A . جرب ان كان ما فهمته صحيحاً في الملف المرفق بتعديل اي قيمة موجودة في A وستلاحظ انها تغيرت في P النظير لها .

تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

56 دقائق مضت, Taher DZ said:

نقلتها سابقا ولكن ما اشتغلت ولكن عندما وقفت   Sleep  اشتغل الكود بصفة عادية

بما ان الدالة Private ، فأعتقد انك وضعتها في المديول وليس في النموذج الذي تم استدعاء Sleep فيه .

لذا ضع تعريف الدالة في نفس النموذج وجرب 🙂

4 ساعات مضت, at_aziz said:

لقد تم تثبيت التطبيق بنجاح بعد متابعة شرحك ولله الحمد

شكراً لك للإفادة بالنتيجة ..

والحمد لله على نجاح المهمة ..

السلام عليكم ورحمة الله وبركاته ..

الحل النهائي بعد تجربته مراراً وتكراراً . انتقل الى الرابط التالي هنا وحمل الملفات منه بدايةً .

وفي التالي شرح مصور مع الأخطاء وكيفية علاجها .

طبعاً تم ترك الأخطاء التي مررت بها كي يسهل على المستخدم الكشف عن الخلل وكيفية الإستدلال عليه وإصلاحه .