المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
17-03-21, 01:04 PM
الاخوه الكرام
السلام عليكم
كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر" او "انثى" ؟؟
نامل من الله المساعدة وجزكم الله خيراً
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(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
ارجو ان يفيدك هذا الكود
اخي العغزيز
السلام عليكم
الف الف الف شكر لك
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ