اذهب الي المحتوي
أوفيسنا

طريقه اغلاق النماذج بمفتاح 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

 

  • Like 2
رابط هذا التعليق
شارك

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

 

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

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

رابط هذا التعليق
شارك

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

 

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

 

 

 

رابط هذا التعليق
شارك

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

الكود شغال 

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information