هل يمكن تحديد حجم الأحرف المدخله لمربع نص غير منضم

[عبد الله الثبيتي]

أساتذتي الأفاضل حفظكم الله

السلام عليكم

لدي نموذج أسمة enert تابع لإستعلام تحديد يوجد في هذا النموذج مربع نص غير منضم اسمه basword

هل يمكن تحديد حجم مربع النص basword بحيث لا يقبل أكثر من 8 أحرف

أرجووووو إجابتي ولكم فائق تحياتي

ثبيت عرب

تم تعديل يونيو 4, 2005 بواسطه ثبيت عرب

[امير عاطف]

مشاركة الأخ فهد الدوسري جزاه الله خير :

If Len(Me.basword.Text) > 8 Then
  Beep
  MsgBox "لا يسمح بأكثر من ثمانية أحرف فقط", , "ممنوع"
  SendKeys "{BS}"
End If

[التقني]

السلام عليكم ورحمة الله

كل الشكر للأخ امير عاطف على هذا الكود (وبالطبع الشكر موصول لصاحبه الأصلي)

بعد اذنك أخي العزيز ..

بالنسبة للكود فهو يعمل بكفاءة لكن بعد أن تعدى عدد الأحرف أكثر من ثمانية وبعد الانتقال الى الحقل الآخر تظهر الرسالة وينتقل المؤشر دون العودة الى الحقل .

الذي عملته ( بفضل الله ) هو :

وضعت الكود في حدث عند التغير

ألغيت السطر الثالث :

SendKeys "{BS}"

وأضفت بدلا منه التالي :

Me.basword.Value = "  "

Private Sub basword_Change()
If Len(Me.basword.Text) > 8 Then
 Beep
 MsgBox "لا يسمح بأكثر من ثمانية أحرف فقط", , "ممنوع"

Me.basword.Value = ""

End If

End Sub

أرجو أن تعم الفائدة للجميع

[امير عاطف]

جزاك الله خير