السلام عليكم أخواني الكرام
أريد إضافة السجل الجديد مع ضغط مفتاح من الكبيورد من المفاتيح 11,10,9,8, F12 أو INSERT بدلا من ضغط على زر إضافة السجل
كيف تكون ذلك؟
أكون شاكر لكم
كيفية إضافة السجل الجديد بمفتاح معين من الكيبورد
وعليكــم السـلام ورحمة الله وبركاتـه..
فكرة الكود لجعل F8 يضيف سجلاً جديداً هو فقط:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF8 Then DoCmd.GoToRecord , , acNewRec End Sub
بإمكانك التعديل كيف تشاء لتغير المفتاح أو تضم مفاتيح أخرى، لكن لا تنس تعديل الخاصية key Preview للنموذج إلى (نعم)...
مرفقالملف بعد التعديل...
والله أعلم.
تم تعديل هذه المشاركة بواسطة أحمد مبارك الحيقي في 2 سبتمبر 2009 في 22:28
شكرالك أخي أحمد ميارك على سرعة الرد
ولكن أنت حذفت الزر للإضافة أنا أبغى الزر و مع مفتاح
هل صعب الزر مع مفتاح؟
أشكرك مرة أخرى
الاخ العزيز
ارفقت لك مثال بعد التعديل على مثال الاخ احمد
على فكرة لن يتم اضافة سجل الا بالاستمرار بالنقر على زر f8 واثناء الضغط ينقر على زر اضافة يتم اضافة سجل جديد
أما
اذا كنت تريد من المستخدم ان ينقر زر f8 نقرة واحدة فقط ويطلق الزر ومن ثم ينقر على زر الاضافة فعليك بإزالة الحدث في النموذج (عند المفتاح الى أعلى )
وتمسح السطر aa=flase
ان كان هو المطلوب فارجو الدعاء لي ولوالدي
وان لم يكن فأستميحك عذرا .
وفق الله الجميع
شكراً لك أخي mmaref على الرد
ولكن مثال الأخ أحمد مبارك نفعتي كثير بدون الزر للإضافة
رحم الله والديك الله يسلمك الله يخليك لهم
تم تعديل هذه المشاركة بواسطة Mrhb في 7 سبتمبر 2009 في 17:22
مشكور أخي ٍ أحمد مبارك الحيقي على هاذا الميثال اللذي حل لي مشكلة في برنامج
ولكن عندي سؤال: كيف أطبق هاذا الكود مع الحذف , التعديل , فتح فروم أخر , خروج من البرنامج أو الفروم مع العلم بأني جديد في عالم البرمجة ولا أفقه شيئ في الأكواد حيث أنا معتمد إعتماد شبه كلي على وحدات الماكرو ومشكور مسبقا .
الناجح يبحث عن الحلول و الفاشل يبحث عن الأعذار