النجاشي قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 السلام عليكم استاذي الكرام خواتم مباركه عيدكم مبارك استاتذي الكرام المطلوب طريقه اغلاق النماذج الفرعيه باختصار الكيبورد عندما اكون بالنموذج الريئسي اقوم بفتح سجلات سند صرف يفتح نموذج سجلات الصرف ثم يتحول الزر الي اصدار سند صرف ويفتح سند صرف المطلوب كودلاغلاق النماذج بزر esc ويكون كود واحد لكل النماذج بدل ما اضع بكل نموذج كود شاكرين احبتي ZZ.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 عليكم السلام هذا يغلق جميع النماذج المفتوحة عند الضغط على زر 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 2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 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 انا حبيت اجربه عندي لكن لا يعمل كيف اقوم بتنفيذا هذا الكود ؟ رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 (معدل) مفتاح المعاينة اجعله نعم أو حدث عند الفتح Me.KeyPreview = True تم تعديل أبريل 30, 2022 بواسطه محمد احمد لطفى 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أبريل 30, 2022 الكاتب مشاركة قام بنشر أبريل 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 استاذي الفاضل ابو هليل حفظك الله كتبت المنشور على عجله ولم أوضح ما في جعبتي بطريقه أوضح المقصود إغلاق النموذج الفرعي الحالي وفتح النموذج السابق أن شاء الله أوصلت المقصود تحياتي اليك يالغالي رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 3 ساعات مضت, عمر ضاحى said: انا حبيت اجربه عندي لكن لا يعمل استاذ عمر ...مثلما قال اخينا @محمد احمد لطفى وأحد الكائنات نشط مثل مربع نص رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 59 دقائق مضت, Eng.Qassim said: استاذ عمر ...مثلما قال اخينا @محمد احمد لطفى وأحد الكائنات نشط مثل مربع نص انا فعلا عملت كده لكن لقيته بيغلق النموذج الفرعي والنموذج الرئيسي انا عاوز اغلق النموذج المتفعل فقط (ال مفتوح فى وجهي فقط) مش يقفل كل النماذج مره واحده 1 رابط هذا التعليق شارك More sharing options...
iibat قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 عند مفتاح للاسفل : Select Case KeyCode Case Is = 27 'åÐÇ ÑÞã f6 Shift = 1 DoCmd.Close End Select رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 13 دقائق مضت, iibat said: Case Is = 27 'åÐÇ ÑÞã f6 ممكن ترجمه للسطر ده ^_^ رابط هذا التعليق شارك More sharing options...
ِAbo_El_Ela قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 36 دقائق مضت, عمر ضاحى said: ممكن ترجمه للسطر ده ^_^ الكود شغال و مستني مع حضرتك الترجمة رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 12 دقائق مضت, ABOLO2 said: الكود شغال و مستني مع حضرتك الترجمة ادري ان الكود شغال لكن كنت عاوز اعرف ايه الكلام الهلوغروفى المكتوب بس ^_^ (( 'åÐÇ ÑÞã f6 )) رابط هذا التعليق شارك More sharing options...
iibat قام بنشر أبريل 30, 2022 مشاركة قام بنشر أبريل 30, 2022 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.