نقل قول نوشته شده توسط Abbas Amiri مشاهده تاپیک
درروال Change تکست باکس ازکدهای زیر استفاده کنید


Private Sub t1_Change()

Dim s As String

s = t1.Text

t1.Format = "Standard"

t1.SelStart = Len(s) + 1

End Sub
با سلام و عرض ادب خدمت استاد عزیز
باز هم مثل همیشه کوتاهترین و بهترین جواب رو شاهد هستیم...
فقط یک نکته برای سایر دوستان که حتما توجه داشته باشن باید Decimal Place فیلد مربوطه صفر باشه...
انشالله که همیشه سالم و موفق باشید...
باز هم ممنون
یا علی