مشكلة زر NmLK

[Mohameddd200300]

عند استخدام اي كود لي زرار Call SendKeys("{UP}", True)
  زي هذي الدالة   يطفى زر  NmLK   واذا رجعت ضغطت مره ثانية يرجع يشتغل NmLK   ليش   ايش الحل

[Lamyaa]

بعد استخدامك إلى

SendKeys "{UP}", True

اضف :

Sendkeys "{NUMLOCK}", True

[Lamyaa]

أيضا يمكن التحقق من حالة زر Num Lock وإعادتها إذا تم اطفاؤها.

  Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   Private Const VK_NUMLOCK = &H90

   If GetKeyState(VK_NUMLOCK) = 0 Then
      SendKeys "{NUMLOCK}", True
   End If

 

[عبد الله قدور]

السلام عليكم

سارسل لك رابط يعطيك اسماء ازرار الكيبورد في اكسس ويمكنك استخدامها في البرمجة بدلا من SENDKEYS

الرابط

وهذا مثال له

 

If KeyCode = vbKeyF3 Then


End If

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

 

تم تعديل يونيو 24, 2022 بواسطه عبد الله قدور