اغلاق النموذج بواسطة مفتاحESC

[iibat]

حاليا استخدم هذا الكود في اغلاق النموذج بواسطة مفتاح Esc

Select Case KeyCode

Case Is = 27 'هذا رقم f6

Shift = 1

DoCmd.Close

End Select

End Sub

عن طريق إضافته : عند مفتاح للأسفل.

عيب هذا الكود انه لابد من تكراره في كل النماذج التي تود أغلاقه  بواسطة مفتاحESC  .

السؤال :

هل يوجد كود بديل يقوم بنفس المهمة كان يكون عن طرق الوحدة النمطية  مربوط بمفتاح ESC من دون ان يتم تكراره في كل نموذج .

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

[النجاشي]

2 ساعات مضت, iibat said:

حاليا استخدم هذا الكود في اغلاق النموذج بواسطة مفتاح Esc

Select Case KeyCode

Case Is = 27 'هذا رقم f6

Shift = 1

DoCmd.Close

End Select

End Sub

عن طريق إضافته : عند مفتاح للأسفل.

عيب هذا الكود انه لابد من تكراره في كل النماذج التي تود أغلاقه  بواسطة مفتاحESC  .

السؤال :

هل يوجد كود بديل يقوم بنفس المهمة كان يكون عن طرق الوحدة النمطية  مربوط بمفتاح ESC من دون ان يتم تكراره في كل نموذج .

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

انظر لهدا لعلا تستفيد منه

وحدهنمطيهلاغلاقالنماذج