تغير عدد الحروف في الحقل أوتوماتيكياً

[عربي عالمي]

السلام عليكم ..

مطلوب شباب مساعدة في وضع الكود التالي أو غيره ليتم تغير عدد الحروف في الحقل أوتوماتيكياً بعد تعبئة السجل ليبدأ العدد في التناقص من 255 في المرفق مع الشكر .

 

Me.X=Len(Me.Y.Text)

عدد الحروف 13-5-1442.mdb

[husamwahab]

عليكم السلام استاذ عربي عالمي

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

عدد الحروف.rar

[عربي عالمي]

مشكووور أخي husamwahab

تمنياتي لك بالتوفيق .

[husamwahab]

بالخدمة  استاذ عربي عالمي

[ابو جودي]

فكرة كمان

Dim CountCharacter As Integer
CountCharacter = 255 - Len(MytxtBox.Text)
Me.txtCountAllCharacter = CountCharacter

 

[عربي عالمي]

مشكور أخي ابا جودى

وياليتك تطبقها على المرفق لنستفيد أكثر مع الشكر .

[ابو جودي]

13 ساعات مضت, عربي عالمي said:

مشكور أخي ابا جودى

وياليتك تطبقها على المرفق لنستفيد أكثر مع الشكر .

غالى والطلب رخيص

اتفضل 

Len Text.mdb

[عربي عالمي]

تسلم أخي أبا جودي وفقك الله .

[ابو جودي]

10 ساعات مضت, عربي عالمي said:

تسلم أخي أبا جودي وفقك الله .

الله يسلمك تحت امرك

[اسلام سيد]

2 ساعات مضت, ابا جودى said:

غالى والطلب رخيص

اتفضل 

Len Text.mdb 200 kB · 2 downloads

تسلم يا باشا ممتاز
لكنى لا اعلم ما فائدتها او احتياجها للمستخدم ، ربما للسائل غرض ما
لكن هل من تحجيم لها ، يعنى بعد 0 الصفر تظهر بالسالب