Mohammad_chz
پنج شنبه 10 آذر 1390, 11:18 صبح
به نام خدا
من توی فرم چندتا 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
لطفا بگید کجای کد اشکال داره؟؟
من توی فرم چندتا 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
لطفا بگید کجای کد اشکال داره؟؟