ممكن مساعدة في جعل تعبئة الحقل إجباري

عليكم السلام

جربي هذا الكود

Private Sub AAAA_Exit(Cancel As Integer)
    If IsNull(Me![AAAA]) Then
        MsgBox "لا يمكن ترك هذا الحقل فارغ"
        Cancel = -1
    End If
End Sub

موجود في القاعدة المرفقة

برمجة احد الزملاء في هذا المنتدى الغالي

AAAA.rar

ابسط حل لهذه المشكلة يكمن في التالي

في تصميم الجدول وعند الحقل المطلوب تظهر خصائص الحقل في ادنى الصفحة

في هذه الخصائص يوجد خاصية ( مطلوب) وفي الحالة الافتراضية تكون (لا) غيريها الى ( نعم)

وسيتكفل الاكسيس بالباقي!!!!!!!!!!!!!!!

**** ملاحظة : تكون هذه الخاصية مفعلة عند ادخال البيانات عن طريق نموذج للادخال فقط !!!!!

اتمنى ان اكون قد اجبت على التساؤل

مشكورين اخواني

فعلا هذا المطلوب اخوي مفرج

=========

مشكور اخوي qouja

جربت طريقتك ونفعت معي

=========

الف شكر لكم

اخي qouja في الحالة التي ذكرت ممتازة لكن يمكن يتطلب الحقل أن يكون فارغا لضرف ما لذلك تتحكم به في النموذج أفضل