View Full Version : تعداد ارقام در تكس باكس
mahdytaherian
دوشنبه 16 بهمن 1391, 22:15 عصر
با سلام
در نمونه زير چطور ميشه تعداد ارقام ثبت شده در يك تكس باكس رو در تكس باكس ديگه اي نمايش داد مثلا : "1125486652" تكس باكس عدد 10 را نمايش دهد
با تشكر
amirkazem
سه شنبه 17 بهمن 1391, 00:17 صبح
دوست عزیزدررویدادکلیک دکمه این کدرابنویس.
Me.Text2.Value = Me.Text0.Value
البته فایل شمارواصلاح کردم می تونیدمشاهده کنید
99574
amirkazem
سه شنبه 17 بهمن 1391, 00:19 صبح
معذرت ظاهراًسوال شماراخوب متوجه نشده بودم.شماتعدادارقام رامی خواستیدولی من جواب دیگه ای بهتون دادم.
iebu12
سه شنبه 17 بهمن 1391, 08:51 صبح
با سلام
با استفاده از یک ماژول ساده تعداد ارقام رو بدست آوردم. البته کامل نیست و خیلی جای کار داره.
Abbas Amiri
سه شنبه 17 بهمن 1391, 19:17 عصر
از روش زیر هم میشود استفاده کرد
NumberDigits = Len(Abs(Num))
mahdytaherian
سه شنبه 17 بهمن 1391, 22:17 عصر
با تشكر از دوستان :
جناب آقاي اميري كدرا نمي دانم كجا وارد كنم لطفا در ننمونه اعمال كنيد متشكرم
Abbas Amiri
سه شنبه 17 بهمن 1391, 23:54 عصر
با تشكر از دوستان :
جناب آقاي اميري كدرا نمي دانم كجا وارد كنم لطفا در ننمونه اعمال كنيد متشكرم
در خصوصیت Record Source تکست باکس Text2بنویسید
=IIf(Len([Text0].[Text]);Len(Abs([Text0].[Text]));0)
بعد از اینکه ازکنترل Text0 خارج شدید تعداد ارقام نمایش داده میشوند . برای نمایش همزمان اعداد و تعداد ارقام در رویداد Text0_Change بنویسید
Private Sub Text0_Change()
Text2.Requery
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.