ماهي الأرقام المقابلة للمفاتيح على الكيبورد

الأخ 5060

في حدث عند الضغط على مفتاح لمربع نص ضع :

MsgBox KeyAscii

ولك تحياتي

أشكرك على سرعة الرد غير أن بعض المفاتيح لم يظهر الكود أرقامها مثل: Delete _Ctrl_Alt_shift_CapsLock_Home_End_ومجموع _F1_F2......الخ : أليس لها أرقام هي الأخرى ام لماذا ؟

بارك الله فيك0

المفاتيح التي ذكرتها تظهر في حدث عند مفتاح للأسفل وفي حدث عند مفتاح للأعلى .

ولك تحياتي

الأخ 5060

تستيطع معرفة رقم مفتاح معين عن طريق View ثم Object Browser في محرر الكود في الاكسس . وهناك أدخل اسم أي مفتاح (F12 مثلاً ) ثم أنظر إلى اسفل الشاشة حيث يعرض رقم المفتاح . كما أنظر إلى يمين الشاشة حيث يعرض جيمع المفايتح ويمكن الضغط على أحدها لمعرفة رقمه .

ولكن ماهي طريقة استخدام هذه المفاتيح . أن أمكن ولو باختصار .

لدي قاعدة بيانات أريدها أن تستقل عن إختصارات أكسيس مثلاً عند النقر على مفتاح F3 يستخدم في برنامجي لفتح القوائم المنسدلة بدلاً من Alt+السهم لأسفل وهكذا0

اخي ابو حمود

راقب هذا الكود وقلي ما هو خطأي فيه حيث انه لا يعمل

 If KeyAscii =114 then
CobName. Dropdown
End If

طلبت من الكود أنه : عند النقر على زر F3 والنموذج مفتوح الموجود عليه CobName أن تنسدل القائمة غير أنه لم ينفذ

على فكرة أخذة الرقم 114 من تعليمات أكسيس وهو الرقم المقابل F3

أن كان لاسم النموذج علاقة في الأجابة فاسمه FrmTM

عندما تفتح قاعدة بيانات يقوم اكسيس بالبحث عن ماكرو يدعى AutoRun فاذا وجده يفتحه تلقائيا ، هذا امر معروف .. مالا يعرفه الكثيرون أن أكسيس ايضا يقوم بالبحث عن ماكرو يدعى AutoKeys وينفذه تلقائيا اذا وجده .

مافائدة الماكرو AutoKeys :

يحتفظ هذا الماكرو بمفاتيح وصول سريعه لما تريد أن تفعله مثلا تريد عند الضغط على F3 ان يفتح نموذج العملاء كل ماعليك فعله هو انشاء ماكرو جديد .. ضع في حقل Macro Name التالي {F3} وفي حقل Action التالي OpenForm وغير خصائص هذه الدالة لتشير الى فورم العملاء ..

أضف كل الاختصارات الاخرى التي تريد بنفس الطريقه .

احفظ الماكرو باسم AutoKeys

اغلق القاعده وشغلها من جديد .

ميزة هذه الطريقه أنها تعمل بغض النظر عن وضع النموذج هل هو مفتوح أم لا .

ملاحظه :

لتشير الى Ctrl استخدم علامة الأس ^ (^R تعني كنترول مع R العلامه ^ تأتي أولا)

لتشير الى Alt استخدم علامة النسبة % ( %{F4} تعني Alt مع F4 )

{PGDN} تعني صفحه للأسفل

{PGUP} تعني صفحه للأعلى

{ESC} تعني مفتاح الهروب

شكراً ابو لمى على هذه المعلومات .

وهذا موضوع في ماكرو AutoKeys فيه إضافة بسيطة على كلام أخي ابو لمى :

http://arabteam.nicmatic.com/vb/showthread...hlight=AutoKeys

الأخ 5060

يبدو أنك وضعت الكود في حدث عند الضغط على مفتاح ، انقله الى حدث عند مفتاح للأعلى وغير كلمة KeyAscii إلى KeyCode واجعل خاصية مفتاح العرض التمهيدي في صفحة التبويب حدث الى نعم وسيشتغل معك بإذن الله .

ولك تحياتي

الاخوة

ابو لمى

ابو حمود

اشكرما على اهتمامكما بهذا الموضوع وقد وجدت في أجاباتكما أجابة الخبراء فعلاً 0

شكراً جزيل الشكر أيها الفاضلان0

الله لنا . :cool:

الأخ/الغريب

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

فأرجو أن تقبل إعتذاري فهذا ليس تجاهل مني لما قدمته0

لك تحياتي

يا أخي 5060

والله لقد أحرجتني باعتذارك ، وصار اعتذارك يحتاج إلى أعتذار مني . :)

وأني عندما كتبت ردي ظننت الأمر فعلاً كما قلت أنت في ردك ولو أني ظننته غير ذلك ما عقبت بشيء .

وتقبل أطيب تحياتي وتقديري .

يا شباب كنت جربت هذه الطريقة ومشي الحال فيها ومار أيكم بها .

Select Case KeyCode
Case vbKeyF5
MsgBox "أنت ضغط على مفتاح f5 الآن .... "
Case vbKeyF6
MsgBox "أنت ضغط على مفتاح f6 الآن .... "
Case vbKeyF7
MsgBox "أنت ضغط على مفتاح f7 الآن .... "
Case vbKeyF8
MsgBox "أنت ضغط على مفتاح f8 الآن .... "
Case vbKeyF9
MsgBox "أنت ضغط على مفتاح f9 الآن .... "
Case vbKeyF10
MsgBox "أنت ضغط على مفتاح f10 الآن .... "
End Select
End Sub

يمكن أن تضع أي أمر مطلوب بدى من عرض هذه الرسالة

أشرف خليل

الله يعطيك العافية أخ أشرف

الحمد لله على العقول الثرية بالعلم والتجربة