[iisys]

(16-11-16, 10:44 PM)السرور كتب : اخوي، ما علاقة التايمر، انت ما وضحت غير انك تريد التنسيق بهذا الشكل 123،456.99

وبعدين ايه حكاية قياسي اللي بتذكرها كل شوي؟

اخي الكريم


جربت التايمر لكوني لااعلم اين نوضع الكود


أما حكاية ( قياسي ) فهو أحد أنواع تنسيق الرقم كما تعلمته سابقا في أكسس وغيره ( قياسي وثابت وعام  الخ)  وكل نسق يختلف عن الثاني
والقياس هو موضع سؤالي .
 
باختصار أود إذا أدخلت رقم 1234567.99 في TEXT معين يظهر بهذا النسق 1.234.567.99 وهذا نسق قياسي
 
شاكر ومقدرا للجميع

وعذا على الاطاله

[السرور]

بس كدا ما راح تقدر تتعامل معاه على انه رقم بسبب هذا التنسيق

التنسيق هذا يستخدم دائما عند عرض البيانات فقط يعني في Label مثلا وليس في أدواة خاصة بالتحرير

---

او عند الطباعة ايضا

[عبد العزيز البسكري]

؟؟؟؟؟؟؟؟؟؟؟؟؟

[iisys]

شاكر ومقدر لك استاذي الكريم امير


 مثال جميل جدا تشكر عليه


الغريبة ان نسق الرقم القياسي في اكسس سهل جدا أما في VB6 فلا 



تحياتي للجميع

[sendbad100]

السلام عليكم 

استخم الكود التالي

كود :

Private Sub Text1_LostFocus()

Text1.Text = Format(Val(Text1.Text), "Standard")

End Sub

[عبد العزيز البسكري]

؟؟؟؟؟؟؟؟؟؟

[iisys]

شكرا لك اخي [b]sendbad100[/b] 


فعلا  يظهر في الـTEXT النسق الصحيح وعند حفظة واسترجاع سجله يعود الرقم كما كان من غير نسق.

[ahmedabdelaliem]

السلام عليكم ورحمة الله وبركاته

PHP كود :

Private Sub Form_Load()
Text1.Text = Format(Text1.Text, "0,##0.00")
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.Text = Format(Text1.Text, "0,##0.00")
End If
End Sub

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "0,##0.00")
End Sub 


اخي بهذه الطريقة تستطيع تنسيق التكست وبخصوص حدث Text1_KeyDown مفعل مع الضغط على زر Enter لكي يتم التنسيق بعد الكتابة و حدث Text1_LostFocus عندما ترك التكست الى اي كنترول اخر

بالتوفيق

[iisys]

اخي [b]ahmedabdelaliem[/b]

عند تعبأة الـTEXT بالرقم في بداية اضافة السجل يظهر التنسيق المطلوب تمام ( 1.250.22)

وعند استعادة السجل لغرض عرضه يختفي التنسيق / اي غيرثابت التنسيق المطلوب( 1250.22)

[sendbad100]

(17-11-16, 12:21 AM)iisys كتب : شكرا لك اخي [b]sendbad100[/b] 


فعلا  يظهر في الـTEXT النسق الصحيح وعند حفظة واسترجاع سجله يعود الرقم كما كان من غير نسق.

اضف هذا الكود   بعد اجراء  الاسترجاع 

كود :

Text1.Text = Format(Val(Text1.Text), "Standard")

او قم بحفظ الرقم كنص وليس كرقم في قاعدة البينات