هذا الكود من برنامج بالاكسل > > سويت نفس البرنامج بالاكسس لكن حاولت اكتب نفس وضيفة الكود . . لكن لم اقدر افسر كود الاكسل . . ياليت احد يكتبه لنا بصيغة الاكسس . . مشكورين
=RATE(L9;-L13;L6-L7)*N9
محبكم
ابو باسل
كيف اكتب هذا الكود بالاكسس (كود من اكسل)
السلام عليكم ورحمة الله وبركاته
أخي الكريم .. لنفرض أن عندك في النموذج مربع نص إسمه Result وتريد أن تعرض النتيجة فيه ... فضع الكود التالي في حدث الدخول لعنصر التحكم مثلا أو عند النقر على زر أمر ما
Me!Result = Rate(Me!L9, -Me!L13, Me!L6) * 12
حيث أن L9 هو مربع نص لإدخال عدد الأشهر ... و L13 هو مربع نص لإدخال القسط الشهري ... و L6 هو إجمالي مبلغ التمويل ... ونضرب ناتج الدالة بـ 12 ليعطينا النسبة السنوية للتمويل
وغير خاصية تنسيق مربع النص Result إلى "بالمائة" ليظهر كذلك .. أو إضرب نتيجة المعادلة السابقة بمئة لتحصل على النسبة
وبالتوفيق
تم تعديل هذه المشاركة بواسطة koao في 24 يناير 2010 في 01:32
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
.
الف . . الف . . شكر اخوي koao على سرعة الرد والاستجابة . .
الكود ضبط 100 % في حدث عند التركيز او عند فقدان التركيز. . او في حدث عند النقر لزر امر . . وهكذا
لكن المشكلة عندي اني اريد الحقل يحسب لي المعدل بمجرد فتح النموذج ( لان النموذج لا يتم ادخال اي بيانات فيه بل هو نتيجة استعلام )
ملاحظة / وضعت الكود في حدث عند الفتح وعند التحميل وعند التركيز للنموذج . . لكن يعطيني رسالة خطأ
لعل الامر واضح .
محبكم
ابو باسل
تم تعديل هذه المشاركة بواسطة ابو باسل في 23 يناير 2010 في 21:19
السلام عليكم ورحمة الله وبركاته
أخي الكريم ... لعمل إستعلام إعمل مثل مافي الصورة التالية
وتلاحظ النتيجة واضحة
والكود المستخدم هو التالي
Result : Round((Rate([L9],-[L13],[L6])*12)*100,2)
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد