أبو هادي

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

السلام عليكم أخي خضر الرجبي .. العمل أكثر من ممتاز . لي ملاحظات لو صممت نموذج منفصل لعرض بيانات المدن أو الولايات أو البلدان بدل من أضافة صناديق النصوص في نموذج المدن في نظري أفضل وخصوصا أن هناك صناديق أضافية ستضطر لإضافتها مثل نقطة الـ switching التي ذكرتها لكم سابقا . في حالة التعامل مع المدينة أرى أن نعرض كل التفاصيل الأخرى المتعلقة بالولاية والبلد .. مطلوب رأيك ورأي أبي سليمان . بالنسبة للبلدان التي تحتوي على ولايات مطلوب التعديل فقط في الإسم العربي والإسم الإنجليزي على أن تكون باقي الحقول قيمتها Null وإذا كانت هناك قيم بالخطأ فيجب تنظيفها مع كل عملية تعديل . تحياتي .

السلام عليكم أخي أبو سليمان .. بارك الله فيك على جهودك الطيبة وعلى اندماجك في الموضوع أكثر من مقترحه . - لقد حليت مشكلة النتيجة بعد إضافة موديول خاص به وجدولين ونموذجين تابعة له أيضا . - بدلت صناديق التاريخ الهجري والميلادي من تسمية إلى نص لاستخدام النتيجة ، إنظر إلى الأحداث ولاحظ في الهجري كيف استدعيت النتيجة منه وعدلت في الميلادي وهذه ميزة قوية في النتيجة . - لقد بدلت مواقع طول النهار والليل لأسبقية الليل على النهار بالنسبة لليوم العربي . - تمييز اليوم للوقت الغروبي لم أستسيغه وأعتقد يمكننا أن نستخدم المتعارف عليه / القياسي ك ص ، م am ، pm والحصول عليه من الوقت قبل تحويله من زوالي إلى غروبي . - صندوق طريقة الحساب لو تحوله إلى Combo box ليظهر كل الطرق ويمكن للمستخدم أن يبدل في النموذج مثله مثل التقويم الصيفي والحنفي مع عدم أغفال موضوع التقويم الإفتراضي . - لو نستطيع توضيح تقويم البلد بزيادة تسمية أو أي طريقة أخرى تراها مناسبة . الحقيقة العمل متقن بحيث لا توجد عندي أي ملاحظة في صميم البرمجة . تحياتي . الملفات المرفقة Prayers_20050127b.rar ( 433.21ك ) عدد مرات التنزيل: 8

السلام عليكم أولا أنا آسف نسيت أن أرحب بأخينا الفاضل رضوان .. فأهلا وسهلا به . أخي يوم ترى نفسك جاهز فأخبرني حتى أتمكن من اسناد بعض المطلوبات لكم . أخي أبو سليمان .. شكرا لك وسوف أقوم بفحص كل الملاحظات . أخي خضر الرجبي .. أعانك الله . - وما فائدة الرموز المتكررة ؟ على كل حال أنا أوافقك في التبديل فقط لتوفير مساحة التخزين فلك الخيار لتغيير النوع إلى Byte في حال أن المدن لا تزيد عن 255 أو Integer . - ممتاز أن نستغل الشواغر إذا كان لا يشكل لك عبئا إضافيا أو يمكن أن تعيد ترتيب المعرفات وتخصيص زر لذلك .. لك الخيار . تحياتي .

السلام عليكم الله يسامحك !! أخي خضر .. وهل هذا شيء يتطلب المشورة !!؟ هذا أكثر مما نطلب ، فتوكل على الله وأبحر ، "ترانا مو طماعين" ، وكما يقولون أنت كريم ونحن نستاهل :d . أنا بريدي محجب وقد راسلتك على البريد الإلكتروني لأخبرك ببريدي أولا ثم لتقوم بإرسال مثالكم لي كحل لمشكلة المرفقات . تحياتي . الملفات المرفقة testing.rar ( 335.77ك ) عدد مرات التنزيل: 7

السلام عليكم أخي خضر الرجبي .. عند إدخال خطي الطول والعرض وفارق التوقيت يخير المستخدم باستخدام خيار الوقت (ساعة ودقيقة وثانية) والإتجاه (منفصلات) .... أو .... على ماهو عليه الآن بشكله الرقمي Double . اتجاهي خط العرض شمال وجنوب ، الشمال موجب والجنوب سالب أي خط عرض 50:30:00 جنوب سيكون بالرقم 50.50- . واتجاهي خط الطول شرق وغرب ، والشرق موجب والغرب سالب أي خط طول 26:30:00 غرب سيكون بالرقم 26.50- . فأنت ستعمل switching بينهما إن أدخل بشكل ساعات ودقائق وثواني واتجاه فهو يتحول بشكل آلي إلى رقم عشري مع الإنتباه إلى علامة الرقم + أو - ، والعكس صحيح . في حالة إدخال خط الطول يمكننا أن نجهز حسبة فارق التوقيت للمتخدم بتخصيص 4 دقائق لك درجة طول وسنقرب النتيجة إلى أقرب نصف ساعة ، طبعا لو كانت علامة الطول سالبة سيكون فارق التوقيت سالب كذلك . وبكل تأكيد سيسمح له بتغيير الفارق مع ملاحظة أننا سنحذره في حالة وجود فارق يزيد عن ساعة . تحياتي .

السلام عليكم يا سلام عليك أخي خضر الرجبي .. فينك من زمان . الحقيقة أنا أكره كثرة المديولات في البرنامج وخصوصا أكواد API . الدالة بشكلها الأخير وبدون موديول الـ API . Function GetSysHijri(ByVal HijriDate As Variant, _ Optional ByVal FormatPic As String = "dd/mm/yyyy") As String Dim oKey As Variant Dim AddDays As Integer Dim CurrCal As Byte Dim NewDate As String Dim ddd As String Dim dddd As String Dim Pos As Integer On Error Resume Next CurrCal = Calendar Calendar = vbCalHijri HijriDate = CDate(HijriDate) If Not IsDate(HijriDate) Then Exit Function If Year(HijriDate) = Year(Date) And _ Month(HijriDate) = Month(Date) Then Set oKey = CreateObject("Wscript.Shell") Select Case oKey.RegRead("HKEY_CURRENT_USER\control Panel\International\AddHijriDate") Case "AddHijriDate-2": AddDays = -2 Case "AddHijriDate": AddDays = -1 Case "": AddDays = 0 Case "AddHijriDate+1": AddDays = 1 Case "AddHijriDate+2": AddDays = 2 End Select Set oKey = Nothing Else AddDays = 0 End If ddd = format(HijriDate + AddDays, "ddd") dddd = format(HijriDate + AddDays, "dddd") NewDate = format(HijriDate + AddDays, FormatPic) If ddd <> format(HijriDate, "ddd") Then Do While True If NewDate Like "*" & dddd & "*" Then Pos = InStr(1, NewDate, dddd) NewDate = Left(NewDate, Pos - 1) & _ format(HijriDate, "dddd") & _ Mid(NewDate, Pos + Len(dddd)) ElseIf NewDate Like "*" & ddd & "*" Then Pos = InStr(1, NewDate, ddd) NewDate = Left(NewDate, Pos - 1) & _ format(HijriDate, "ddd") & _ Mid(NewDate, Pos + Len(ddd)) Else Exit Do End If Loop End If GetSysHijri = NewDate Calendar = CurrCal End Function تحياتي . SysHijriDate.rar

السلام عليكم مطلوب أجوبة لهذه للأسئلة أدناه على التعابير التالية : منتصف أول ليلة أحد منتصف آخر ليلة أحد هل ليلة أحد تعني يوم الأحد ليلا أم يوم السبت ليلا ؟ هل منتصف ليلة يعني الساعة الثانية عشرة ليلا أم نصف طول الليل ؟ على كل حال هذه دالة مؤقتة تعطيك قيمة الزيادة للتوقيت الصيفي على أساس أن يوم الأحد الساعة الثانية عشرة ليلا . Function DayLightAdd(ByVal inDate As Variant, _ inTime As Double, _ DayLightSaved As Boolean) As Byte Dim CurrCal As Byte Dim mm As Byte Dim yy As Integer Dim BgnDate As Date Dim EndDate As Date On Error Resume Next DayLightAdd = 0 If Not DayLightSaved Then Exit Function inDate = CDate(inDate) If Not IsDate(inDate) Then Exit Function CurrCal = Calendar Calendar = vbCalGreg mm = Month(inDate) If mm < 4 Or mm > 10 Then Exit Function yy = Year(inDate) inDate = inDate + (inTime / 24) BgnDate = DateSerial(yy, 4, 1) EndDate = DateSerial(yy, 10, 31) Do While Weekday(BgnDate, vbSunday) <> vbSunday: BgnDate = BgnDate + 1: Loop Do While Weekday(EndDate, vbSunday) <> vbSunday: EndDate = EndDate - 1: Loop DayLightAdd = Abs(inDate >= (BgnDate + 1) And inDate <= (EndDate + (23 / 24))) Calendar = CurrCal End Function تحياتي .

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

السلام عليكم رأيتها في كتابتكم ومقارنتها مع المغرب كما فعلت خيار صائب وقمت بالتعديل عليها كالتالي : If (Time * 24) >= Ghorob Then PT = (Time * 24) - Ghorob Else PT = myMod((Time * 24) - LastGhorob + 24, 24) End If Me.PastTime.Caption = Per2Min(PT) بالنسبة لطرق الحساب : هناك حقل بإسم PrayerMethod في جدول البلدان به يربط مع جدول tblPrayerCalculationMethods . في حالة عدم وجود الطريقة سنعتمد طريقة لجنة الإشراف على تقويم أم القرى كافتراضي . افتراضي المذهب الحنفي سيؤخذ من الجداول كذلك افتراضي التقويم الصيفي ولكن نحتاج أن نعرف متى يتم تطبيقه ومتى يهمل أي من أي شهر إلى أي شهر . إذا رأيتم أن يكون البرنامج لكل اللغات سنضطر أن نضع إلى جنب العربي والإنجليزي "أخرى" في الجداول الثلاثة ( المدن ، البلدان ، الطرق ) . تحياتي .

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

السلام عليكم ما مضى من اليوم مرة أخرى : سنستخدم الإثنين معا : سنستخدم غروب يوم أمس بين 00:00:01 وحتى 12:00:00 . وسنستخدم غروب اليوم بين 12:00:01 وحتى 24:00:00 . علما أنك تحتاج أن تحدث أوقات الصلاة كلما دخلنا يوما جديدا عند الثانية عشرة ليلا 24:00:00 . تحياتي .

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

السلام عليكم دعوة للجميع في كيفية الإستفادة من هذه النتيجة .. أنا بانتظار آرائكم . أخي أبومؤنس .. أنت تأمر أمر بس بعد مشاركتنا برأيك حول الإستفسار أعلاه :d . تحياتي .

السلام عليكم أخي الفاضل خضر الرجبي .. كل المؤشرات تخبر عن أستاذ خبير محترف في الأكسس . أخي ملاحظاتي على مشاركتكم : - يجب أن يكون طلب أمر التعديل والإضافة والعرض انطلاقا من نموذج frmCities . - البحث قد تم سابقا بواسطة أخونا أبو سليمان في نفس نموذج frmCities . - في الإضافة مطلوب إضافة المعرف للبلدان والمدن آليا وإن أمكن استخدام مثال الأخ محمد طاهر والمصمم ليعمل على شبكة بدون أي خطأ تصادم أو تكرار . - فكرة التحويل بين العربي والإنجليزي ممتازة جدا ، وقد ذكرتني بمثال قديم لا أتذكر في أي موضوع ولكن أتذكر أنه مطبق على مثال آخر وهو نموذج نتيجة للتقاويم ، سأبحث عنه وأزودك بالرابط إن أحببت الإطلاع عليه أو تسترسل بما أنت عليه .. لك الخيار . - بالنسبة لتعديل العلاقات ، فإن تعطيل الحذف كان مقصودا بحيث لا نريد بالسماح بحذف جملة مدن بمجرد حذف بلد أو ولاية قد تكون بعد قرار خاطئ ، بل سنجبره لحذف المدن واحدة بعد الأخرى . - أرجو الإحتفاظ بنسخة من الجداول قبل قيامكم بتصميم نموذجكم حتى لا نفقد بيانات أصلية عند تجارب الحذف والتعديل . وصلة مثال النتيجة المحتوي على فكرة تبديل اللغة : نموذج التقويم ( النتيجة ) تحياتي .

السلام عليكم خاطئة بل تتم بطرح غروب يوم أمس من الوقت الحالي . كما أن في عملية الطرح لا داعي لاستخدام شرط If ابتداءً ، بل سنطرح بشكل عادي وإذا كانت النتيجة أقل من صفر سنجمع عليها 24 ساعة . وهناك طريقة أكثر اختصارا وهي دائما نضيف 24 في عملية الطرح ونستخدم باقي القسمة Mod 24 في عمليتي الطرح والجمع . تحياتي .

السلام عليكم مشكورين كثيرا على هذا التجاوب والسرعة في التنفيذ مع الإتقان . فليسمح لي أخي خضر الرجبي حيث سأؤجل ملاحظاتي بعض السويعات لمزيد من الفحص . أخي أبو سليمان .. عملك جدا متقن والنتائج ممتازة . اكتشفت بعد الفحص أن Day Light Savings هي التوقيت الصيفي ، عليه في حالة التوقيت الصيفي سيضاف ساعة على كل الأوقات . سيؤخذ في الإعتبار كقيمة افتراضية Default التالي حسب بيانات الجداول : - التقويم الهجري المستخدم ( أو عرض أم القرى والهجري معا ) . - المذهب الحنفي . خطوتك التالية تضمين جميع البلدان . تحياتي .

السلام عليكم لقد كانت غلطتي حيث كنت أفحص نسخة يوم 13/01/2005 بدلا من نسخة 17/01/2005 . آنا آسف . تحياتي .

السلام عليكم أخي أبو سليمان .. لقد تم إتمام كل التعديلات بتوفيق الله عز وجل . يحتاج إلى مراجعة نهائية منكم . آمل أن يكون كل شيء على ما يرام حتى نقفل هذا الموضوع الطويل . تحياتي . UmAlQura_20050122.rar

السلام عليكم أضف هذا السطر في نهاية الكود السابق : DoCmd.SelectObject acForm, Me.Name, False تحياتي .

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

السلام عليكم أخي خضر الرجبي .. آخر نسخة هي آخر مرفق لأخينا أبو سليمان ، مع ملاحظة حاجة حذف جدول Athan حيث لا حاجة له الآن . الولايات والبلدان في جدول واحد ويفرق بينهما بقيمة ParentRegion حيث صفر للبلدان وأكبر من صفر للولايات . أخي أبو سليمان .. هناك أوقات/حسابات أخرى سوف نضيفها لأوقات الصلاة مثل : طول اليوم ويحسب من غروب اليوم السابق إلى غروب اليوم الحالي . طول النهار ويحسب من الشروق إلى الغروب . طول الليل وهو الفرق بين طول اليوم وطول النهار . ثلث الليل ويحسب بقسمة طول الليل على 3 وإضافة الناتج على الغروب . منتصف الليل ويحسب بقسمة طول الليل على 2 وإضافة الناتج على الغروب . ثلثي الليل ويحسب بإضافة ثلثي الليل على الغروب . ما مضى من اليوم ويحسب بطرح الغروب من الوقت الحالي . ﴿إِنَّ رَبَّكَ يَعْلَمُ أَنَّكَ تَقُومُ أَدْنَى مِن ثُلُثَيِ اللَّيْلِ وَنِصْفَهُ وَثُلُثَهُ وَطَائِفَةٌ مِّنَ الَّذِينَ مَعَكَ وَاللَّهُ يُقَدِّرُ اللَّيْلَ وَالنَّهَارَ عَلِمَ أَن لَّن تُحْصُوهُ فَتَابَ عَلَيْكُمْ فَاقْرَؤُوا مَا تَيَسَّرَ مِنَ الْقُرْآنِ عَلِمَ أَن سَيَكُونُ مِنكُم مَّرْضَى وَآخَرُونَ يَضْرِبُونَ فِي الْأَرْضِ يَبْتَغُونَ مِن فَضْلِ اللَّهِ وَآخَرُونَ يُقَاتِلُونَ فِي سَبِيلِ اللَّهِ فَاقْرَؤُوا مَا تَيَسَّرَ مِنْهُ وَأَقِيمُوا الصَّلَاةَ وَآتُوا الزَّكَاةَ وَأَقْرِضُوا اللَّهَ قَرْضاً حَسَناً وَمَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللَّهِ هُوَ خَيْراً وَأَعْظَمَ أَجْراً وَاسْتَغْفِرُوا اللَّهَ إِنَّ اللَّهَ غَفُورٌ رَّحِيمٌ﴾ تحياتي .

السلام عليكم أخي أبو سليمان .. أعتقد أن البحث ممتاز وهو الآن في حكم المنتهي . بما أنك عشت خفايا ودهاليز التقاويم ، أرشحك للقيام بحساب أوقات الصلاة بناءً على طريقة الحساب . سنراعي فرق التوقيت مع جرينتش حسب جدول البلدان والولايات . سنراعي خطي الطول والعرض حسب جدول المدن . سنراعي درجات صلاتي الفجر والعشاء حسب جدول طرق الحساب . بالنسبة لصلاة العصر سوف يتم قيمة تبديل Distance من 1 إلى 2 عندما تكون الطريقة على المذهب الحنفي حسب جدول طرق الحساب . بالنسبة لصلاة الفجر والمرتبط بالشروق فتحسب بطرح الدقائق المحددة من الشروق حسب جدول طرق الحساب . بالنسبة لصلاة العشاء والمرتبط بالغروب فتحسب بجمع الدقائق المحددة على الغروب حسب جدول طرق الحساب . بالنسبة لصلاة العشاء إذا كانت الطريقة (90 دقيقة بعد صلاة المغرب ، 120 في رمضان) فإنها تتطلب معرفة شهر رمضان حسب التقويم المحدد في جدول طرق الحساب . سنحتاج إلى عرض الأوقات بتنسيقات مختلفة . هناك التوقيت الصيفي نسيت أن أضيفه في جدول الولايات ، سنتركه الآن . أخي خضر الرجبي .. أرى أنك تعمل على تصميم نماذج الإضافة والتعديل والحذف والعرض . ملاحظاتي : - يمكن عمل نموذج واحد فقط للإضافة والتعديل أو فصلهما . - يمنع حذف البلد التي تحتوي على ولايات بالجدول حتى يتم حذف الولايات أولا . - يمنع حذف البلد أو الولاية التي تحتوي على مدن حتى يتم حذف المدن أولا (مطلوب مراجعة علاقات الجداول) . - الحذف لا يحتاج إلى نموذج . - سنحتاج إلى خيار Option لتحديد المدينة أو الولاية أو البلد عند طلب الإضافة أو التعديل أو أي فكرة أخرى . - عند إضافة بلد لابد أن تكون قيمةParentRegion أكبر من صفر . - عند إضافة ولاية لابد أن تكون قيمة ParentRegion صفر . - يوجد مثال للأخ محمد طاهر لاستعمال دالة DMax للشبكات لاستخدامها في مسلسل البلدان والمدن ، آمل اعتمادها . - المظهر غير مطلوب الآن ، المهم التحكم والسيطرة . تحياتي .

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

السلام عليكم تم التعديل على الدالة بحيث لا يتم التعديل على التاريخ إلا للشهر الحالي حيث أن هذا التعديل على التاريخ لشهر واحد فقط . Function WinHijriDate(HijriDate As Date) As Date Dim AddDays As Integer If Year(HijriDate) = Year(Date) And _ Month(HijriDate) = Month(Date) Then Select Case fReturnRegKeyValue(HKEY_CURRENT_USER, _ "control Panel\International", _ "AddHijriDate") Case "AddHijriDate-2": AddDays = -2 Case "AddHijriDate": AddDays = -1 Case "": AddDays = 0 Case "AddHijriDate+1": AddDays = 1 Case "AddHijriDate+2": AddDays = 2 End Select Else AddDays = 0 End If WinHijriDate = HijriDate + AddDays End Function تحياتي .