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

[AboSaad17]

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

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

مرفق ملف 

 

db1.rar

[مسفر]

إذا هذا ما تقصد 

تفضل 

db12.mdb

[أبو آدم]

أخي العزيز

يلزم اولا ان تغير اسم مربع النص في النموذج ليختلف عن اسم مصدر الحقل فبدل info استخدم tinfo

انشيئ مربع نص بدون مصدر Unbound باسم Text12 (مثلا ) بعنوان "عدد الاحرف المسموح به" ( ويمكن ان تجعله مخفي ) اذا شئت

خلف حدث عند التغيير On Change لمربع النص tinfo ضع الكود التالي

Me.Text12.Value = CurrentDb.TableDefs("T1").Fields("info").Size

Me.tee = Me.Text12.Value - Len([tinfo].Text)

If Me.tee = 0 Then MsgBox "No more characters allowed!"

و راقب النتائج 

شكرا

و الله من وراء القصد .....

[أبو آدم]

مرفق ملف مصور

Capture.rar

[AboSaad17]

السلام عليكم ورحمة الله 
استاذمسفر  واجهت رسالة تحذير عند تحميل الملف ربما لاني اعمل على اوفيس 2003 

استاذ أبو آدم نعم هذا هو المطلوب >>>>   مع ملاحظة انك نسيت تذكر في شرحك إضافة مربع نص باسم tee الذي يقوم بعد الحروف
 

شكرا جزيلا لكم جميعا 

[أبو آدم]

مربع النص tee موجود في التطبيق المرفق أصلا !!

[مسفر]

طيب لو وظعنا فقط في مصدرمربع النص tee 

=Len([tinfo])

سيكتب عدد الاحرف وكلما زاد حروف زاد العدد حتى يصل إلى حجم الحقل  

tinfo االي هو مربع النص للحقل info  

تم تعديل أبريل 8, 2018 بواسطه مسفر

[AboSaad17]

مرحبا اخي مسفر 

طريقة الاستاذ ابو ادم هي المطلوبة حيث يتم العد تنازليا

ومباشرة حتى الصفر 

وبطريقتك يعد تصاعديا ولا يعرض العد مباشرة الا بعد نقل المؤشر لحقل اخر 

مشكور على كل حال 🌹

[أبو آدم]

الحمد لله الذي بفضله تقضى الحاجات

[مسفر]

من ابو آدام نتعلم اكثر واكثر والحمدلله أنك وصلت لما تريد علما اني أستخدم ما وضعته لمعرفة عدد الكلمات في الرسالة النصية أثناء الارسال في برامجي فعليها تحسب التكلفة 

 

فجزا الله خير أبو ادم على ما يقدمه من علم نافع ونفعنا به وبعلمه