كيفية تنفيذ كود

[الشقاوي]

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

لدي مربع نص قناع الادخال له هو اربعة ارقام 

سؤالي كيف يتم تنفيذ كود بعد كتابة الاربعة ارقام / اي بعد كتابة الرقم الاخير يتم تنفيذ الكود

والشكـــــــــــــر للجميع 

[نور الدين وليد]

اكتب الكود التالى فى الحدث AfterUpdate

If Len([Text0]) = 4 Then
هنا ضع الكود المطلوب
End If

الدالة len تستخدم لمعرفة عدد الحروف بالتكست

[الشقاوي]

شكرا لك اخي نور 

اقصد انه عند بعد كتابة الرقم الاخير يتم تنفيذ الكود تلقائياً بدون الضغط على اي زر

وشكراً لك 

[رمهان]

سؤال جميل !

تفضل ومشاركة مع اخي نور 

Private Sub text1_Change()
If Right(text1.Text, 1) <> "_" Then MsgBox ("hi")
End Sub

 

[الشقاوي]

شكراً لك اخي رمهان 

هو المطلوب فعلاً 

شكراً جزيلاً .. لا حرمنا الله من علمك 

والشكر لاخي نور 

 

[رمهان]

9 دقائق مضت, الشقاوي said:

شكراً لك اخي رمهان 

هو المطلوب فعلاً 

شكراً جزيلاً .. لا حرمنا الله من علمك 

والشكر لاخي نور 

 

حياكم الله دائما وابدا !  وحبيت انبه وللعلم ان الكود ليس مقيد بعدد خانات قناع الادخال !

بالتوفيق

تم تعديل ديسمبر 11, 2015 بواسطه رمهان