انتقال Focus

[Mohammad_chz]

به نام خدا

من توی فرم چندتا TextBox دارم که هنگام از دست دادن Focus اطلاعات چک میشه اگه خالی باشه Focus رو به text برگردونه ولی باکمال تعجب بازم بعد از زدن کلید Enter به Text بعدی میره.

Private Sub Text0_LostFocus()

If Text0.Text = "" Then

a = MsgBox("Pleas Enter Data.", vbOKOnly)

Text0.SetFocus

End If

End Sub

لطفا بگید کجای کد اشکال داره؟؟

[Abbas Amiri]

شرط را در GotFocus کنترل بعدی قرار دهید

[Mohammad_chz]

شرط را در GotFocus کنترل بعدی قرار دهید

دوست من در روال فرم لود TextBox ها مقدار دهی می شوند و به همین خاطر باید Focus منتقل بشه. اما اگه در Got Focus کنترل بعدی بنویسم باز هم باید برای چک کردن شرط Focus را به کنترل قبلی منتقل کنم. در این صورت کد موجود در روال فرم لود Error میده. یعنی عملا امکان پذیر نیست. نمیدونم راه دیگه ای هست یا نه؟

[Abbas Amiri]

می توانید از روال Exit استفاده کنید ودر صورت محقق نبودن شرط Cancel=True قراردهید تا فوکوس درکنترل باقی بماند