عدم انتقال فوکوس در صورت برقرار نبودن شرط

[مهدی قربانی]

سلام
شما مي تونيد شرط رو در رخداد On Exit تكست باكس شرط مورد نظر رو قائل بشيد البته شكل عمليات بهتره به صورت زير باشه :

بجاي TextBoxName نام تكست باكس خودتون رو قرار بديد

If Not IsNumeric(Me.TextBoxNmae) Then

MsgBox "مقدار وارده غير عددي است"

DoCmd.CancelEvent

End If

اينطوري كدنويسي كمتري نياز هست و براي انتقال فوكوس هم به مشكلي بر نمي خوريد .