حدث مفتاح لأعلى

[N_ELMASRY]

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

مرفق قاعدة بيانات بها حدث على حقل الاسم فى النموذج عند الضغط على رقم 1 فى الكى بورد يكتب اسم "احمد" وكذلك رقم 2 ورقم 3 

يعمل هذا الكود طبيعيا على جميع الاجهزة بنظام ويندوز 8 ماعدا جهاز dell عليه ويندوز 8 . 

مع العلم ان اللغة فى control panel عربية وكذلك الخاصة non-unicode عربية أيضا.. 

ارجو المساعدة 

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

https://up.top4top.net/downloadf-856o5mjq1-rar.html

[ابوخليل]

جرب هذا

Private Sub Name1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Then
Name1 = "احمد "
ElseIf KeyCode = 50 Then
Name1 = "محمد "
ElseIf KeyCode = 51 Then
Name1 = "محمود "
End If
End Sub

ولكن رجاء غير اسم الحقل Name عندك  لان هذه الكلمة محجوزة 

[N_ELMASRY]

جزاك الله خيرا على سرعة الرد والاهتمام

ولكن للعلم ان الكود بالطريقة الموجوده فى المرفق يعمل جيدا على جميع الاجهزة ما عدا جهاز نوعه dell ويندوز 8

والكود كبير فيه اختصارات اخرى. 

وايضا هذه الاختصارات تكتب بجوار بعضها فى نفس الحقل ... مثل احمد اسماعيل محمد ابراهيم ... وهكذا

فهل يمكن الاحتفاظ بنفس الكود وحل المشكله على نوع الاجهزة dell فقط ؟؟؟
وهذا جزء من الكود المستخدم

Select Case KeyCode

 

 

 

Case vbKeyF3

SendKeys "عبد الرحمن "

Case vbKeyF4

SendKeys "عبد الرحيم "

Case vbKeyF10

SendKeys "اسماعيل "

 

Case vbKey1

SendKeys "{bs}"

SendKeys "احمد "

 

Case vbKey2

SendKeys "{bs}"

SendKeys "محمد "

Case vbKey3

SendKeys "{bs}"

SendKeys "محمود "

Case vbKey4

SendKeys "{bs}"

SendKeys "مصطفى "

Case vbKey5

SendKeys "{bs}"

SendKeys "سيد "

Case vbKey6

SendKeys "{bs}"

SendKeys "ابراهيم "

Case vbKey7

SendKeys "{bs}"

SendKeys "حسن "

Case vbKey8

SendKeys "{bs}"

SendKeys "على "

Case vbKey9

SendKeys "{bs}"

SendKeys "سعيد "

Case vbKey0

SendKeys "{bs}"

SendKeys "حسين "

Case vbKeyUp

SendKeys "{bs}"

SendKeys " عبد المجيد "

Case vbKeyDown

SendKeys "{bs}"

SendKeys " عبد الحميد "

Case vbKeyNumpad1

SendKeys "{bs}"

SendKeys "عائشه "

Case vbKeyNumpad2

SendKeys "{bs}"

SendKeys "ايه "

Case vbKeyNumpad3

SendKeys "{bs}"

SendKeys "اسماء "

Case vbKeyNumpad4

SendKeys "{bs}"

SendKeys "زينب "

Case vbKeyNumpad5

SendKeys "{bs}"

SendKeys "ساميه "

Case vbKeyNumpad6

SendKeys "{bs}"

SendKeys "سعاد "

Case vbKeyNumpad7

SendKeys "{bs}"

SendKeys "شيماء "

Case vbKeyNumpad8

SendKeys "{bs}"

SendKeys "فاطمه "

Case vbKeyNumpad9

SendKeys "{bs}"

SendKeys "منى "

Case vbKeyNumpad0

SendKeys "{bs}"

SendKeys "نجوى "

Case vbKeyDecimal

SendKeys "{bs}"

SendKeys "خديجه "

Case vbKeyAdd

SendKeys "{bs}"

SendKeys "عبد الله "

Case vbKeySubtract

SendKeys "{bs}"

SendKeys "عبد القادر "

Case vbKeyMultiply

SendKeys "{bs}"

SendKeys "عبد العال "

Case vbKeyDivide

SendKeys "{bs}"

SendKeys "عبد العزيز "

 

End Select