جلوگیری از خطا

[evil boy]

سلام
من یک تکست باکس دارم که فقط میشه توش عدد تایپ کرد.حالا اگه کاربر حین تایپ اگر اشتباه تایپ کرد یعنی مثلا اگه اینطوری تایپ کرد "090000" چطوری باید پیغام خطا بهش داد که اشتباه تایپ شده؟
یک سوال دیگه هم داشتم
من توی KeyUp تکست باکس نوشتم که اگر F1 کلیک شد یک فرم دیگه رو باز کنه و از گرید فرم باز شده یک داده رو انتخاب میکنم و کلید shift رو که میزنم دوباره برمیگرده به همون فرم اول و یکسری از مشخصات گرید رو داخل تکست باکسهای مشخص شده وارد میکنه
با این کد

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
sabtekala.Show
End If
End Sub
-------------
Private Sub VSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then
fkharid.Text8.Text = VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 2)
fkharid.Text3.Text = VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 3)

Unload Me
End If
End Sub


مشکلم اینجاست که این کدها رو برای یک فرم دیگه هم میخوام استفاده کنم و با همون کلید شیف فرم جدید باز بشه، چیکار کنم که با همون دکمه shift فرم مورد نظر من باز بشه

[mahmood744]

دوست عزیز شما یک متغییر عمومی به صورت
Global Num_Form as Integer
تعریف کن و قبل از فرمان Show این مقدار Num_Form را مثلا 101 قرار بده
سپس قبل از قرار دادن اطلاعات در فرم
چک کن مقدار Num_Form اگر برابر با 101 بود اطلاعات را درفرم fkharid.Text8.Text و اگر 102 بود اطلاعات را در فرم Frosh.Text8.Text و اگر 103 بود اطلاعات را در فرم fkharid22.Text8.Text و ... قرار بده

موفق باشی

[evil boy]

امکانش هست یک نمونه برام بزارید؟

[karimi64bit]

Private Sub Text1_Change()
Label1.Caption = Int(Text1.Text)
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Str(Len(Text1.Text)) > Label1.Caption Then
MsgBox "note like", vbCritical
Else
form2.Show
End If
End Sub



1 label 1 textbox
mikhad ro form