ادخال بيانات في الحقول الفارغة

[ابا عمرو]

الاخوه الكرام /

لدي نموذج يحتوي على حقول وأرغب في اجبار المستخدم في ادخال بيانات لبعض الحقول وبالفعل وتم اللازم بمساعدة أحد الاخوه الكرام من حلال الكود

 If IsNull(Me.filed) Then
MsgBox "عفواً قم بتسجيل بيانات الحقل", vbCritical, "تحذير"
Me.filed.SetFocus
Cancel = True 

ووضعت هذا الكود في زر أمر به عدد من هذا الكود بعدد هذه الحقول 

المطلوب عندما يعطي هذه الرسالة يتوقف على هذا الحقل ولا ينتقل الا بادخال البيانات ثم هكذا مع الحقل التالي اذا كان فارغ الى أن ينتهي من جميع الحقول المطلوب ادخال بيانات فيها 

فماذا أفعل جزاكم الله خيرا 

[ابوخليل]

Private Sub text_Exit(Cancel As Integer)
If IsNull(Me.text) Then
MsgBox "من فضلك أدخل قيمة"
DoCmd.CancelEvent
Me.text.SetFocus
Me.text.Undo
End If
End Sub

[ابا عمرو]

أشكرك أستاذي الكريم وزادكم الله علما ونفع الله بكم المسملين جاري تجربة الكود

[ابا عمرو]

أخي الكريم جزاكم الله خيرا

ولكن ما المقصود

DoCmd.CancelEvent وأيضا

Me.text.Undo

للعلم فقط وجزاكم الله خيرا

[ابوخليل]

أخي الكريم جزاكم الله خيرا

ولكن ما المقصود

DoCmd.CancelEvent وأيضا

Me.text.Undo

للعلم فقط وجزاكم الله خيرا

استفسار في محله :

وقت تنفيذ الحدث عند الخروج من الحقل

فنحن نريد ان نمنع الخروج مادام الحقل فارغا

فــ  CancelEvent  الغاء حدث الخروج

ثم جعلنا التركيز على الحقل بـ SetFocus

 

و Undo  تعني تراجع عن الحركة الأخيرة 

وحيث لا يوجد حركات فالسطر  Me.text.Undo زائد

ليصبح الكود هكذا :

Private Sub text_Exit(Cancel As Integer)
If IsNull(Me.text) Then
MsgBox "من فضلك أدخل قيمة"
DoCmd.CancelEvent
Me.text.SetFocus
End If
End Sub

[أبو سلمى]

اخي الكريم / اذا أردت أن اجعل عملية تسجيل بيانات في الحقل غير الزامية بمعنى يعطي رسالة لمستخدم البرنامج فقط بأن هذا الحقل فارغ وله أن يختار موافق فيستكمل بيانات السجل ويعمل حفظ له أو أن يختار بأن يسجل بيانات في هذا الحقل فما هو الكود 

جزاكم الله خيرا 

[راعي الغنم]

اخي الكريم / اذا أردت أن اجعل عملية تسجيل بيانات في الحقل غير الزامية بمعنى يعطي رسالة لمستخدم البرنامج فقط بأن هذا الحقل فارغ وله أن يختار موافق فيستكمل بيانات السجل ويعمل حفظ له أو أن يختار بأن يسجل بيانات في هذا الحقل فما هو الكود 

جزاكم الله خيرا 

في هذه الحالة لست بحاجة لوضع كود او حدث وانما وضع بطاقة عنونة او تسمية يمين الحقل مكتوب فيها "هذا الحقل غير إلزامي" وتكون باللون الاحمر^_^

مالم واصريت:

privat sub

If IsNull(Me.text) Then

msgbox "لديك الحرية في الكتابة او عدم الكتابة في هذا الحقل..وفقكم الله"

End If

End Sub