Foksh

تفضل أخي @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 ، لو كان الاسم " عبد ربه" 😅 ، فما الحل ؟

تفضل أخي @waheidi2005 ، هذه محاولتي المتواضعة New Microsoft Access Database.accdb

تم تعديل الرابط في المشاركة السابقة

تم العمل على زري التنقل ( BtPrev و BtNext ) ولكني اعتقد انك تريد الفكرة على الرزنامة التي على اليسار ، هل هذا صحيح ؟؟.؟؟

أخي @عبد اللطيف سلوم ، هل هذا ما تريده ؟ فلل السعودية.accdb

استكمالاً لما سبق 👆 :- بطريقة بسيطة سيتم الاعتماد على حساب الجيب العكسي للزوايا باستخدام دالة الرمز الجيبي العكسي (Arcsine)، والتي يُرمز لها بـ ASin . تُستخدم الدالة ASin في الرياضيات لحساب الزاوية التي تمثلها الجيب العكسي لنسبة محددة من الجانب المقابل لزاوية مثلث، عندما يُعرف طول الضلع المقابل لهذه الزاوية . ويتمثل ذلك في المعادلة الرياضية . صورة تعبيرية وبناءً على هذه المعادلة سيتم احتساب أوقات الصلاة باستخدام معادلات فلكية و جيوغرافية ، ومن ثم سنعيد القيمة الراجعة بتنسيق معين بشكل وقت . حسب المديول التالي ، والذي يعتبر عامود المشروع وقوامه وأساسه :- Option Compare Database Const PI As Double = 3.14159265358979 Function ASin(Value As Double) As Double If Abs(Value) <> 1 Then ASin = Atn(Value / Sqr(1 - Value * Value)) Else ASin = 1.5707963267949 * Sgn(Value) End If End Function Public Function ACos(ByVal nValue As Double, Optional fRadians As Boolean = True) As Double ACos = -Atn(nValue / Sqr(1 - nValue * nValue)) + PI / 2 If fRadians = False Then ACos = ACos * (PI / 180) End Function Function gettimes(lag As Double, lat As Double, tzon As Double, stime As String, method As Integer, Optional dylt As Integer = 0, Optional strdate As Date) As Date ' تعريف المتغيرات المستخدمة Dim D, L, m, lambda, alpha, noon, alt, UTNoon, localNoon, st, Dec, ar, obl As Double ' حساب تاريخ اليوم D = (367 * Year(strdate)) - Int(((Year(strdate) + Int((Month(strdate) + 9) / 12)) * 7) / 4) + Int(275 * Month(strdate) / 9) + Day(strdate) - 730531.5 ' حساب زاوية الشمس والشروق والغروب L = 280.461 + 0.9856474 * D L = L - (360 * Int(L / 360)) m = 357.528 + 0.9856003 * D m = m - (360 * Int(m / 360)) lambda = L + 1.915 * Sin(m * PI / 180) + 0.02 * Sin(2 * m * PI / 180) obl = 23.439 - 0.0000004 * D ' حساب موضع الشمس وزاوية الشروق والغروب alpha = Atn(Cos(obl * PI / 180) * Tan(lambda * PI / 180)) * 180 / PI alpha = alpha - (360 * Int(alpha / 360)) alpha = alpha + 90 * (Fix(lambda / 90) - Fix(alpha / 90)) st = 100.46 + 0.985647352 * D st = st - (360 * Int(st / 360)) Dec = ASin(Sin(obl * PI / 180) * Sin(lambda * PI / 180)) * 180 / PI noon = alpha - st noon = noon - (360 * Int(noon / 360)) UTNoon = noon - lag localNoon = (UTNoon / 15) + tzon + dylt ' حساب أوقات الصلاة Select Case stime Case Is = "Fajr" ' حساب وقت الفجر alt = DLookup("FajrDegree", "PrayerCalculation", "MethodType=" & method & "") ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI fajr = localNoon - ar / 15 gettimes = Format(fajr / 24, "hh:nn:ss") Case Is = "Shrok" ' حساب وقت الشروق alt = -1 ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI shrouk = localNoon - ar / 15 gettimes = Format(shrouk / 24, "hh:nn:ss") Case Is = "Zohr" ' حساب وقت الظهر gettimes = Format(localNoon / 24, "hh:nn:ss") Case Is = "Asr1" ' حساب وقت العصر (الطريقة الأولى) alt = 90 - Atn(1 + Tan(Abs(lat - Dec) * PI / 180)) * 180 / PI ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI asr = localNoon + ar / 15 gettimes = Format(asr / 24, "hh:nn:ss") Case Is = "Asr2" ' حساب وقت العصر (الطريقة الثانية) alt = 90 - Atn(2 + Tan(Abs(lat - Dec) * PI / 180)) * 180 / PI ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI asr = localNoon + ar / 15 gettimes = Format(asr / 24, "hh:nn:ss") Case Is = "Maghrib" ' حساب وقت المغرب alt = -1 ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI maghrib = localNoon + ar / 15 gettimes = Format(maghrib / 24, "hh:nn:ss") Case Is = "Eshaa" ' حساب وقت العشاء If method = 4 Then alt = -1 ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI maghrib = localNoon + ar / 15 If Month(CStr(Date)) = 9 Then gettimes = Format((maghrib + 2) / 24, "hh:nn:ss") Else gettimes = Format((maghrib + 1.5) / 24, "hh:nn:ss") End If Else alt = DLookup("IshaDegree", "PrayerCalculation", "MethodType=" & method & "") ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI eshaa = localNoon + ar / 15 gettimes = Format(eshaa / 24, "hh:nn:ss") End If End Select End Function يتبع ... 👈