استخدام لوحة المفاتيح لتنفيذ كود معين

[aljobran143]

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

ممكن المساعدة 

اريد كود لتفيذ كود معين مثل طباعة تقرير بواسطة زر  من لوحة المفاتيخ الادخال او رقم او حرف معين بدون زر في النموذخ

وشكرا

تم تعديل يوليو 2, 2015 بواسطه aljobran143

[أ / محمد صالح]

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

كا عام والجميع بخير

لعمل المطلوب

يمكنك استخدام الأمر التالي

Application.OnKey(Key, Procedure) 

مثال

Application.OnKey "{Down}", "DownTen"

حيث أن الجزء الأول كود مفتاح السهم السفلي

والجزء الثاني اسم الإجراء الذي يتم عن الضغط على المفتاح المذكور

وهذه أكواد الأزار

Key

Code

BACKSPACE

{BACKSPACE} or {BS}

BREAK

{BREAK}

CAPS LOCK

{CAPSLOCK}

CLEAR

{CLEAR}

DELETE or DEL

{DELETE} or {DEL}

DOWN ARROW

{DOWN}

END

{END}

ENTER (numeric keypad)

{ENTER}

ENTER

~ (tilde)

ESC

{ESCAPE} or {ESC}

HELP

{HELP}

HOME

{HOME}

INS

{INSERT}

LEFT ARROW

{LEFT}

NUM LOCK

{NUMLOCK}

PAGE DOWN

{PGDN}

PAGE UP

{PGUP}

RETURN

{RETURN}

RIGHT ARROW

{RIGHT}

SCROLL LOCK

{SCROLLLOCK}

TAB

{TAB}

UP ARROW

{UP}

F1 through F15

{F1} through {F15}

 

ولعمل تجميعة مفاتيح يمكنك استخدام ما يلي

 

To combine keys with

Precede the key code by

SHIFT

+ (plus sign)

CTRL

^ (caret)

ALT

% (percent sign)

مثال

SHIFT+CTRL+RIGHT ARROW

Application.OnKey "+^{RIGHT}", "prosedure"

تقبل الله منا ومنكم صالح  الأعمال

وكل عام أنتم بخير

[aljobran143]

الف شكر لك ممكن  رفع ملف تجربه حتى يمكن الاستفادة