پراپرتی Format و استفاده در رویداد Change کنترل TextBox

کد زیر که از فروم خارجی سال 2008 استخراج شده را تست و کاربردش  در نظرات را قید نمائید ( فقط ورود اعداد در تکست باکس مجاز باشد ... Input Mask را تنظیم نمائید ) 

Private Sub Text1_Change()
    Text1 = Format(Text1, "#,###")
    Text1.SelStart = Len(Text1.Text)
End Sub

فرمت های مرسوم برای تایپ Number و Currency

که می تواند یک تا چهار Section داشته باشد و با سمی کالن از هم جدا میشوند. هر قسمت شامل فرمت خاص برای نوعی از عدد است.

قسمت اول برای اعداد مثبت

قسمت دوم برای اعداد منفی

قسمت سوم برای مقادیر صفر

قسمت چهارم برای مقادیر Null

استفاده از سنبل های زیر برای هر نوع داده در Custom Formats : 

Space : فضاهای خالی را بعنوان کارکتر واقعی نشان میدهد

"ABC" : نمایش داخل کوتیشن

!                   : چپ چین کردن 

*                  : پر کردن فضای موجود با کاراکتر بعدی

\                  : نمایش کاراکتر بعدی بعنوان کاراکتر واقعی   .شما می توانید همچنین کاراکترهای واقعی را با قراردادن  علائم کوتیشن اطراف آنها مشاهده نمائید.

[ Color ]   : دیتای فرمت شده را رنگی نمایش میدهد ،  رنگ بین براکت باشد!!!  رنگ های موجود 

Black , Blue , Green , Cyan , Red , Magneta , Yellow , White

تابع زیر در رویداد LostFocus تکست باکس Unbound به نام TaxRefund در صورتیکه مقداربعداز خروج از تکست باکس که ذخیره میشود عددی باشد (  با تابع IsNumeric چک می کند ) با فرمت Currency و اگر نباشد با فرمت Capital یا حروف بزرگ نمایش میدهد.( علامت بزرگتر)

Function FormatValue() As Integer 

    Dim varEnteredValue As Variant 

    varEnteredValue = Forms!Survey!TaxRefund.Value 

    If IsNumeric(varEnteredValue) = True Then 

        Forms!Survey!TaxRefund.Format = "Currency" 

    Else 

        Forms!Survey!TaxRefund.Format = ">" 

    End If 

End Function

\   :  مانند محصور کردن کاراکتر با علامت دابل کوتیشن است 

<  : تمام تکست UpperCase میشود ( حروف بزرگ )

> : تمام تکست LowerCase میشود ( حروف کوچک )

Custom Formats برای فیلدهای نوع تکست می تواند تا دو سکشن داشته باشد.هر سکشن حاوی فرمت خاصی برای داده متفاوت در یک فیلد می باشد.( دو سکشن با  سمی کالن از هم جدا میشوند )

سکشن اول برای فیلدهای حاوی تکست

سکشن دوم برای فیلدهایی با رشته های Zero-Length و Null Values ( نمایش تکست مورد نظر در صورتیکه فیلد دارای طول صفر باشد یا Null )

For example, if you have a text boxcontrol in which you want the word "None" to appear when there is no string in the field, you could type the custom format @;"None" as the control's Format propert setting. The @ symbol in the first section causes the text from the field to be displayed and the second section causes the word "None" to appear when there is a zero-length string or Null value in the field.