Foksh

جرب فكرة أخرى أخي @sief122 اعتماد ID بدل اسم المشروع 🤔 الجمعية التعاونية.accdb

وعليكم السلام ورحمة الله وبركاته ، 2010 فما فوق 👌

🙄 تختار الطريق الاصعب ليه

أكيد ، هتعمل جدول بأسماء المشاريع ، وجدول بالبيانات التانية المتفرعة . وتعمل نموذج فرعي يعرض السجلات بطريقة ورقة البيانات ويكون الربط ما بينهم رقم المشروع ID

بناءُ على كلامك ده ، يبقى لازم تغير طريقة عرض البيانات بما إنه ممكن يكون هناك للمشروع أكتر من سجل

تفضل أخي @sief122 هل هذا طلبك ؟ الجمعية التعاونية.accdb

جزاك الله غير على هذه الفكرة ، هو في الواقع انا ما عنديش شبكة محلية لحتى اجرب فكرتك ، وحاولت افتح الملفين على نفس الجهاز وما حصلش اي حاجة ، علشان كدة انا سألتك ايه الفكرة على العموم لعل أحد الأخوة لديه شبكة محلية ممكن يرجع لنا بنتيجة تجربته 😀

للحصول على نتيجة في طلبك ، يرجى قراءة قواعد المشاركة هنا ، وبالأخص ما يلي :- محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل.

أخي الكريم أدعم كلام أخي الاستاذ @kkhalifa1960 ويسعدنا في المنتدى تلبية طلبات جميع الأسئلة التي يطرحها اصدقاء ومنتسبي المنتدى ، ولكن من يحاول المساعدة هنا ليس الذكاء الاصطناعي ، وإنما أساتذة وخبراء وموهوبين يتعاملون مع ملف " مرفق " يجب على السائل ارفاقه للحصول على إجابته والحل الصحيح لمشكلته. شكراً لسعة صدرك 🥰

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

باختيارك لأفضل إجابة يتم إغلاق الموضوع 🥰

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

استكمالاً لما سبق 👆 :- تم إنشاء نموذج Settings المسؤول عن تحديد طريقة احتساب أوقات الصلاة والبلد والمدينة . تم البدء بإدراج الأوقات في النموذج الرئيسي Home ، حيث تم الإحتساب بدايةً لوقت شروق الشمس فقط ، وذلك بإضافة جزء من الدالة التي تقوم باحتساب الأوقات بناءً على المديول الرئيسي في المشاركة قبل السابقة 👆. Salawat.accdb يتبع ... 👈

نفس إصدار الأوفيس ؟؟

اخي @طير البحر ، اذا فتحت قاعدة بيانات غير مشروعك فهل يبقى نفس السلوك الذي وصفته 🤔 ؟ اذا كان جوابك نعم حاول التأكد من نسخة الأوفيس نفسها ( إزالتها وإعادة تثبيتها مرة أخرى ) . أما إذا كان جوابك لا !! فحاول ارفاق الملف الذي يسبب هذا السلوك.

تفضل اخي @2saad هذا استعلام يحصي لك الأعداد التي طلبتها ، افتح النموذج Form1 SELECT Sum(IIf([Stuelnoa]=1,1,0)) AS Male_Count, Sum(IIf([Stuelnoa]=2,1,0)) AS Female_Count, Sum(IIf([Stuelnoa]=1 And [Stueldina]=2,1,0)) AS Christian_Male_Count, Sum(IIf([Stuelnoa]=2 And [Stueldina]=4,1,0)) AS Christian_Female_Count, Sum(IIf([Stuelnoa]=1 And [Stueldina]=1,1,0)) AS Muslim_Male_Count, Sum(IIf([Stuelnoa]=2 And [Stueldina]=3,1,0)) AS Muslim_Female_Count, Sum(IIf([Stuelnoa]=1 And [Stuelqid]=1,1,0)) AS New_Male_Count, Sum(IIf([Stuelnoa]=2 And [Stuelqid]=1,1,0)) AS New_Female_Count, Sum(IIf([Stuelnoa]=1 And [Stuelqid]=2,1,0)) AS Passed_Male_Count, Sum(IIf([Stuelnoa]=2 And [Stuelqid]=2,1,0)) AS Passed_Female_Count FROM Tastudent; New Microsoft3.accdb وأخبرني بالنتيجة 😊

😉 اقصد هذا السطر يا صديقي hMenu = GetSystemMenu(hwnd, 1&)

عمل جيد أخي @طير البحر ودعماً لمحاولتك ، هذا الجزء الخاص بزر RestoreDown Sub DisableRestoreDownButton() Dim hwnd As Long Dim M As Long hwnd = Application.hWndAccessApp M = GetWindowLong(hwnd, GWL_STYLE) M = M And Not WS_MAXIMIZEBOX Call SetWindowLong(hwnd, GWL_STYLE, M) End Sub Sub RestoreRestoreDownButton() Dim hwnd As Long Dim M As Long hwnd = Application.hWndAccessApp M = GetWindowLong(hwnd, GWL_STYLE) M = M Or WS_MAXIMIZEBOX Call SetWindowLong(hwnd, GWL_STYLE, M) End Sub بعد إذنك لاحظت وجود خطأ في الجزء المسؤول عن أعادة تفعيل زر اغلاق الآكسيس :- أرجو التعديل من هذا الجزء Sub enableCloseButtonfunction() Dim hwnd As Long Const SC_CLOSE = &HF060 Const MF_BYCOMMAND = &H0 hwnd = Application.hWndAccessApp Dim hMenu As Long hMenu = GetSystemMenu(hwnd, 0&) If hMenu Then ' DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND 'Disable the Close button ááÇáÛÇÁ DrawMenuBar (hwnd) 'Repaint the MenuBar ááÊÔÛíá End If End Sub إلى هذا الجزء Sub enableCloseButtonfunction() Dim hwnd As Long Const SC_CLOSE = &HF060 Const MF_BYCOMMAND = &H0 hwnd = Application.hWndAccessApp Dim hMenu As Long hMenu = GetSystemMenu(hwnd, 1&) If hMenu Then DrawMenuBar (hwnd) End If End Sub

أخي @سيد رجب ، في الواقع بعد المتابعة وتحميل المرفقات لم أفهم المطلوب أو الهدف 😥 نرجو منك التوضيح !!!

استكمالاً لما سبق 👆 :- سنبدأ اليوم ببدء تصميم الجداول :- الجدول الأول جدول Country الخاص بالدول التي سيشملها البرنامج لحساب أوقات الصلاة . الجدول الثاني جدول City الخاص بالمدن المتفرعة لكل دولة في الجدول السابق . الجدول الثالث جدول Curcity الخاص بإعدادات المدينة الحالية التي سيتم عرض أوقات الصلاة لها . ( إختصار Current City ) . الجدول الرابع جدول PrayerCalculation الخاص بطريقة الحساب والمذاهب .... الخ . المرفق في المشاركة التالية 👇 يتبع ... 👈

مجرد سؤال أخي @2saad ، لو كان الاسم " عبد ربه" 😅 ، فما الحل ؟