[Microformt]

(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

ارجو ان يفيدك هذا الكود

اخي العغزيز
 السلام عليكم
 الف الف الف شكر لك
 تحياتي