اريد رسالة تظهر في نموذج عند ترك الحقل فارغا

هل الشرط على حقل واحد أم كل الحقول الموجودة على النموذج؟

في حقل واحد

جرب الكود التالي في حدث عند فقدان التركير للحقل المطلوب

if me.اسم الحقل = "" Or IsNull(اسم الحقل) Then
MsgBox "البيانات مطلوبة في اسم الحقل "
اسم الحقل.SetFocus

راائع اخي biskra

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

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

تفضل كل الي عليك تغير اسماء الخانات

Private Sub fighting_Enter()

If IsNull([dependence_of_the_plan]) Then

MsgBox "íÌÈ ÇÚÊãÇÏ ÇáãÎØØ ÞÈá ÇßãÇá ÇáÚãáíå"

DoCmd.GoToControl "dependence_of_the_plan"

Else

If [dependence_of_the_plan] > [fighting] Then

MsgBox "Ending date must be greater than Beginning date."

DoCmd.GoToControl "BeginDate"

End If

End If

End Sub

اسف

تفضل

Private Sub fighting_Enter()
  If IsNull([dependence_of_the_plan]) Then
  
  
        MsgBox "íÌÈ ÇÚÊãÇÏ ÇáãÎØØ ÞÈá ÇßãÇá ÇáÚãáíå"
        DoCmd.GoToControl "dependence_of_the_plan"
    Else
        If [dependence_of_the_plan] > [fighting] Then
        
            MsgBox "Ending date must be greater than Beginning date."
            DoCmd.GoToControl "BeginDate"
      
        End If
    End If
End Sub

هل هناك مثال اوضح واسهل

إضافة الى طريقة الأخ PINO

هذه طريق ثانية:

في الجدول إجعل القيمة الافتراضية للحقل تساوي العبارة التي تريدها أن تظهر في الحقل ،مثلا

"Enter the value"

إجعل قاعدة التحقق من الصحة لا تسا وي القيمة أعلاه، مثلا

<>"Enetr the value"

(هذا على افتراض ان الحقل نصي)

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

بمثال سجل يتكون من الرقم والاسم والعمر والجنسية

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

هذا المثال

1111.rar

الأساتذة الأفاضل

السلام عليكم ورحمة الله وبركاته

لدي نموذج اسمه frm1 يوجد به عدد 6 textbox وكذلك زرأمر طباعة وزر أمر خروج

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

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

أما إذا كانت بعض الحقول فارغة يعطي رسالة تنبيه تعبئة جميع الحقول مطلوبه هل تريد إكمال التعبئة للتعبئة نعم للخروج دون حفظ لا.

وتقبلوووو فائق تحياتي والسلام عليكم ،،،،،،،،،،،،،،

تفضل اخي هذا المثال يوجد به طريقتين الاولى مقدمة من اختكم زهره والاخرى مقدمه من الاستاذ ابو عقيل اتمنى ان يكون هو المطلوب وتستطيع التعديل عليه بما يناسبك من وضع رسائل

اختكم

زهره

التركيز على الحقل الفارغ مع رسالة.rar

الأخت زهره

السلام عليكم

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

ولكن المثال حل نصف المشكله والنصف الباقي مازل قائم وهو

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

أرجوووو إفادتي نفعكم الله بما علمتم ،،،،،

أخوكم

ثبيت عرب

اخي ثبيت عرب

تستطيع عمل ذلك من خلال نسخ الكود التالي ووضعه في حدث عند النقر لزر الخروج

If MsgBox("  جميع الحقول مطلوبه هل تريد إكمال التعبئة", vbYesNo, " تنبيه ") = vbNo Then
  Cancel = False
  Else
  Cancel = True
  SendKeys "{ESC}"
  Exit Sub
End If

وهذا المثال بعد التعديل

اختكم

زهره

التركيز على الحقل الفارغ مع رسالة.rar

ألف شكر يا أختنا العزيزه ومعلمتنا الفاضله وجزاااااااااك الله الف خير .

لا شكر اخي ثبيت عرب وهذا واجبنا فإحمد الله ان الله سخر لنا هذا المنتدى لننهل من علومه فالشكر لجميع القائمين عليه بلا استثناء

اختكم

زهره

أخت زهره اسمحيلي المثال لا يعمل بالشكل الصحيح

عندما تتم تعبئة جميع الحقول برضه تطلع الرساله من المفترض ما تطلع

أرجوووووووو الافاده والف شكر على اهتمامك بالرد

كنت بحاجة إلى هذا المثال

ولله الحمد وجدته هنا

فلكم جزيل الشكر ........... مشرفين وأعضاء