[حل شده] خطا در تکس باکس

[kazem1359]

سلام خدمت اساتید محترم
در فایل زیر با کلیک برروی دکمه ثبت چک در کادر بازشده اگر در تکس باکس مبلغ به جای عدد حرف وارد بشه خطا میده لطفا در رفع خطا کمک کنید.
می خواهم وقتی به جای عدد حرف وارد میشه پیام بده داده باید عددی باشه.
ممنون میشم کمک کنید

http://uupload.ir/view/f4c_sabte_qek981127.zip/

[میثم مقدم نیا]

سلام خدمت اساتید محترم
در فایل زیر با کلیک برروی دکمه ثبت چک در کادر بازشده اگر در تکس باکس مبلغ به جای عدد حرف وارد بشه خطا میده لطفا در رفع خطا کمک کنید.
می خواهم وقتی به جای عدد حرف وارد میشه پیام بده داده باید عددی باشه.
ممنون میشم کمک کنید
http://uupload.ir/view/f4c_sabte_qek981127.zip/

خوب دوست عزیز شما میتونید تکس باکس را محدود به تایپ فط اعداد بکنید توری که کاربر حروف نتونه تایپ کنه فقط و فقط بتونه عدد وارد کنه

[میثم مقدم نیا]

برای این منظور میتوانید از کد زیر استفاده کنید

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'از این بر تعداد کاراکتر ها استفاده میشود
'TextBox1.MaxLength = 10
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub 

[kazem1359]

با سلام ممنون عالی بود مشکل برطرف شد