كيفية الانتقال من الرقم الى الكتابة ؟؟؟

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

تحية طيبة يا أخ/ أبو سمير

سأجيب على الطلب الأول فقط لأن الطلب الثاني غير مفهوم وياريت ترفق انت مثال لتوضيح فكرتك؟!!

=================================================

اريد ان اكتب في حقل في النموذج رقم مثل 2 وبعد الخروج من الحقل يتحول تلقائي الى الثاني ، وكذلك 3 يتحول الى الثالثة وهكذا ... ويكون كذلك في التقارير وغيرها ارجو الشرح بالتفصيل وحبذا المثال ؟؟؟؟

=================================================

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

فلو فرضنا عندك حقل enum وهو رقمي وكتبت رقم 3 في الحقل لا يمكن ان يتحول الى (الثالثة) لأن الحقل رقمي ؟!! هل اصبحت الفكرة واضحة!!

طيب على الرغم من هذه الملاحظة تريد كتابة رقم 3 في حقل ويتحول الى الثالثة في نفس الحقل اذا يجب ان يكون تنسيق الحقل نصي وهذا اجباري لسير عملية التحويل بشكل صحيح.

نقوم ببناء وظيفة مهمتها تحويل الاعداد الى حروف.

أولا : نقوم بفتح وحدة نمطية جديدة ونقوم بوضع هذا الكود فيها!!

Public Function NumText(Martabah As Single) As String
If (Martabah) = 1 Then NumText = "الأول "
If (Martabah) = 2 Then NumText = "الثاني "
If (Martabah) = 3 Then NumText = "الثالثة "
If (Martabah) = 4 Then NumText = "الرابعة "
If (Martabah) = 5 Then NumText = "الخامسة "
end Function

ترجمة الكود ==========================

Public عام يتم استخدام هذا الكود في اي وحده نمطية لبرنامجك

function وظيفة التي يتم استدعائها لتقوم بعمل محدد

NumText اسم الوظيفة وتم تعريفها كنص

Martabah اسم الحقل الذي يحتوي رقم

اذا كان الحقل Martabah يساوي 1 قم بحويل العدد في الحقل المحدد الى الأول

========================================

طبعا كما هو واضح ان الترتيب لغاية الرقم 5 بإمكانك اضافة ماشئت من ارقام وتحويلاتها مثل 6 - السادسة .. الخ..

طيب كيف يتم استخدام هذه الوظيفة ؟!

يوجد في النموذج حقل -المرتبة- (الذي اذا كتبت فيه 3 يتحول الى الثالثة ) وليكن اسمه enum أقوم بوضع هذا الكود في إجراء حدث (بعد التحديث)

Dim txt As String
txt = NumText([enum])
Me.enum = txt

ترجمة هذا الكود هو====================

1- تعريف txt كنص

2- تحويل الرقم الموجود في الحقل enum الى نص حسب تعريف الوظيفة السابق / ملاحظة اذا كانت القيمة null أو رقم غير معرف يرجع null يعني لايظهر شيئ في الحقل.

3- تحديث قيمة الحقل من رقم الى نص

=============================

enum اسم الحقل الذي يتم كتابة الرقم فيه قم بتغييره الى اسم الحقل الذي عندك مع ملاحظة هامة يجب ان يكون الحقل (تنسيق نص) في الجدول الرئيسي.

وبهذا يكون قد حولت الرقم 3 او 4 الخ... الى نص وفي نفس الحقل وفي التقارير والاستعلامات بدون اضافة حقول اخرى.

ومرفق مثال للتجربة

أخوك مشكاة

Mish_NumText.rar