PDA

View Full Version : تعداد ارقام در تكس باكس


mahdytaherian
دوشنبه 16 بهمن 1391, 21:15 عصر
با سلام
در نمونه زير چطور ميشه تعداد ارقام ثبت شده در يك تكس باكس رو در تكس باكس ديگه اي نمايش داد مثلا : "1125486652" تكس باكس عدد 10 را نمايش دهد
با تشكر
amirkazem
دوشنبه 16 بهمن 1391, 23:17 عصر
دوست عزیزدررویدادکلیک دکمه این کدرابنویس.
Me.Text2.Value = Me.Text0.Value
البته فایل شمارواصلاح کردم می تونیدمشاهده کنید


99574
amirkazem
دوشنبه 16 بهمن 1391, 23:19 عصر
معذرت ظاهراًسوال شماراخوب متوجه نشده بودم.شماتعدادارقام رامی خواستیدولی من جواب دیگه ای بهتون دادم.
iebu12
سه شنبه 17 بهمن 1391, 07:51 صبح
با سلام
با استفاده از یک ماژول ساده تعداد ارقام رو بدست آوردم. البته کامل نیست و خیلی جای کار داره.
Abbas Amiri
سه شنبه 17 بهمن 1391, 18:17 عصر
از روش زیر هم میشود استفاده کرد


NumberDigits = Len(Abs(Num))
mahdytaherian
سه شنبه 17 بهمن 1391, 21:17 عصر
با تشكر از دوستان :

جناب آقاي اميري كدرا نمي دانم كجا وارد كنم لطفا در ننمونه اعمال كنيد متشكرم
Abbas Amiri
سه شنبه 17 بهمن 1391, 22:54 عصر
با تشكر از دوستان :

جناب آقاي اميري كدرا نمي دانم كجا وارد كنم لطفا در ننمونه اعمال كنيد متشكرم

در خصوصیت Record Source تکست باکس Text2بنویسید


=IIf(Len([Text0].[Text]);Len(Abs([Text0].[Text]));0)


بعد از اینکه ازکنترل Text0 خارج شدید تعداد ارقام نمایش داده میشوند . برای نمایش همزمان اعداد و تعداد ارقام در رویداد Text0_Change بنویسید


Private Sub Text0_Change()
Text2.Requery
End Sub