أبو هادي

السلام عليكم الأخ abdullah219 .. لم أرى المشكلة التي تتحدث عنها . من المفترض إذا أنت من عمل المعادلة الأولى سيسهل عليك تكملة الباقي . على كل حال أكملت لك معادلات الخدمة الأولى والثانية وقس عليهما وأكمل الباقي بنفسك . ملاحظة : ليس معنى أني عدلت على المثال أني راض عنه وعن كل ما يحتويه ، ولكني أرى أن البرمجة هي تشكيلة من الأفكار والأذواق تختلف في أشكالها وألوانها ولكن جميعها مع تفاوتها تؤدي نفس الغرض وكما يقول المثل "كل الطرق تؤدي إلى روما" ، فما عملته أنا هو مجرد ضبط للمعادلة ليس إلا ، دون المساس في فكرة المعادلة أو تغيير معالمها . تحياتي . abdullah.rar

السلام عليكم جرب هذه المعادلة لحساب القسط : =IIf([قيمة القسط]*(11-1)>[المستحق على الخدم الأولى];0;IIf([المستحق على الخدم الأولى]-([قيمة القسط]*(11-1))>=[قيمة القسط];[قيمة القسط];[المستحق على الخدم الأولى]-([قيمة القسط]*(11-1)))) علما أن رقم 11 الظاهر في المعادلة هو رقم القسط ، بمعنى أن هذه المعادلة للقسط الحادي عشر وإذا أردته للقسط التاسع مثلا بدل رقم 11 برقم 9 فقط . تحياتي .

السلام عليكم بالإضافة إلى ما تفضل به أخي السيد وبعد أذنه يكمن عمل ذلك حسب التالي : Dim CurrentRecord CurrentRecord = Me.Bookmark Me.Requery Me.Bookmark = CurrentRecord تحياتي .

السلام عليكم إبداع أخي مهند .. والمثال دروسه كثيرة وكثير منها جديدة . تحياتي .

السلام عليكم إذا أردتها عن طريق الفيجوال فهي كالتالي : = DateSerial(Year(Date1), Month(Date1) + 1, 1) - 1 تحياتي .

السلام عليكم ملف مرفق .. آمل أن يفي بالمطلوب . تحياتي . QtyOnHand.rar

السلام عليكم =INT(($E$2/$F$2)*A4) - INT(($E$2/$F$2)*(A4-1)) =INT((500/6)*4) - INT((500/6)*(4-1)) بافتراض أننا نريد حساب القسط الرابع لمبلغ قدره 500 وعدد أقساطه 6 أقساط : نطبق المعادلة التالية : مجموع مبالغ 4 أقساط بدون الكسر = ( المبلغ / عدد الأقساط ) * رقم القسط يطرح منه مجموع مبالغ 3 أقساط بدون الكسر = ( المبلغ / عدد الأقساط ) * ( رقم القسط –1 ) علما أن INT هي الدالة التي نحصل باستخدامها على المجموع بدون كسر تحياتي .

السلام عليكم ما فهمته صحيح (y) تحياتي .

السلام عليكم جرب هذا المرفق ، قد يفي بالمطلوب . تحياتي . Installments.rar

السلام عليكم في موضوعك النسبة المئوية ومشكلة كتابتها !! هناك جدولا لا يقبل أكثر من سجل واحد . :( تحياتي .

السلام عليكم جربوا الآن . تحياتي . Grades.rar

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

السلام عليكم حفظ النسبة يكون من خلال عمل جدول يحتوي على حقل النسبة ثم تجعل الـ Record Source للفورم إسم الجدول وتجعل الـ Control Source لمربع النص إسم الحقل . أما اتجاه علامة النسبة المئوية فيمكن التحكم بها عن طريق خاصية الـ Reading Order كأن تجعلها مثلا Right-To-Left . تحياتي .

السلام عليكم مرفق مثال ، ناظري الإستعلام Query2 السجل الثالث . يمكن إدخال التاريخ والوقت في هذه العملية والطريقة هي نفسها الطريقة السابقة التي قد أوضحتها مرارا عدة . تحياتي . NumToTime.rar

السلام عليكم آسف على التأخير حيث كنت في رحلة عمل . مرفق المثال بعد التعديل . تحياتي . المرفق ( عدد مرات التنزيل: 13 ) Grades.rar

السلام عليكم مثال مرفق . تحياتي . الملف المرفق ( عدد مرات التنزيل: 17 ) Percentage.rar

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

السلام عليكم يمكنك استخدام التنسيق التالي : +#,##0;-#,##0 وكما أعتقد لا يمكنك تخصيص أكثر من لون للخلية الواحدة ولكنك يمكنك استخدام لون للقيم الموجبة كالتالي : [Red]+#,##0;-#,##0 تحياتي .

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

السلام عليكم وجدت لكم هذا الكود لتكرار سجل : DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append تحياتي .

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

السلام عليكم مرفق للمطلوب . تحياتي . الملف المرفق ( عدد مرات التنزيل: 27 ) Grades.rar

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

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

السلام عليكم مرفق مثال يحتوي على دالتين أحداهما لتحويل الرقم إلى ( نص بتنسيق وقت ) والأخرى لتحويل تاريخ أو ( نص بتنسيق تاريخ ) إلى رقم . آمل أن تنتهي هذه المشكلة العويصة :d تحياتي . NumToTime.rar