التحكم بعدد الحروف داخل مربع نص

[bassum]

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

أولا أشكر الإخوة القائمين على هذا المنتدى

ثانيا شكر خاص للأخ مهند عبادي ومحمد طاهر و بقية الزملاء

السؤال يقول

عندي مربع نص على نموذج مرتبط بحقل في جدول نوع البيانات في الحقل مذكرة

وأرغب أن لا تزيد الكتابة عن حجم مربع النص – يعني يكتب المستخدم بهذا المربع حتى يمتلئ ولا يستطيع الزيادة ، المشكلة أنك مهما تكتب بهذا المربع يقبل خاصة أنه مرتبط بحقل من نوع مذكرة والأحرف التي أرغب بأن يحتويها تقريبا 1200 حرف المشكلة الثانية أني أريد أن أكتب بهذا المربع كما أريد يعني اطمر سطر واكتب سطر أو أضع نقاط وهكذا المهم لا يتعدى حجم المربع فما هو الحل ..

-------------

في البداية كنت أعتقد أن السؤال بسيط ولكني لم أفلح في الحصول على الإجابة

[bassum]

الآن تأكدت من صعوبة الاجابه - كنت أعتقد أني سوف أحصل عى الاجابة خلال ساعات

لكن على ما أضن الأجابة ممكنة على العموم لم أيأس من الاجابة

[محمد طاهر عرفه]

لنفرض أن مربع النص اسمه t1

ضع فى حدث قبل التحديث لمربع النص الكود التالي

Private Sub t1_BeforeUpdate(Cancel As Integer)
If Len(Me.t1) > 1200 Then
 Cancel = True
 MsgBox "Legth can not exceed  1200 chrs", , "www.officena.net"
End If
End Sub

[أبو هادي]

السلام عليكم

إضافة إلى أخي محمد :

يمكن وضع شرط صحة Validation Rule في حقل الجدول أو في صندوق النص :

Len([t1])<=120

أو عن طريق الكود للحدث التالي :

Private Sub t1_Change()
  If Len(Me.t1.Text) > 120 Then
    Beep
    SendKeys "{BS}"
  End If
End Sub

تحياتي .

[bassum]

أسأل الله أن يحشركم مع أبو بكر وعمر وعثمان وعلي رضي الله عنهم وأن لا يريكم مكروه ولا أملك لكم غير الدعاء

والعملية جدا ممتازة ولكن ألا يمكن التحكم بعدد الأسطر بدل الكلمات وأكون لكم شاكرا

[محمد طاهر عرفه]

عن نفسي لا أعرف حاليا طريقة للتحكم بعدد الاسطر

و لكن دعنا نفكر فى الموضوع بصوت عالي

السطر الجديد ينتج اما من امتلاء السطر الحالي ، و اكمال الكتابة

أو

ارسال ضغطة مفاتيح Enter او Ctr+Enter بحسب الاعدادات

و الثانية يبدو من الممكن عدها ، اما الاولي فتبدو أصعب حيث أن العرض المخصص للحروف يختلف بحسب الحرف

و يبدو الموضوع صعب التحقيق ، لكن .... كل شيء ممكن