الكود:

Me.Text1.Text = Format(Me.Text1.Text, "#####")


الكود:

Me.Text1.Text = Format(Me.Text1.Text, "#####.##")


الكود:

Me.Text1.Text = Format(Me.Text1.Text, "€###")


end.sub كتب:أن تمنع شخص من كتابة حرف معين أعتقد أنها صعبة لكن يمكن أستخدام الدالة Format لتنسيق القيمة المدخلة فى مربع النص كما تريد

فمثلا أذا اردت أن تكون القيمة رقمية فقط بدون أى علامات يمكنك استخدام الصغية التالية :

الكود:

Me.Text1.Text = Format(Me.Text1.Text, "#####")


أما اذا اردت أن تكون القيمة المدخلة رقمية مع وجود علامة عشرية يمكنك استخدام الكود التالى :

الكود:

Me.Text1.Text = Format(Me.Text1.Text, "#####.##")


أما اذا اردت ان تكون القيمة المدخلة تحتوى على بعض الكلمات مع الارقام وليكن علامة اليورو € بدلا من الدولار  فتكون على النحو التالى :

الكود:

Me.Text1.Text = Format(Me.Text1.Text, "€###")


وعلى هذا المنوال يمكنك وضع اى علامة أو كلمة أو ارقام بداخل مربع hod hgu.d.النص