إغلاق نموذج باستخدام Esc

[Feras Syrian]

أعزائي وإخواني : كيف يمكن إغلاق نموذج باستخدام مفتاح Esc داخل الأكسس 2010 .مع كل الاحترام

تم تعديل أغسطس 30, 2013 بواسطه feras.mosallam

[ابوخليل]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
 DoCmd.Close
End If
End Sub

[Feras Syrian]

أخي أبوخليل المحترم :

جربت الكود ولكنه لم يقم بالعمل المطلوب منه وهو عند ضغط Esc يتم إغلاق النموذج المفتوح داخل الأكسس 2010 .

إلا أن الكود يعمل جيداً في بيئة أكسس 2007 .

 

لك كل الشكر

تم تعديل أغسطس 31, 2013 بواسطه feras.mosallam

[Feras Syrian]

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
 DoCmd.Close
End If
End Sub

 

أخي أبوخليل المحترم :

جربت الكود ولكنه لم يقم بالعمل المطلوب منه وهو عند ضغط Esc يتم إغلاق النموذج المفتوح داخل الأكسس 2010 .

إلا أن الكود يعمل جيداً في بيئة أكسس 2007 .

 

لك كل الشكر

[Bluemind]

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

الاخ فارس

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

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

DoCmd.Close acForm, Me.Name

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

[omarazh]

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

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

الاخ فارس

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

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

DoCmd.Close acForm, Me.Name

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

طريقة فعالة 

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

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

[jjafferr]

في 8/31/2013 at 12:52, ابوخليل said:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
 DoCmd.Close
End If
End Sub

السلام عليكم

 

كود اخي ابو خليل شغّال تمام ، بشرط ان تكون اعدادات النموذج تسمح بإصطياد ازرار الكيبورد قبل الذهاب الى الكود ، هكذا:

.

جعفر