kamelnet5 قام بنشر ديسمبر 27, 2022 مشاركة قام بنشر ديسمبر 27, 2022 السلام عليكم ورحمة الله وبركاته بعد اذن الاساتذة الكرام عندي برنامج كلما اقوم بعمل اضافة اصناف على الفواتير يقوم بإغلاق مفتاح NUm Lock بشكل تلقائي , اريد من حضراتكم حلا لهذا الامر , ( عن طريق ماكرو أو أي أمر يجعل المفتاح شغال بشكل دائم ) شاكرا لكم تعاونكم رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 27, 2022 مشاركة قام بنشر ديسمبر 27, 2022 استخدم هذا الإجراء بدلا من الأصل (من جلب الأستاذ جعفر) ولن تشاهد هذه المشكلة مرة أخرى. Sub mySendKeys(String_ As String, Optional Wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys String_, Wait Set WshShell = Nothing End Sub 2 رابط هذا التعليق شارك More sharing options...
kamelnet5 قام بنشر ديسمبر 28, 2022 الكاتب مشاركة قام بنشر ديسمبر 28, 2022 18 ساعات مضت, AbuuAhmed said: استخدم هذا الإجراء بدلا من الأصل (من جلب الأستاذ جعفر) ولن تشاهد هذه المشكلة مرة أخرى. جزاك الله عني خيرا سوال ( اين اضع هذا الاجراء باي حدث بالنموذج ام اعمل مديول ؟؟؟؟) رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 28, 2022 مشاركة قام بنشر ديسمبر 28, 2022 اعمل مديول وما عليك إلا إضافة حرفي "my" في بداية استدعاء Sendkeys لتصبح mySendkeys رابط هذا التعليق شارك More sharing options...
kamelnet5 قام بنشر ديسمبر 28, 2022 الكاتب مشاركة قام بنشر ديسمبر 28, 2022 3 ساعات مضت, AbuuAhmed said: عمل مديول وما عليك إلا إضافة حرفي "my" في بداية استدعاء Sendkeys لتصبح mySendkeys الف شكر رابط هذا التعليق شارك More sharing options...
kamelnet5 قام بنشر ديسمبر 28, 2022 الكاتب مشاركة قام بنشر ديسمبر 28, 2022 4 ساعات مضت, AbuuAhmed said: وما عليك إلا إضافة حرفي "my" في بداية استدعاء Sendkeys لتصبح mySendkeys السلام عليكم قمت باستدعاء على الكشل التالي : mySendKeys "{NUMLOCK}" وضعتها في حديث عند الفتح اول مرة يتم تشغيل المفتاح وعند الفتح مرة اخرة يقوم باغلاق المفتاح ... هل طريقتي هذه صحيحة ام اني لم تكن صحيحة ... اريد ان يبقى المفتاح بحالة التشغيل في كل الحالات .... اشكر لكم حلمكم رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 28, 2022 مشاركة قام بنشر ديسمبر 28, 2022 لا تضيف أي أمر جديد ، فقط قم بزيادة الحرفين لكل أوامر مناداة Sendkeys - تخلص من الأوامر التي لها علاقة بلوحة المفاتيح بالحذف تماما الموجودة في البرنامج SendKeys "{NUMLOCK}" ثم قم بتعديل الأوامر الأخرى بإضافة الحرفين إليها والتي كانت هكذا: SendKeys "{}" إلى هذا الشكل بعد التعديل: mySendKeys "{}" والسبب لأن هذه الأوامر هي سبب المشكلة ونحتاج إلى استئصالها من الأساس ولا داعي أبدا أبدا لاستعمال أمر لوحة المفاتيح. رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر مارس 8, 2023 مشاركة قام بنشر مارس 8, 2023 ارفع مثالك عزيزي وستجد العون من الجميع إن شاء الله. 1 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر مارس 9, 2023 مشاركة قام بنشر مارس 9, 2023 فحص المفتاح وتشغيله عندما يكون لا يعمل: Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Sub NumLockCheck() If GetKeyState(&H90) = 0 Then mySendKeys "{NUMLOCK}" End Sub 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر مارس 9, 2023 مشاركة قام بنشر مارس 9, 2023 9 ساعات مضت, AbuuAhmed said: فحص المفتاح وتشغيله عندما يكون لا يعمل: Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Sub NumLockCheck() If GetKeyState(&H90) = 0 Then mySendKeys "{NUMLOCK}" End Sub اخى ممكن مثال بارك الله فيك اخي الكريم رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر مارس 10, 2023 مشاركة قام بنشر مارس 10, 2023 المثال NumLock_TurnOn_01.accdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان