مساعدة بخصوص اختصارات الكيبورد

[Hussein888]

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

اثقلت في استفساراتي و اتمنى من السادة المطورين سعة الصدر كما تعودت منهم... 

عندي قاعدة بيانات مخازن و قمت بعمل اكواد اخفاء ال اكسيس نفسه بحيث تظهر النماذج فقط في وضع popup.. 

اريد انشاء اختصارات بالكيبورد لفتح نماذج معينة.. 

مثلا عند الضغط على f1 افتح ارصدة المخزن 

عند الضغط على f6 اغلق نموذج و هكذا.. 

اريد الطريقة بتاعة الاكواد و ليس الماكرو،

لان قائمة مسميات الازرار على الماكرو دورت عليهاوعلى النت مالقيتش الا مجموعة قليله من الازرار 

السؤال.. 

عملت في ال event.. Onkey down في نموذج معين 

 و كتبت 

If keycode = vbkeyesc then msgbox"

"gggggg" 

ولما بفتح النموذج و اضغط الزر مابيحصلش حاجه.. ولا errors ولا حتى الاكشن المطلوب ييحصل ( زي ظهور الرسالة في المثال الي انا كاتبه) 

ايه الحل.. هل في حاجه المفروض اغيراها في الاعدادات ولا الكود غلط 

ملحوظة : انا عامل ال event في خصائص النموذج الرئيسيي و ليس لحقل من الحقول 

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

أولا فى حدث عند الفتح ضع الكود 
 

 Me.KeyPreview = True

ثانيا فى حدث مفتاح لاسفل ضع الكود

 

If KeyCode = vbKeyF1 Then 
DoCmd.OpenForm "اسم النموذج"
KeyCode = 0
end if

 

[Hussein888]

2 ساعات مضت, محمد احمد لطفى said:

أولا فى حدث عند الفتح ضع الكود 
 

 Me.KeyPreview = True

ثانيا فى حدث مفتاح لاسفل ضع الكود

 

If KeyCode = vbKeyF1 Then 
DoCmd.OpenForm "اسم النموذج"
KeyCode = 0
end if

 

يا سلام عليك.. ماشاء الله 

كمل جميلك و اشرحلي ايه فايدة جملة

key code =0

و امر me. keypreview

 

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

 Me.KeyPreview = True

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

أما بانسبة 

KeyCode = 0

اذا كان الزرار مثل F1 يظهر نعليمات Help لن تظهر التعليمات

تم تعديل أكتوبر 4, 2019 بواسطه محمد احمد لطفى