طريقة تعطيل اختصارات لوحة المفاتيح في أكسس

[Hamdi Edlbi-khalf]

السلام عليكم 

كيف أوقف اختصارات لوحة المفاتيح في برنامج أكسس عدا النسخ و اللصق .

و شكراً أساتذتي 

[Hamdi Edlbi-khalf]

مبدئياً هذا الأمر يعطل استخدام تركيبة أزرار

    If Shift = 4 Then               'Alt key
        Select Case KeyCode
            Case vbKeyReturn
                KeyCode = 0
        End Select
    End If

 

[Hamdi Edlbi-khalf]

بانتظار توجيهاتكم أساتذتي الكرام .

[ابو جودي]

اتفضل هذا ماكرو لاستاذى الجليل ومعلمى القدير الاستاذ @ابوخليل 

وقمت بالتعديلات الطفيفه عليه باضافة ماكرو لمنع الكليك يمين على التقرير

منع النسخ.mdb

[Hamdi Edlbi-khalf]

5 ساعات مضت, ابا جودى said:

اتفضل هذا ماكرو لاستاذى الجليل ومعلمى القدير الاستاذ @ابوخليل 

وقمت بالتعديلات الطفيفه عليه باضافة ماكرو لمنع الكليك يمين على التقرير

كل الشكر لك و لـ @ابوخليل

 خاصة أن البحث في الموقع لم يسعفني بإيجاد هذا الموضوع .

[Hamdi Edlbi-khalf]

الان, ابا جودى said:

اتفضل هذا ماكرو لاستاذى الجليل ومعلمى القدير الاستاذ @ابوخليل 

وقمت بالتعديلات الطفيفه عليه باضافة ماكرو لمنع الكليك يمين على التقرير

منع النسخ.mdb

مرحباً أخي الحبيب @ابا جودى

لقد قمت بتجريب الملف المرفق  و بالواقع فإن الطريقة الموجودة في الملف حصلت عليها أثناء بحثي في جوجل  قبل  طرحي للسؤال و لم أرغب بها نظراً لطولها .. و كنت أرغب بطريقة مختصرة تعطل جميع الاختصارات و وجدت الأمر المذكور في أحد المواقع الأجنبية ... و أني مشوق لمساهماتكم في

تعديل الأمر و لكم بذلك الأمر  و من الله الأجر .

سأحاول تعديله و سأعلمكم بالنتيجة.

تم تعديل أكتوبر 5, 2018 بواسطه Khalf

[ابو جودي]

I wait eagerly