اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تخصيص مفتاح إختصار


Alhaithm

الردود الموصى بها

الأخوة رواد المنتدى

تحية وتقدير

كيف يمكن تخصيص أحد مفاتيح لوحة المفاتيح وليكن المفتاح

F5

لتنفيذ زر أمر في نموذج

توضيح

يوجد لدي زر أمر في نموذج ينفذ أمر طباعة على طابعة فواتير رول نقطية (من النوع الذي يستخدم في كاونترات نقاط البيـع) مع فتح درج قبض النقود والأمر يعمل بشكل جيد ، لكن يحتاج مستخدم البرنامج إلى زر في لوحة المفاتيح لتنفيذ هذا الزر بدلا من تحريك الماوس إلى الزر والنقر عليه.

دلونا جزاكم الله خيراً.

  • Thanks 1
رابط هذا التعليق
شارك

تنفيذ أمر بضغط مفتاح من أي مكان

Autokeys Macro

http://www.officena.net/ib/index.php?showtopic=85&hl=

استخدام مفاتيح الكي بورد لتنفيذ امر محدد-Send Keys

http://www.officena.net/ib/index.php?showt...97&hl=key+press

رابط هذا التعليق
شارك

فى حدث عند مفتاح لأسفل للنموذج ضع الكود التالى

Case vbKeyF8
Dim strMsg As String, strTitle As String
Dim strMsgNo As String, strTitleNo As String
strMsg = "هــــل تـريـــد حـــذف هــــذا الصنــــــف .....؟"
strTitle = " تأكيد الحذف"
If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton2, strTitle) = vbYes Then
DoCmd.SetWarnings False
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End If
End Select

ولا تنسى أن تغير بند مفتاح العرض التمهيدي إلى نعم .

الكود السابق لزر F8

أشرف خليل

رابط هذا التعليق
شارك

الرد المشار اليه :

للاخ فهد :

أولا وقبل كل شيئ أعمل الآتي

من خلال خصائص النموذج (حدث) إذهب إلى (مفتاح العرض التمهيدي) وجعل خاصيته (نعم) ثم إذهب إلى (عند مفتاح للأسفل) واستخدم الكود هذا

الرقم 116 في الكود يمثل الزر F5

If KeyCode = 116 And Shift = 0 Then
الكود المطلوب
END IF

رابط هذا التعليق
شارك

  • 18 years later...
في 4‏/1‏/2004 at 03:40, Alhaithm said:

الأخوة الأعزاء

تحياتي وتقديري لكم على جهودكم

بالرغم من أنكم لم توفقوا في الإجابة أو فهم ما أريد.

 

وقد وجدت الجواب وانتهت المشكلة ، شكرا ، شكرا ، شكرا.

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information