أبو هادي

السلام عليكم ضع هذا الحدث في التقرير وجرب : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Me.Printer.LeftMargin = 0 Me.Printer.RightMargin = 0 End Sub تحياتي .

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

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

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

السلام عليكم مرفق المثال بعد التعديل . تحياتي . LateHours.rar

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

السلام عليكم تم تعديل الملاحظات الأخيرة ويتبقى هذه فقط : تحياتي . الملفات المرفقة Prayers_20050420_fe.rar ( 297.82ك ) عدد مرات التنزيل: 2 الملفات المرفقة Prayers_20050421_fe.rar ( 408.77ك ) عدد مرات التنزيل: 2

السلام عليكم كما آمل اعتماد التعديل في هذه الدالة : Function SetPrayerTime(inDate As Date, _ Prayer As Byte, _ tFormat As Boolean, _ Optional addGMT As Double = 0) As String Dim PTime As String Select Case Prayer Case 1: PTime = GetFajrTime(inDate, tFormat) Case 2: PTime = GetShoroqTime(inDate, tFormat) Case 3: PTime = GetDhohrTime(inDate, tFormat) Case 4: PTime = GetAsrTime(inDate, tFormat) Case 5: PTime = GetGhorobTime(inDate, tFormat) Case 6: PTime = GetIshaTime(inDate, tFormat) Case 7: PTime = Per2Min(GetNightThird, tFormat) Case 8: PTime = Per2Min(GetNightHalf, tFormat) Case 9: PTime = Per2Min(GetNightThird2, tFormat) End Select If Second(PTime) >= 30 Then PTime = Per2Min(Hour(PTime) + (Minute(PTime) + 1.01) / 60, tFormat) End If SetPrayerTime = Left(PTime, 5) End Function تحياتي .

السلام عليكم عزيزي أبو سليمان .. رأيت هناك مشكلة آمل إصلاحها . في دالة GetGhorobyTimes مطلوب تبديل هذا السطر : TF = Format(InTime / 24, " AM/PM") بهذا السطر : TF = Format((InTime + DayLightAdd) / 24, " AM/PM") حيث تعطي رموزا خاطئة لفرق الساعة للتوقيت الصيفي فيكون التوقيت الزوالي قد دخل يوما جديدا ولكن بالغروبي لا يزال متخلف الساعة . الحقيقة هممت بالشروع بالتعديل فخفت من العواقب وخصوصا أن دهاليز البرنامج كثيرة . تحياتي .

السلام عليكم أخي طارق .. شكرا لكم على اهتمامكم ومروركم وملاحظاتكم ، نحن نتشرف بكم فلا تغيب عنا . أخي أبو سليمان .. تم التعديل وتفصيلا لملاحظاتكم : 1 - المدينة الإفتراضية عندما لا يكون هناك مدينة مختارة في جدول المدينة الإفتراضية ، أما المدينة التي أنا أحبها جدا وأقوم بالتجارب عليها فأنا لا أتعمد حفظها ولم تكن النقطة تحت اهتمامي لألحظها وأحرص على تبديلها . 2 - تم التعديل . 3 - تم التعديل . 4 - تم التعديل . 5 - يلزم الإنتباه أنه تم التعديل على الجداول ، فخذ نسختك وجرب مرة أخرى . 6 - تم التعديل . آمل الإنتباه أنه عند اختيار مدينة جديدة لا يتم تحديث صندوق الإختيار للتوقيت الصيفي . تحياتي . الملفات المرفقة Prayers_20050418.rar ( 256.04ك ) عدد مرات التنزيل: 26

الجزء الثاني الملفات المرفقة Prayers_20050416.rar ( 717.14ك ) عدد مرات التنزيل: 15

السلام عليكم أخي أبو سليمان .. لفحصك النهائي . مرفق الجزء الأول تحياتي . الملفات المرفقة Prayer20050417.rar ( 435.04ك ) عدد مرات التنزيل: 5

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

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

السلام عليكم مثال لإدخال وفحص واستعلام ملاحظة : تم استعمال دالة UmFormat حاليا وهي تؤدي الغرض وقد وجدت أن هناك تحسس في الدوال الأخرى كـ UmDateValue و UmCDate ولكني سأعمل على فحصها لاحقا . تحياتي . الملفات المرفقة UmAlQuraSample.rar ( 62.82ك ) عدد مرات التنزيل: 3

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

السلام عليكم بارك الله فيكم عزيزي أبو سليمان . لاحظت فشل البحث للمعطيات التالية : البلد : Sau المدينة : Sai ولكن عند زيادة البلد لحرف واحد لتكون Saud ولنفس المدينة فالبحث يعمل بشكل طبيعي ، فهل لطول الإسم تأثير على البحث ؟ أرجو فحصها وعساك على القوة . تحياتي .

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

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

السلام عليكم أعتقد أن الأخ يقصد الـ Decimal places وهو طول الكسر أو عدد خانات الكسر العشري . تحياتي .

السلام عليكم مطلوب حذف هذا الحدث في نموذج أوقات الصلاة : Private Sub CalculationMethods_Click() Call NewWidths(Me.CalculationMethods, 2, 3) End Sub ضمن التعديلات السابقة تم التعديل في دالة التوقيت الصيفي ، آمل فحص نتائجها . تحياتي .

السلام عليكم حياك الله أخي أبو سليمان . لقد تم تعديل جدولي البلدان والتوقيت الصيفي . وتم تعديل أكواد نموذج المدن لتتناسب مع تعديلات الجدولين وتعديل حقول التوقيت الصيفي وقوائم مصادرها . تم إعادة العلاقات لملف قاعدة البيانات back-end . تم تنقيح بعض الأكواد بإزالة إجراءات التجارب والتدقيق . لقد فحصت عن استخدام الإستعلامات ولم أجد إلا واحد فقط يستخدم مع الأكواد والبقية لا تستخدم فقمت بتغيير مسمياتها بوضع علامة ؟؟؟ في بداية أسمائها ، فإذا رأيت أنه لا حاجة لها فقم بحذفها . ملاحظات : ماذا بشأن توحيد طريقة التحويل بين العربي والإنجليزي ؟ ماذا بشأن تحديد عدد المدن في نموذج إعداد تقرير النتيجة ؟ لقد لاحظت أن نموذج إعداد تقرير النتيجة frmRepA لا يعمل بشكل صحيح ، فهل تستطيعوا أن تفحصوها . آمل أن تضع كل ملاحظاتكم حتى ننتهي من هذا الإصدار . تحياتي . الملفات المرفقة Prayer20050402.rar ( 662.5ك ) عدد مرات التنزيل: 19

السلام عليكم أخي أبو سليمان .. لقد طورت فكرتك في الدالة السابقة كالتالي : Sub NewWidths(Cntl As Control, Col1 As Byte, Col2 As Byte) Dim ColWidths() As Integer Dim OldWidths As String Dim ColCount As Byte Dim Col As Byte Dim Pos As Byte If Trim(Cntl.ColumnWidths) = "" Then Exit Sub If Col1 = 0 Or Col2 = 0 Then Exit Sub ColCount = Cntl.ColumnCount If Col1 > ColCount Or Col2 > ColCount Then Exit Sub ReDim ColWidths(ColCount) OldWidths = Cntl.ColumnWidths For Col = 1 To ColCount Pos = InStr(1, OldWidths, ";") If Pos <> 0 Then ColWidths(Col) = Left(OldWidths, Pos - 1) OldWidths = MID(OldWidths, Pos + 1, Len(OldWidths)) Else ColWidths(Col) = OldWidths End If Next Col Call Swap(ColWidths(Col1), ColWidths(Col2)) OldWidths = "" For Col = 1 To ColCount OldWidths = OldWidths & ColWidths(Col) & IIf(Col < ColCount, ";", "") Next Col Cntl.ColumnWidths = OldWidths End Sub ولكني أرى أنها ليست بديلة عن دالة تبديل المصدر حيث هنا يفترض أن يكون عرض أحد العمدين صفر مما يعني إخفاؤه مقابل ظهور الآخر . ولكن وظيفة الأولى هو التبديل بين موقع عمودين دون التصرف في إظهارهما أو إخفائهما فإذا كان عرض أحدهما صفر فسيختفي آليا . لذا سأقوم بتطوير الدالة الأولى ولكن ليس الآن :d . تحياتي .

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

السلام عليكم أخي أبو سليمان .. يبدو أن هذه آخر تعديلات أخي خضر : سأقوم بذلك (إن شاء الله) وسأقوم بهذا (إن شاء الله). هذا ما لا أستطيع تغييره حيث هذه الخاصية مهمة لإنتقاء عدة مدن ونقلها للمربع الثاني مباشرة. أرى أنه يكفي البحث عن الدولة والولاية في هذا النموذج وسأعدل النموذج بحيث تتعطل خاصية البحث عن المدينة. أود سماع رأيك في هذا الاقتراح. كما آمل منكم تبديل حدث الإقفال لنموذج المدن بهذا : Private Sub Form_Close() Me.Countries.RowSource = "" Me.States.RowSource = "" Me.Cities.RowSource = "" If IsLoaded("frmDayTimes") Then Forms("frmDayTimes").Visible = True Call Forms("frmDayTimes").Form_Load End If End Sub تحياتي .