أبو هادي

السلام عليكم الصراحة أخ الفيلسوف111 أن هذا أحلى وأظرف طلب أراه أخي الفاضل هذه ملفات النظام وهي لحفظ كل كائنات قاعدة البيانات التي تصممها . ولو سمحوا لك بحذفها لدمرت قاعدة البيانات وأصبح مجرد ملف يحمل إسما ولكنه لا يصلح لشيء يذكر . على كل حال يمكنك إخفاء هذه الجداول عن طريق : Tools Option View ثم إزالة علامة الصح من : System objects OK تحياتي .

السلام عليكم مرفق مثال لإجابة الطلب الثاني . أما الأول فأنا ليس لي في الألوان والزخارف والإطارات وما شابه .. أرجو المعذرة . تحياتي . SeqCheck.rar

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

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

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

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

السلام عليكم ويمكن كذلك ضرب الوقت في 24 لتحويله من نوع وقت إلى نوع رقم . طبعا عندما نريد أن نخرج الفرق بشكل تاريخ حسب النظام يمكننا أن نستخدم دالة Format كالتالي : Format(Time2 - Time1,"hh:mm:ss") ولكن المشكلة هنا لن يتمكن المستخدم من الحصول على أي نتيجة تزيد على 24 ساعة حيث أن أعلى قيمة بالنسبة للوقت هي 24 ، بمعنى لو كانت نتيجة جمع وقتين (وهذا ما طلبته السائلة) 25 ساعة مثلا فسوف تكون النتيجة 01:00:00 أي ساعة واحدة ، والمطلوب أن تكون النتيجة كما هي . لاحظوا أنني أتكلم عن نوع وقت وليس تاريخ طويل أي تاريخ ووقت معا . لقد نبهني أخي أمجد إلى استخدام دالة DateDiff للحصول على نتائج الطرح بالساعات أو الدقائق أو الثواني ، وهي فعلا تختصر الحصول على النتيجة مقارنة بما أقوم به أنا في الأمثلة المرفقة لهذه المواضيع بضرب الوقت في 24 . لقد قمت وزملائي الكرام بتصميم كل دوال التاريخ والوقت لتقويم أم القرى ودالة التنسيق Format وهي ستوضح لأخي أمجد أنه بالإمكان الوصول "لروما" من طرق عدة ولا يعني أن نقيد حركتنا ونتقوقع بوجود دالة معينة في اللغة . وبكل تأكيد أن الدوال الداخلية built-in ستكون أسرع من الدوال المكتوبة بواسطة المبرمج . وشكرا للأخ mm11 لمساهمته الكريمة ولأخي أمجد لتنبيهي بما يتصل بهذا الموضوع . تحياتي .

السلام عليكم قاعدة البيانات Pray11.mdb البلد Antaretica الإجراء Edit الحقل TimeZone يبدل إلى أي قيمة أخرى في النسخة الأخيرة : - لا داعي لفحص Ending مع Starting حيث بعض البلدان تبدأ بالشهور الأخيرة من السنة وتنتهي بالشهور الأولى من السنة التالية . - عند الوقوف على تسمية LableCountryOrder وطلب القائمة يعطي رسالة خطأ . - جدول التوقيت الصيفي يحتاج إلى تعديل النوع لكل الحقول ما عدا الحقل المفتاح . تحياتي .

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

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

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

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

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

السلام عليكم أخي أبو سليمان .. مطلوب إظهار خطي الطول والعرض وفارق التوقيت في نموذجك في مهمة جدا . راجع أوقات الصلاة لهذه المدينة : المدينة DumontDUrville - Dumont-dUrville Base Terre Adelie البلد Antarctica وقارنها بنتيجة Form1 بعد تعديل المعطيات كلها (خطي الطول والعرض وفارق التوقيت ودرجتي الفجر والعشاء) . لا زلت في إجراءات الفحص . تحياتي .

السلام عليكم ملاحظات لأخي خضر الرجبي : - قائمة الإضافة والتعديل والعرض تظهر خارج حدود صناديق البلدان والمدن . - عند التبديل بين العشري والوقت واختيار الوقت يجب حذف علامة الناقص . - لا داعي لإضافة سجلات للدول التي لا تحتوي على توقيت صيفي . - صناديق التوقيت الصيفي للتعديل لا تتناسب مع الجدول وما نحتاجه هو : صندوقين بأيام الأسبوع لـ اليوم البداية واليوم النهاية . صندوقين لتحديد بداية ونهاية الشهر يحتوي على First,Second,Third,Last . صندوقين بأسماء الأشهر للشهر البداية والشهر النهاية . لا زلت في إجراءات الفحص . تحياتي .

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

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

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

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

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

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

السلام عليكم أخي خضر الرجبي مع التحية : دالة DMax مع الـ Loop المطلوب ودالة فحص أخرى : Function checkid() As Long Dim formid As Long, Tblmax As Long formid = Me.id Tblmax = Nz(DMax("[id]", "names")) If formid <= Tblmax Then checkid = Tblmax + 1 Else checkid = formid End If End Function Sub GetNewID() Dim LastID As Long, NewID As Long On Error Resume Next If Nz(Me!name) = "" Then MsgBox "you must Enter a name" Me!name.SetFocus Exit Sub End If LastID = Me.id Do Err.Clear If Me.NewRecord Then Me.id = checkid() NewID = Me.id End If DoCmd.GoToRecord , , acNewRec Loop Until Err.Number <> 2105 If NewID > 0 And NewID <> LastID Then MsgBox "The new ID is " & NewID End Sub أخي رضوان مع التحية : مع الكلمة التي بحثت عنها لن تحصل على السعودية بأي حال من الأحوال لأن بها خطأ إملائي . تحياتي .

السلام عليكم للأخ أبو سليمان مع التحية : - "CM" تعني سنتيمتر وعند إزالتها سوف تتأثر القياس بوحدة القياس الإفتراضية في الإعدادات فقد تكون بالبوصة . على كل حال سأؤجل فحصي للنتيجة لاحقا . - كنت أود أن أقول عدم إغفال موضوع الطريقة الإفتراضية . - بدل الدالة بهذه : Function myArcCos(Cosine) If Abs(Cosine) < 0.999999 Then myArcCos = 90 - 57.29578 * Atn(Cosine / Sqr(1 - Cosine * Cosine)) Else myArcCos = 90 - 90 * Sgn(Cosine) End If End Function وضع هذه في بداية دالة Per2Min : If InTime <= 0 Then Per2Min = "00:00:00" Exit Function End If وهذه الدول لا يصلح معها احتساب الفجر بالدرجة بل باستخدام فارق ثابت من الدقائق تسبق الشروق . - أي دالة تنسيق التاريخ تقصد ؟ تحياتي .

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

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