بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ارغب في جمع قيمة رقمية ( لها تنسيق معين) مع قيمة نصية.
المشكلة:
انه عند جمع تلك القيمتين معا، تفقد القيمة الرقمية التنسيق المخصص لها !!!!!
الطلب:
الرجاء تعديل المثال المرفق، يحيث يضمن عدم فقدان النسيق المخصص للقيمة الرقمية
والف شكر
تم تعديل هذه المشاركة بواسطة kafi في 25 ديسمبر 2012 في 14:33
السلام عليكم ورحمة الله وبركاته
تفضل أخي التعديل المطلوب
Private Sub Form_Open(Cancel As Integer) Me.X1.Format = "#,###.00" Me.X1.DecimalPlaces = 2 Me.X2.Format = "#,###" Me.X2.DecimalPlaces = 0 Me.z1 = Format(Me.X1, "#,###.00") & " / " & Me.y1 Me.z2 = Format(Me.X2, "#,###.00") & " / " & Me.y2 End Sub
وسلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
الف الف شكر
اخي اياد بيك
على سرعة ودقة الاجابة
بارك الله فيك
السلام عليكم
الاخ الكريم اياد بيك جزاك الله خير
لكي تحافظ على نفس التنسيق
بالنسبة للنص الثاني بعدم وجود منزلتين عشريتيين
وكما عرفتها في الكود عدد المراتب العشرية يساوي صفر
رجعت في الكود اضفتها
لاحظ الصورة
تم تعديل هذه المشاركة بواسطة سلامنا لكم في 25 ديسمبر 2012 في 15:40
بارك الله بك أخي الكريم ... لا تنسانا من التقييم +1 وترشيح الإجابة
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
شكرا للاخوة اياد بيك - سلامنا لكم
تم والحمد لله الاجابة بشكل واضح وصريح ... حول السؤال المطروح.. وذلك عن طريق مثال بسيط قمت بطرحه... وكان الجواب فعال مئة بالمائة.
قمت بوضع الجواب في برنامجي ...
Me.z1 = Format(Me.as, "#,###.00") & " / " & Me.dert
ولكنني لم استطع الحصول على الجواب الصحيح...رغم انني وضعت ذات الكود...
تم تجريب وضع ذات الكود في عدة مواضع ( حدث الفتح __ حدث التحميل _ حدث الحالي... ... الخ) ولكن دون جدوى.
ارجو المساعدة في تعديل تموضع الكود .. من اجل النتيجة المرجوة في كشف الزبون
والف الف شكر
تم تعديل هذه المشاركة بواسطة kafi في 25 ديسمبر 2012 في 23:49
السلام عليكم
الاخ كافي
عملت حليين الاول وضعت العبارة في مربع النص نفسة بس بدون التنسيق لانة لم يقبل مني التنسيق
والاخر وضعت في حدث عند النقر على مربع النص نفسة ولكن بالتنسيق
اذا في حلول اخرى للاعضاء يزودنا بها
تم تعديل هذه المشاركة بواسطة سلامنا لكم في 26 ديسمبر 2012 في 01:15
شكرا اخي / سلامنا لكم /
على تواصلك واجابتك
ولكن ماتفضلت به ...(بعيد تماما عن ما ارغب به)
1- المقترح الاول: يفقد الرقم التنسيق الذي يجب ان يتحلى به... كما ترى.
2- المقترح الثاني : ان يتم الضغط على المربع من اجل اظهار النتيجة، غير منطقي من الناحية العملية البرمجية
الف شكر مجددا على مابذلته من جهد... ففعلا الموضوع يبدو بسيط للوهلة الاولى ... ولكن كما ترى .. محاولات مني ومنك ومن الاخ / اياد بيك ... ولكن دون الوصول الى النتيجة المرجوة.
ارجو ممن لديه الحل المساعدة نظرا للاهمية
والف شكر
تم تعديل هذه المشاركة بواسطة kafi في 26 ديسمبر 2012 في 01:28
السلام عليكم
الاخ الكافي
انفر على مربع النص نفسة Z وستحصل على التنسيق
تم تحديث المشاركة السابقة
تم تعديل هذه المشاركة بواسطة سلامنا لكم في 26 ديسمبر 2012 في 02:06
السلام عليكم
اخي الكريم / سلامنا لكم
اقتباسانفر على مربع النص نفسة Z وستحصل على التنسيق
ليس من المعقول ان نطلب من المستثمر ان يضغط على الحقل لكي يرى الناتج...
اريد ان تظهر له النتيجة مباشرة، منسقة..
الف شكر على تواصلك
واكرر ممن لديه الحل المساعدة
والف شكر
السلام عليكم ورحمة الله وبركاته
أخي الكريم Kafi بارك الله به
نصيحة لوجه الله ابتعد قدر الإمكان عن إجراء أحداث ترتبط بالنموذج (عند الفتح ، عند التحميل ......)
وخصوصاً إذا تمكنت من الوصول إلى الحلول داخل نموذجك ذاته
فمثلاً هنا يمكننا عمل ذلك دون الدخول في متاهات عند الفتح وقبل التحديث وبعد التحديث وعند الفتح وعند فقدان التركيز وباقي الأحداث
وسلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
الف شكر اخي / اياد بيك
عل الحل المقدم
ولكن
أ
اقتباسخي الكريم Kafi بارك الله بهنصيحة لوجه الله ابتعد قدر الإمكان عن إجراء أحداث ترتبط بالنموذج (عند الفتح ، عند التحميل ......)
وخصوصاً إذا تمكنت من الوصول إلى الحلول داخل نموذجك ذاته
كما تلاحظ، اخي الكريم، ان الرقم لديه احتمالين، اما ان يكون مع فواصل عشرية او بدون، وذلك يعتمد على فحص قيمة المتغير Digits الموجود في جدول Primary
قمت بتعديل نص الكود الذي ادخلته ليصبح
=IIf([Me].[Check_Digtis]=1;Format([as];"#,###.00") & " / " & [dert];Format([as];"#,###") & " / " & [dert])
ولكن لم تنجح المحاولة..
طبعا، وجدت حلا اخر، يعتمد على وضع القيمة قي حقلين مختلفين، ويتم اظهار احدهما واخفاء الاخر .... طبعا الحل نجح مائة بالمائة، واحببت ان اضعه كي يستفيد منه الاخوة اعضاء المنتدى.
سؤالي، من باب العلم، كيف يمكن تعديل الكود السابق المعتمد على التعليمة IIf اذا امكن ؟
والف الف شكر
السلام عليكم
لاحقا للسؤال المطروح عن سبب الخطاً في استخدام التعليمة
iiF
فقد تنبهت الى الخطأ ، اثناء التدقيق في طرح السؤال
=IIf([Check_Digtis]=1;Format([as];"#,###.00") & " / " & [dert];Format([as];"#,###") & " / " & [dert])
ارفق الحل النهائي....حتي يستفيد منه اخوتي في المنتدى
وبذلك يكون قد انتهى السؤال ... مع الاجابة عليه
والف الف شكر لك من ساهم ومن حاول ايجاد الحل.
والسلام عليكم