تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟
#1
Question 
الاخوه الكرام
 السلام عليكم
 كيف يمكن ان اشترط على المستخدم إذخال في Text  "ذكر" او "انثى" ؟؟
نامل من الله المساعدة وجزكم الله خيراً
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#2
كود :
Private Sub Text1_LostFocus()
If Text1.Text <> "" Then
If Text1.Text <> "ذكر" And Text1.Text <> "انثى" Then
Text1.Text = ""
MsgBox " من فضلك ادخل النوع ذكر او انثى فقط"
Text1.SetFocus
Exit Sub
End If
End If
End Sub
ارجو ان يفيدك هذا الكود
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: Microformt , Microformt
#3
(21-03-21, 02:00 AM)ahmedabdelaliem كتب :
كود :
Private Sub Text1_LostFocus()
If Text1.Text <> "" Then
If Text1.Text <> "ذكر" And Text1.Text <> "انثى" Then
Text1.Text = ""
MsgBox " من فضلك ادخل النوع ذكر او انثى فقط"
Text1.SetFocus
Exit Sub
End If
End If
End Sub
ارجو ان يفيدك هذا الكود
اخي العغزيز
 السلام عليكم
 الف الف الف شكر لك
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة: ahmedabdelaliem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 166 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
Wink هل يمكن تحديث بيانات من استعلام لجدول مصمم هاوي 10 393 04-11-21, 01:33 PM
آخر رد: مصمم هاوي
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 159 10-10-21, 08:58 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 218 02-10-21, 02:39 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 606 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  كيف يمكن نقل بيانات من جدول في قاعدة بيانات الى قاعدة بيانات مثلها تماما gonm64 2 511 11-06-21, 04:55 PM
آخر رد: gonm64
  [vb6.0] كيف يمكن إضهار الصوره تحت Text عند النقر على زر الامر ؟؟ Microformt 2 488 08-06-21, 04:42 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس بتقنية Dao نامل المساعدة العاجلة ؟؟ Microformt 3 464 23-05-21, 01:50 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف يمكن إدرج الاسم هذا الموجود في الصورة Label على الفوم ؟؟ Microformt 2 409 13-05-21, 12:42 AM
آخر رد: Microformt
  هل يمكن إظهار أداة DatePicker فارغة مصمم هاوي 4 674 28-03-21, 08:56 PM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم