المشاركات : 2
المواضيع 0
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ممكن تفيدوني بالكود ادخال الرقم من 10 الى 40 في تكست بوكس .. ولا يسمح ادخال اقل من 10 ولا اكثر من 40
شاكر لكم
المشاركات : 31
المواضيع 0
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 33 مرات في 1 مشاركات
وهناك طريقة أخرى يمكن أن اضيفها :
Private Sub Text1_keypress()
If Val(Text1.Text) < 10 Or Val(Text1.Text) > 40 Then
Text1.Text = ""
End Sub
الدكتور : عبان عبد القادر
من ورقلة ( الجزائر )