التحكم بطول النص أثناء الإدخال

**أبو هادي** · سبتمبر 21, 2003

السلام عليكم

بافتراض أن الـ text box إسمه Text1 نضع في حدث عند التبديل :

Private Sub Text1_Change()

  If Len(Me.Text1.Text) > 6 Then

    SendKeys "{BS}"

    Beep

  End If

End Sub

أو يمكن الكتابة في الـ Validation Rule كالتالي :

Len([Text1])<=6

تحياتي .

تم تعديل سبتمبر 21, 2003 بواسطه أبو هادي

**محمد طاهر عرفه** · سبتمبر 21, 2003

مع أول قراءة توقفت امام

SendKeys "{BS}"

و تصورت أنها خطأ :)

و بعد ذلك تذكرت أن

Backspace يمكن ارسالها بثلاث طرق فرجعتها من ملف التعليمات ، و الثلاث طرق هي :

{BACKSPACE}

{BS}

{BKSP}

و طبعا الأسهل هي ما ختارها الأخ أبو هادي

و جميل التحذير اولا بأول ، حدث عند التغيير لمربعات النص كل يوم تظهر له استخدامات جديدة :)

**عبد الله فتحي** · سبتمبر 21, 2003

Backspace يمكن ارسالها بثلاث طرق فرجعتها من ملف التعليمات ، و الثلاث طرق هي :

{BACKSPACE}

{BS}

{BKSP}

معلومة جميلة .. كنت سابقاً أستخدم الأمر:

SendKeys Chr(8)

**ashraf** · سبتمبر 21, 2003

استدراك :

حدث عند التبديل

أعتقد أنها عند التغيير .

طبعا الحقل لن يقبل أكثر من 6 حروف .

أشرف خليل

**محمد طاهر عرفه** · سبتمبر 21, 2003

هي عندي

on Change :d

و انت الأدري بالنسخة العربية :pp:

الردود الموصى بها