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