أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





وضع شرط لإدخال في التيكست بوكس

السلام عليكم اريد كود vba عند إدخال رقم في التكست بوكس أكبر من ٥ تظهر رساله بان الإدخال خاطئ لقد تجاوز القيمه المطلوبه ..



20-02-2020 10:30 مساء
mohammed_ali
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
قوة السمعة : 99
الاعجاب : 5
 offline 
السلام عليكم 
اريد كود vba عند إدخال رقم في التكست بوكس أكبر من ٥ تظهر رساله بان الإدخال خاطئ لقد تجاوز القيمه المطلوبه
                           لكم خالص الشكر والتقدير




20-02-2020 11:16 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 733
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
قوة السمعة : 7713
الاعجاب : 31
 offline 
look/images/icons/i1.gif وضع شرط لإدخال في التيكست بوكس
الأستاذ / محمد على
اتفضل الكود التالى لعله يفى بالغرض لطلبكم
يوضع الكود التالى فى حدث تغير التكست بوكس

Private Sub TextBox1_Change()
   If Me.TextBox1.Text > 5 Then
      MsgBox "قيمة الادخال تجاوز القيمة المطلوبة"
   End If
End Sub


وإثراء للفائدة الكود التالى أيضا يقوم بتحديد طول النص المدخل فى التكست بوكس بحيث لا يتجاوز  5 حروف أو أرقام

Private Sub TextBox1_Change()
   If Len(Me.TextBox1.Text) > 5 Then
      MsgBox "قيمة الادخال تجاوز القيمة المطلوبة"
   End If
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil،



21-02-2020 01:37 مساء
مشاهدة مشاركة منفردة [2]
mohammed_ali
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
قوة السمعة : 99
الاعجاب : 5
 offline 
look/images/icons/i1.gif وضع شرط لإدخال في التيكست بوكس
مشكور استاذ محمد الدسوقي ولكم خالص الشكر والتقدير

أثارت هذه المشاركة إعجاب: محمد الدسوقى،



21-02-2020 04:26 مساء
مشاهدة مشاركة منفردة [3]
mohammed_ali
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
قوة السمعة : 99
الاعجاب : 5
 offline 
look/images/icons/i1.gif وضع شرط لإدخال في التيكست بوكس
كتبت الشرط في حدث التيكست بوكس وعند ادخال قيمه خاطئة اكبر من القيمة المحددة بالشرط يعطي رسالة الخطأ وذا اردت مسح القيمة الخاطئة بمفتاح Delete  او Back space وكتابة القيمة الصحيحة يظهر خطأ برمجي وهو  Run time error 13 type mismatch  ويعطي في نهاية الرسالة مفتاحين للضغط على احدهما وهما End أو  debug 
هل من حل لهذة المشكلة

                                                                                                           ولكم خالص الشكر والتقدير




22-02-2020 12:07 صباحا
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 733
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
قوة السمعة : 7713
الاعجاب : 31
 offline 
look/images/icons/i1.gif وضع شرط لإدخال في التيكست بوكس
أستاذ / على 
استخدم الكود التالى تعديل بسيط عما سبق ـ يوضع أيضا فى حدث التكست بوكس 1
Private Sub TextBox1_Change()
   If Me.TextBox1.Value > "5" Then
         MsgBox "قيمة الادخال تجاوز القيمة المطلوبة"
      Me.TextBox1.Text = ""
   End If
End Sub

 

أثارت هذه المشاركة إعجاب: YasserKhalil،



22-02-2020 08:37 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif وضع شرط لإدخال في التيكست بوكس
يمكن استخدام الدالة VAL لتحويل القيمة النصية الموجودة في التكست بوكس لرقم بحيث يتعامل معها كرقم ..

أثارت هذه المشاركة إعجاب: ali mohamed ali،



22-02-2020 01:15 مساء
مشاهدة مشاركة منفردة [6]
mohammed_ali
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
قوة السمعة : 99
الاعجاب : 5
 offline 
look/images/icons/i1.gif وضع شرط لإدخال في التيكست بوكس
جزاكم الله خير وزادكم من فضله  أ/ محمد الدسوقي  و أ/ ياسر خليل 
تم حل المشكلة .... لكم خالص الشكر والتقدير

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
صندوق الإدخال i*nputBOX في الـ VBA Yasser Elaraby
7 570 YasserKhalil

الكلمات الدلالية
لإدخال ، التيكست ، بوكس ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:55 مساء

أعلن هنا
أعلن هنا
أعلن هنا