كيفية استخدام الدالة if

الكود التالي يحل المشكلة

If IsNull(Me.Parent![cos_name]) Then

 MsgBox "يجب ادخال اسم الزبون أولا"
 Else
 'do nothing
 End If

اخي العزيز biskra

الله يعطيك العافية على المساعدة دائما مغمرني بجمايلك اخي العزيز

مكن تشرح لي هذه الخاصة Me.Parent

لان انا حاولت بهذا الامر If IsNull(inv![cos_name]) Then ولكن لم يقبل حيث انا اسم inv هو اسم النموذج الموجود به الحقلcos_name

لقد ريت مثالك هو الفرق بالمثال الذي عمله والذي انا قمت به هو Me.Parent ولهذا ارجو توضيح هذه الخاصية لانني اريد ان اتعلم منك اخوي

اخي العزيز biskra

في الملف المرفق بالمشاركة الاولى به زر فاتور جديدة

المطلوب هو عدم الانتقال الى فاتورة جديدة الا بعد ان تكون بيانات في الحقل (الكود) والا تظهر لي رسالة مفادها ان البيانات ليست كاملة

اما اذا كان كان في الحقل (الكود) توجد بيانات فانه ينتقل الى فاتورة ثانية

مع خالص الشكر والتقدير لكم جميعا

اخوكم

الهدار

me.parent يقصد بها النموذج الرئيسي أي نموذج inv في المثال الذي قمت بوضعه أنت, و لكي يشتغل الكود كما طلبت أنسخ الكود كما في خاصية حقل الكود مثلا عن النقر أو عند التركيز فلاحظ ما يحدث.

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

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

أرجو ان اكون قد وفقت.

isa2.rar

اخي العزيز

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

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

شاكر لك مقدما على المساعدة

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

المهم انه يعطيك اسم الحقل الذي نسيت ادخال البيانات فيه.

isa2.rar