الاوتو كى ماكرو

[محمد السيد الشاطر]

السلام عليكم ورحمة الله وبركاته 

الإخوة الأكارم عايز أعمل فى الاوتو كى ماكرو مثلا عند الضغط على f9  يغلق النموذج الحالى لكن لا يغلق النموذج الرئيسى حاولت كثير كان يغلق النموذج الرئيسى 

فبرجاء المساعدة لو تكرمتم 

[مسفر]

جرب هذا الكود 

Private Sub Form_Current()
Me.KeyPreview = True
End Sub

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

 

[محمد السيد الشاطر]

مشكور الاخ مسفر على سرعة الرد لكن انا اريده كود عام لكل البرنامج وليس خاص للنموذج الحالى يعنى يتم استدعائه لاى نموذج هل الكود هذا يفى بغرضى ام لا 

[مسفر]

جرب وافني بالنتيجة 

تجريب.accdb

[jjafferr]

وعليكم السلام 🙂

 

تفضل:

.

جعفر

تجريب.zip

[مسفر]

40 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

تفضل:

.

جعفر

تجريب.zip 42.5 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

إضافة رائعة بدل تكرار الأمر داخل الماكرو لكل نافذة 

طبعا الشرط هو التركيز على النافذة المفتوحة  فكرة رائعة 

خطير جعفر 

 

تم تعديل يوليو 19, 2019 بواسطه مسفر

[محمد السيد الشاطر]

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

مع خالص احترامى وتقديرى

[محمد السيد الشاطر]

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

وهل يمكن وضع نفس الماكرو لغلق التقارير ايضا

تم تعديل يوليو 20, 2019 بواسطه محمد السيد الشاطر

[jjafferr]

تفضل 🙂

 

جعفر

 

1097.AutoKeys DataMacro close Form Report.zip

[محمد السيد الشاطر]

شكرا جزيلا معلمنا الخبير الاستاذ جعفر تم بحمد الله