السلام عليكم
الاخوة الاعزاء لدي برنامج بسيط لحساب الفواتير للمحروقات وبه حقل مبلغ وحقل تفقيط للمبلغ ولكن عندما اقوم بكتابة مبلغ مثلاً 0.506 يظهر لي فقط واحد وخمسون هللة وانا اريده أن يقرأه " خمسمائة وستة هللات " فهل هناك طريقة لابطال الجبر في التفقيط ؟
وشكرا لكم
ارفق مثال ليتم التعديل على الوحدة النمطية المستخدمة فى التفقيط
هذا هو المثال وارجوا التعديل فيه
كما أن لي طلبين آخرين إن أمكن
1- ارغب في عندما اقوم بكتابة تاريخ هجري في حقل التاريخ مثلاً 1/2/1431هـ يظهر لي في خانة الشهر تلقائياً " شهر صفر " وهكذا على بقية الأشهر .
2- هل هناك حل لمشكلة كتابة يوم 30 في الاشهر الهجرية حيث انني عند كتابة مثلاً 30/2/1431 يظهر لي 1/3/1431هـ .
وشكراً لك
اخي الكريم لايمكن ذلك لأنه وببساطه الريال السعودي يحتوي على 100 هلله فقط .. أي انك عندما تقول 305 هللات .. أي انك تقصد 3 ريالات وخمس هللات ان لم أكن مخطئاً .
المشكلة التي ستواجهها .. حينها يكون عندك رقما مثل :
134.05 هذا الرقم لو أتينا تحويله ( تفقيطه ) فأنه من المفترض ان يكون مائة وأربعه وثلاثون ريالا وخمس هللات .
ولكن في حالة اعتمادك على قراءة 3 ارقام بعد الفاصلة العشرية . سوف يتم قراءته كالتالي :
مائة وأربعه وثلاثون ريالاُ وخمسون هلله .
عموما اذا كنت تود عمل ذلك على كل حال فيمكنك ذلك من خلال تمرير عدد الخانات العشرية المطلوب تفقيطها بعد الفاصلة العشرية في الاستعلام المسمى
Invoice_est
ستجد حقل يستدعي دالة التفقيط بتمرير القيم والتي هي كالتالي :
B_Only([Expr5];1;0;2;"ريال سعودي";"ريالات";0;"هللة";"هللات";4)
يمكنك استبدال الرقم 2 بالرقم 3 لقراءة 3 ارقام عشرية في الكود أعلاه .
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
omani كتب:اخي الكريم لايمكن ذلك لأنه وببساطه الريال السعودي يحتوي على 100 هلله فقط .. أي انك عندما تقول 305 هللات .. أي انك تقصد 3 ريالات وخمس هللات ان لم أكن مخطئاً .
المشكلة التي ستواجهها .. حينها يكون عندك رقما مثل :
134.05 هذا الرقم لو أتينا تحويله ( تفقيطه ) فأنه من المفترض ان يكون مائة وأربعه وثلاثون ريالا وخمس هللات .
ولكن في حالة اعتمادك على قراءة 3 ارقام بعد الفاصلة العشرية . سوف يتم قراءته كالتالي :
مائة وأربعه وثلاثون ريالاُ وخمسون هلله .
عموما اذا كنت تود عمل ذلك على كل حال فيمكنك ذلك من خلال تمرير عدد الخانات العشرية المطلوب تفقيطها بعد الفاصلة العشرية في الاستعلام المسمى
Invoice_est
ستجد حقل يستدعي دالة التفقيط بتمرير القيم والتي هي كالتالي :
B_Only([Expr5];1;0;2;"ريال سعودي";"ريالات";0;"هللة";"هللات";4)يمكنك استبدال الرقم 2 بالرقم 3 لقراءة 3 ارقام عشرية في الكود أعلاه .
تحياتي
فعلا معك حق
بارك الله فيك
تفضل اخى
هذا ما طلبت
و لكن اعتقد ان طلبك غير منطقى و لن يعطى النتيجة الصحيحة
فالرقم هو 50 هللة و انت تريد ان يظهر 500 هللة
بالنسبة لباقى المطلوب بخصوص التاريخ
فسأحاول فيه ان شاء الله
افادك الاخ omani
تم تعديل هذه المشاركة بواسطة mrnooo2000 في 3 فبراير 2010 في 15:44
بارك الله فيك
هل يمكنك التعديل على حقل عرض اسم الشهر العربي بحيث لا يعتمد على تاريخ الجهاز بل يعتمد على حقل نص اقوم بادخاله بنفسي
كلك ذوق أخي
بارك الله فيك
لاحظت عندما ادخل التاريخ يقوم بقراءة الشهر ولكن عند تسجيل سجل جديد أو اغلاق النموذج وفتحه مرة اخرى يختفي اسم الشهر .
اريد اذا ادخلت التاريخ في سجل يقرأ لي الشهر مباشرة ويتم تثبيت قيمة الحقل لكل سجل اقوم بادخاله حسب الشهر .
المرفقات رائعه لكن اريد تجاوز هذه المشكلة المبينه اعلاه .
وجزاك الله خير
تم تعديل هذه المشاركة بواسطة ali saud في 3 فبراير 2010 في 18:42
ali saud كتب:كلك ذوق أخي
بارك الله فيك
لاحظت عندما ادخل التاريخ يقوم بقراءة الشهر ولكن عند تسجيل سجل جديد أو اغلاق النموذج وفتحه مرة اخرى يختفي اسم الشهر .
اريد اذا ادخلت التاريخ في سجل يقرأ لي الشهر مباشرة ويتم تثبيت قيمة الحقل لكل سجل اقوم بادخاله حسب الشهر .
المرفقات رائعه لكن اريد تجاوز هذه المشكلة المبينه اعلاه .
وجزاك الله خير
هذا شىء طبيعى جدا
لانمربع النص غبر منضم
اربط مربع اللنص بحقل فى الجدول
بارك الله فيك
قمت بربط الحقل وجعلته منضم ولكن نفس المشكلة اذا ادخلت التاريخ 30/02/1431 يظهر لي شهر ربيع الاول وليس صفر وانا اريد فقط ان يعتمد في عرضه لاسم الشهر هو رقم الشهر ولا يعتمد على التقويم .
ali saud كتب:بارك الله فيك
قمت بربط الحقل وجعلته منضم ولكن نفس المشكلة اذا ادخلت التاريخ 30/02/1431 يظهر لي شهر ربيع الاول وليس صفر وانا اريد فقط ان يعتمد في عرضه لاسم الشهر هو رقم الشهر ولا يعتمد على التقويم .
ارفق كودك لفحصه
بعد اذن الأخ mrnooooo2000
يمكنك استخدام الكود التالي في حدث بعد التحديث
Dim m As Integer m = Val(Mid([txt], 4, 2)) mnth = Choose(m, "محرم", "صفر", "ربيع الأول", "ربيع الثاني", "جمادي الأولى", "جمادي الأخر", "رجب", "شعبان", "رمضان", "شوال", "ذو القعدة", "ذو الحجة")
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
بارك الله فيك أخي عماني
ممتاز جدا هذا هو المطلوب
شكرا لك
هل يمكن أن يكون التنسيق هكذا 1431/02/30هـ ويتم قرائته ؟
حاولت ولكن بعد ماغيرت التنسيق يقرأ الشهر خطأ .
اولا احب اشكر الاخ عمانى فطريقته افضل بكثير
ثانيا
بالنسبة للكود القديم فبه تعديل بسيط
xx = Right(xx, 5)
If xx = "02/30" Then
ثانيا بالمرفق طلبك الاخير
بارك الله فيكم جميعاً
هذا هو المطلوب