ابا عمرو قام بنشر أبريل 11, 2014 مشاركة قام بنشر أبريل 11, 2014 الاخوه الكرام / لدي نموذج يحتوي على حقول وأرغب في اجبار المستخدم في ادخال بيانات لبعض الحقول وبالفعل وتم اللازم بمساعدة أحد الاخوه الكرام من حلال الكود If IsNull(Me.filed) Then MsgBox "عفواً قم بتسجيل بيانات الحقل", vbCritical, "تحذير" Me.filed.SetFocus Cancel = True ووضعت هذا الكود في زر أمر به عدد من هذا الكود بعدد هذه الحقول المطلوب عندما يعطي هذه الرسالة يتوقف على هذا الحقل ولا ينتقل الا بادخال البيانات ثم هكذا مع الحقل التالي اذا كان فارغ الى أن ينتهي من جميع الحقول المطلوب ادخال بيانات فيها فماذا أفعل جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 11, 2014 مشاركة قام بنشر أبريل 11, 2014 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 رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر أبريل 12, 2014 الكاتب مشاركة قام بنشر أبريل 12, 2014 أشكرك أستاذي الكريم وزادكم الله علما ونفع الله بكم المسملين جاري تجربة الكود رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر أبريل 13, 2014 الكاتب مشاركة قام بنشر أبريل 13, 2014 أخي الكريم جزاكم الله خيرا ولكن ما المقصود DoCmd.CancelEvent وأيضا Me.text.Undo للعلم فقط وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 أخي الكريم جزاكم الله خيرا ولكن ما المقصود 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 رابط هذا التعليق شارك More sharing options...
أبو سلمى قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 2015 اخي الكريم / اذا أردت أن اجعل عملية تسجيل بيانات في الحقل غير الزامية بمعنى يعطي رسالة لمستخدم البرنامج فقط بأن هذا الحقل فارغ وله أن يختار موافق فيستكمل بيانات السجل ويعمل حفظ له أو أن يختار بأن يسجل بيانات في هذا الحقل فما هو الكود جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مارس 1, 2015 مشاركة قام بنشر مارس 1, 2015 اخي الكريم / اذا أردت أن اجعل عملية تسجيل بيانات في الحقل غير الزامية بمعنى يعطي رسالة لمستخدم البرنامج فقط بأن هذا الحقل فارغ وله أن يختار موافق فيستكمل بيانات السجل ويعمل حفظ له أو أن يختار بأن يسجل بيانات في هذا الحقل فما هو الكود جزاكم الله خيرا في هذه الحالة لست بحاجة لوضع كود او حدث وانما وضع بطاقة عنونة او تسمية يمين الحقل مكتوب فيها "هذا الحقل غير إلزامي" وتكون باللون الاحمر^_^ مالم واصريت: privat sub If IsNull(Me.text) Then msgbox "لديك الحرية في الكتابة او عدم الكتابة في هذا الحقل..وفقكم الله" End If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.