كود أغلاق النموذج ...

الأخ العزيز / فتى الوادي

لم توضح أين وضعت الأمر ( الكود ) ؟

وفقا لما تريد أعتقد أن عليك كتابته في حدث عند فقدان التركيز لآخر حقل في النموذج

السلام عليكم ..

وضعت الكود السابق في حدث عند الخروج ...

ولم يقم بالأغلاق واخرج لي رسالة

run-time error2585 لا يمكن تنفيذ هذا الأجراء أثناء معالجة حدث في نموذج أو تقرير

.. فما هو الحل والمخرج

وشكراً

في حدث عند عداد الوقت للنموذج ضع :

DoCmd.Close

وفي حدث عند الخروج من الحقل ضع :

Me.TimerInterval = 1

ولك تحياتي

مرحبا اخي

ارجو ان اكون قد فهمت سؤالك

1- عند اخر حقل ومن الخصائص للنموذج اختر عند الادخال ثم حدد ماكرو وسمه مثلا CLOSE_FORM _FORM ثم من الماكرو اختر CLOSE ثم نوع الكائن الذي ستغلقه سواء نموذج او تقرير او خلافه

ثم اسم النوذج الذي ستغلقه

2- اختر مرة اخرى من قائمة الماكرو OPENFORM ثم حدد اسم النموذج الذي ستذهب اليه بعد غلق النوذج السابق

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

SUN_ALWADI@HOTMAIL.COM

الأخ شمس الوادي

لقد حربت الطريقة التي ذكرتها ولكنها تؤدي إلى نفس الخطأ الذي ذكره الأخ فتى الوادي .

مع العلم أن وضع الماكرو في حدث عند الإدخال خطأ والصحيح عند الخروج .

ولك تحياتي

اخي الكريم

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

أنا لست بأعلم ممن سبقوني في الرد ولكن جرب الطريقة التالية فالتوقيتات بالنسبة للأحداث مهمة جداً0

من خصائص أخر حقل على النموذج أذهب إلى خاصية " بعد التحديث " وأكتب DoCmd.Close وإذا كنت ترغب بعد إغلاق النموذج فتح نموذج أخر أكتب

"اسم النموذج الذي ترغب في فتح " Docmd.Open

واخبرنا بالنتيجة0

**********************************************

الأخ 5060

لقد جربت ما ذكرت وهو صحيح وهي أفضل طريقة في الموضوع كله .

زادك الله علماً .

ولك تحياتي

الأخ ابو حمود

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

أتمنى التوفيق للجميع

************************************************

عزيزي فتى الوادي

هناك كود لإغلاق النموذج يكتب هاكذا :

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

form1.Visible=fals

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

مع مراعات تغيير رقم النموذج إذا كان برنامجك يحتوي على عدة نماذج

ولإغلاق البرنامج كود صغير end

ولا تستخدمه في إغلاق النماذج لأنه يغلق البرنامج كامل

وأرجو المعذرة على التقصير لأن هذه معلوماتي إذا كان لديك معلومات للفائدة أرجو وضعها في المنتدى أو إرسالها على البريد .

وشكراً

:D

أخي الجوهري

الكود الذي ذكرته ناقص form1.Visible=fals والصحيح :

form1.Visible=false

علما أن هذا ليس إغلاق بل إخفاء .

و End تستخدم في الفيوجل بيسك وليس في الأكسس .

وفقك الله وسددك .

ولك تحياتي