کنترل مقدار نوع داده که از تکس باکس فرم دریافت می شود

[eppagh]

نیاز دارم مقداری که از فرم از تکس باکس وارد برنامه می شود حتما عدد نه نوشته باشد.
ولی هرکاری می کنم و هرجور عمل می کنم نوع داده مقداری که از تکس باکس می رسد text است و تبدیل هم نمی شود.
راه چاره چیست؟

[iranweld]

سلام

برای بررسی بهتر فایل رو ضمیمه کنید

[eppagh]

خیلی ساده ش اینه که یه فرم دارم که درش یک textbox هست. می خوام مطمئن بشم که از اون تکست باکس عدد وارد برنامه میشه. یعنی کاربر به جای 2 ننویسه b. می خوام اگر این اشتباه رخ داد قبل از اینکه بره داخل کد و vba خطای نوع داده بده به فارسی به کاربر اعلام کنم که درستش کنه.

[Ali Parsaei]

سلام،
ببينيد اين به درد مي خورد:

Private Sub TextBox1_Change()
If Not IsNumeric(Me.TextBox1.Value) And TextBox1.Value <> "" Then
        MsgBox "فقط عدد وارد کنيد"
    TextBox1.Value = ""
    TextBox1.SetFocus
    End If
End Sub 

[eppagh]

متشکرم با این کار کرد. در واقع من داشتم به عنوان متغیر کنترل می کردم ولی شما خود مقدار رو کنترل کردید و نوع داده ش رو سنجیدید.