أبو هادي قام بنشر سبتمبر 21, 2003 مشاركة قام بنشر سبتمبر 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 بواسطه أبو هادي 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 21, 2003 مشاركة قام بنشر سبتمبر 21, 2003 مع أول قراءة توقفت امام SendKeys "{BS}" و تصورت أنها خطأ :) و بعد ذلك تذكرت أن Backspace يمكن ارسالها بثلاث طرق فرجعتها من ملف التعليمات ، و الثلاث طرق هي : {BACKSPACE} {BS} {BKSP} و طبعا الأسهل هي ما ختارها الأخ أبو هادي و جميل التحذير اولا بأول ، حدث عند التغيير لمربعات النص كل يوم تظهر له استخدامات جديدة :) رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر سبتمبر 21, 2003 مشاركة قام بنشر سبتمبر 21, 2003 Backspace يمكن ارسالها بثلاث طرق فرجعتها من ملف التعليمات ، و الثلاث طرق هي : {BACKSPACE} {BS} {BKSP} معلومة جميلة .. كنت سابقاً أستخدم الأمر: SendKeys Chr(8) رابط هذا التعليق شارك More sharing options...
ashraf قام بنشر سبتمبر 21, 2003 مشاركة قام بنشر سبتمبر 21, 2003 استدراك : حدث عند التبديل أعتقد أنها عند التغيير . طبعا الحقل لن يقبل أكثر من 6 حروف . أشرف خليل رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 21, 2003 مشاركة قام بنشر سبتمبر 21, 2003 هي عندي on Change :d و انت الأدري بالنسخة العربية :pp: 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.