طريقه اغلاق النماذج بمفتاح Esc

[النجاشي]

السلام عليكم استاذي الكرام 

خواتم مباركه عيدكم مبارك

استاتذي الكرام المطلوب طريقه اغلاق النماذج الفرعيه باختصار الكيبورد

عندما اكون بالنموذج الريئسي اقوم  بفتح سجلات سند صرف يفتح  نموذج سجلات الصرف ثم يتحول الزر الي اصدار سند صرف ويفتح سند صرف

المطلوب كودلاغلاق النماذج  بزر esc ويكون كود واحد لكل النماذج بدل ما اضع بكل نموذج كود

شاكرين احبتي 

ZZ.rar

[ابوخليل]

عليكم السلام

هذا يغلق جميع النماذج المفتوحة عند الضغط على زر Esc

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
      Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop
End If
End Sub

 

[عمر ضاحى]

4 ساعات مضت, ابوخليل said:

عليكم السلام

هذا يغلق جميع النماذج المفتوحة عند الضغط على زر Esc

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
      Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop
End If
End Sub

 

انا حبيت اجربه عندي لكن لا يعمل 

كيف اقوم بتنفيذا هذا الكود ؟

[محمد احمد لطفى]

مفتاح المعاينة اجعله نعم

أو حدث عند الفتح 
 

 Me.KeyPreview = True

 

تم تعديل أبريل 30, 2022 بواسطه محمد احمد لطفى

[النجاشي]

6 ساعات مضت, ابوخليل said:

عليكم السلام

هذا يغلق جميع النماذج المفتوحة عند الضغط على زر Esc

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
      Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop
End If
End Sub

 

استاذي الفاضل ابو هليل حفظك الله كتبت المنشور على عجله ولم أوضح ما في جعبتي بطريقه أوضح المقصود إغلاق النموذج الفرعي الحالي وفتح النموذج السابق أن شاء الله أوصلت المقصود تحياتي اليك يالغالي

 

 

 

[Eng.Qassim]

3 ساعات مضت, عمر ضاحى said:

انا حبيت اجربه عندي لكن لا يعمل

استاذ عمر ...مثلما قال اخينا @محمد احمد لطفى

وأحد الكائنات نشط مثل مربع نص

[عمر ضاحى]

59 دقائق مضت, Eng.Qassim said:

استاذ عمر ...مثلما قال اخينا @محمد احمد لطفى

وأحد الكائنات نشط مثل مربع نص

انا فعلا عملت كده لكن لقيته بيغلق النموذج الفرعي والنموذج الرئيسي 

انا عاوز اغلق النموذج المتفعل فقط (ال مفتوح فى وجهي فقط) مش يقفل كل النماذج مره واحده

 

[iibat]

عند مفتاح للاسفل :

Select Case KeyCode
Case Is = 27 'åÐÇ ÑÞã f6
Shift = 1
DoCmd.Close
End Select

[عمر ضاحى]

13 دقائق مضت, iibat said:

Case Is = 27 'åÐÇ ÑÞã f6

ممكن ترجمه للسطر ده ^_^

[ِAbo_El_Ela]

36 دقائق مضت, عمر ضاحى said:

ممكن ترجمه للسطر ده ^_^

الكود شغال 

و مستني مع حضرتك الترجمة 

[عمر ضاحى]

12 دقائق مضت, ABOLO2 said:

الكود شغال 

و مستني مع حضرتك الترجمة 

ادري ان الكود شغال 

لكن كنت عاوز اعرف ايه الكلام الهلوغروفى المكتوب بس ^_^  ((   'åÐÇ ÑÞã f6   ))

[iibat]