تعطيل كود حفظ التعديلات

[أيمن عبادي]

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

إخواني الكرام

في المرفق يوجد نموذج f_table1 وضعت فيه كود عند الحدث الحالي بأن الخانة Amount فيه تساوي خانة Amount من النموذج الفرعي F_talble2 ولكن حصلت مشكلة في أنه عند اغلاق النموذج الرئيسي f_table1 تظهر رسالة حفظ التعديلات على الرغم من عدم إجراء أي تعديل ... طبعاً هذا بسبب نقل قيمة Amount من النموذج الفرعي للنموذج الرئيسي ...

فهل هناك طريقة لمنع ظهور رسالة حفظ التعديلات إلا عند إجراء تعديل؟

بوركتم إخواني

Stopsavecode.rar

تم تعديل أبريل 9, 2012 بواسطه أيمن عبادي

[محمد ايمن]

جرب وضع هذا الكود عند الاغلاق

me.undo

[أيمن عبادي]

جـــزاك الله خيـرا اخي aimanano

جــربت ذلك .. ولكن الحال كما هو !!!

أرجو من الأخوة المساعدة

[محمد ايمن]

اخي الكريم حملت المرفق ولكن لم افهم طلبك بالضبط

لماذا النموذج الفرعي و لماذا تنقل القيمة من الاول الى الثاني

ثانيا الحقل Amount في النموذج الاول مقفل ما الغاية اذا ؟؟؟؟؟؟؟؟؟

تم تعديل أبريل 10, 2012 بواسطه aimanano

[أحمد خلف]

اخي الفاضل جرب هذا الكود

Private Sub Form_Current()

If IsNull("Amount") Then

Me.Amount = Me.F_Table2!Amount

End If

End Sub

والله الموفق.

تم تعديل أبريل 10, 2012 بواسطه nart lebzo
احتواء الكود ضمن المحرر

[أيمن عبادي]

جزاك الله أخي أحمد خلف 2012 ... :fff:

فعلا النتيجة 100 %

صديقي كيف أثر هذا الكود في تعطيل كود حفظ التعديلات ... أرجو قليلا من وقتك وتشرح لي وللأخوة ذلك

[أحمد خلف]

اخي ايمن

وجزاك مثله

اخي هذا الكو فائدتة انة لا يتم تحديث قيمة الكمية Amount الا اذا كانت فارغة

[أيمن عبادي]

بوركت أخي أحمد خلف 2012 ... فعلا أخي كما قلت أنت: هذا الكو فائدتة انة لا يتم تحديث قيمة الكمية Amount الا اذا كانت فارغ

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

هل لهذه المشكلة من حل ؟؟ بوركت

[محمد ايمن]

جرب

Stopsavecode2.rar

[أيمن عبادي]

جزاك الله كل خير أخي aimanano .... بالفعل أخي حلت المشكلة تماما .... :fff:

ولكــن القيمة لم تظهر في الجدول ... وهذا يسبب لي مشلكة في استخراج التقارير التي أريدها ...

هل من حل لذلك ؟

بوركت

[محمد ايمن]

تفضل اخي الكريم

Stopsavecode3.rar

تم تعديل أبريل 11, 2012 بواسطه aimanano

[أيمن عبادي]

^{جزاك الله كل خير أخي aimanano وجعله بميزان حساناتك .. :fff: :fff:}

^{فعلا كده 100 %}

[محمد ايمن]

الحمدلله الذي بفضله تقضى الحوائج

[shereen_eg_1]

بارك الله فيكم افكاركم قوية