پرسش فعال كردن یك تكس باكس مشخص در یوزرفرم

[ظهور 313]

سلام و عرض ادب خدمت اساتید محترم
شاید این سوال من به پست قبلی هم ارتباط داشته باشه، البته منظور اون دوستمون رو خوب نفهمیدم
اما سوال من:
میخوام بعد از این كه توی یك تكی باكس عدد خاصی (مثلا 2 ) نوشته میشه تكس باكس 2 برای تایپ فعال بشه و اگر مثلا عدد 3 نوشته بشه، تكس باكس 3 ـ منظورم از فعال بودن، اینیبل كردن نیست، بله یعنی اینكه به حالت چشمك زدن بیاد تا بدون انتخابش بشه توش سریع تایپ كرد
ممنون میشم اگر راهنمایی بفرمایید

[iranweld]

با سلام

اگر در تکست باکس شماره یک تایپ میکنید از کد ذیل استفاده کنید

Private Sub TextBox1_Change()

Me.Controls("TextBox" & Val(TextBox1)).SetFocus

End Sub 

[ظهور 313]

ممنونم استاد خیلی عالی بود
فقط یه سوال دیگه اینكه میخوام برای MouseMove فرم یه شرط بزارم كه اگر تكس باكس فعال، مثلا تكس باكس 2 باشه، یه كار خاصی رو انجام بده. یعنی میخوام ببینم چه جوری میشه شرط گذاشت كه الان تكس باكس 2 فعال هست یا نه؟
ممنون میشم اگر راهنمایی بفرمایید