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

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


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





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

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



20-02-2020 10:30 مساء
mohammed_ali
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 109
 offline 

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

20-02-2020 11:16 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 826
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 763
قوة السمعة : 8651
عدد الإجابات: 8
 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

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

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

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

22-02-2020 12:07 صباحا
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 826
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 763
قوة السمعة : 8651
عدد الإجابات: 8
 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

 

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

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




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


 










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

الساعة الآن 10:01 صباحا