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

[mononoor]

با سلام
يه تكس باكس دارم مي‌خواهم تا يك شرط اعمال نشده فوكوس از اين باكس به باكس بعدي نرود
.
در LostFocus باكس شرط را گذاشته ام اما نمي‌توانم در صورت عدم وجود شرط فوكوس را به همان باكس برگردانم .
لطفا راهنمايي فرماييد.
با تشكر

[mehdi_fiz]

سلام دوست عزيز
من اين نمونه رو آماده کردم ببينيد به دردتون ميخوره
موفق باشيد

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

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

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

If Not IsNumeric(Me.TextBoxNmae) Then
MsgBox "مقدار وارده غير عددي است"
DoCmd.CancelEvent
End If

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