omarazh

في ٦‏/٩‏/٢٠١٣ at 00:08, Bluemind said:

بعد اذن اخوي ابو خليل

الاخ فارس

مع ابقاء الكود اعلاه ، قم بانشاء زر في راس الفورم Form Header ثم من خصائص الزر ضع  خاصيه Transparent  من تاب Format الى  نعم , ومن تاب other ضع خاصيه  Cancel الى نعم

بعد ذلك ضع الكود التالي في حدث on Click  للزر 

DoCmd.Close acForm, Me.Name

ثم قم بالحفظ و تجربه مفتاح ESC

طريقة فعالة 

لك فائق شكري أخي Bluemind

وكذا لأخينا أبي خليل

سلمت يداك يا أخ سعيد على المجهود الرائع

لكني عندما أحاول النزول بالقائمة بواسطة الأسهم سرعانما يخزن أول صنف في القائمة و يلغي نتيجة الفلترة وأنا أريد النزول للأصناف التي تحته فهل من حل منك أو من باقي الخبراء ولكم جزيل شكري