اذهب الي المحتوي
أوفيسنا

باستخدام لوحة المفاتيح اغلاق مساعد اكسيس و ما يشابهه


إذهب إلى أفضل إجابة Solved by ابو جودي,

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

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

عند استخدام لوحة المفاتيح مثلا عند الضغط على F1
لتنفيذ أمر يفتح مساعد اكسيس 
كيف امنع فتحه و ما يشابهه فى جميع الزاير الخاصة بـ F


جزاكم الله خيرا 

test5005.rar

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

53 دقائق مضت, Barna said:

لم اقل هذا بل F1  فقط ....

لذلك ضعها مثلا F2  وشوف بنفسك

مثلا عند الضغط على 
F7 تأتى شاشة تدقيق املائى
F12 تأتى شاشة حفظ باسم

 

 

27 دقائق مضت, مسفر said:

جرب هذا بعد فتح النموذج اضغط على F1 

والله اعلم 

 

 

تعطيل مفتاح F1.mdb 256 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

أستاذ @مسفر

أنا مش عاوز اعطله 
عاوز اعطل مسعد اكسس و
F7 تأتى شاشة تدقيق املائى
F12 تأتى شاشة حفظ باسم

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

1 ساعه مضت, kanory said:

تفضل ولا تزعل طريقة أخرى .....

 

test5005.mdb 360 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

أستاذى @kanory   هل يمكن عملها بكود وليس ماكرو

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

15 دقائق مضت, محمد احمد لطفى said:

يعنى مثلا أنا ضفت f12 
و f7 ولا يعمل الا  زرار واحد فقط

بالعكس الماكروا الى رسله اخي @kanory يقوم بادراج عدد من الاختصارات .... وجميعها تعمل ... واهم ما يميزها انك تستخدم هذه الاختصارات من داخل اي نموذج .... ليس بالضرورة النموذج الرئيسي 

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

أستاذى @kanory

لا شيىء يدعو للزعل أنتم أساتذتى و منكم أتعلم و تعلمت الكثير 

مازال هناك شيىء عند حذف الرسالة الخاصة بكل زرار يعمل أخر زرار فقط  ( لا اريد الرسالة التى تظهر )

لم اتعامل مع المكرو  من قبل 

 

2 ساعات مضت, ابو البشر said:

بالعكس الماكروا الى رسله اخي @kanory يقوم بادراج عدد من الاختصارات .... وجميعها تعمل ... واهم ما يميزها انك تستخدم هذه الاختصارات من داخل اي نموذج .... ليس بالضرورة النموذج الرئيسي 

سوف أقوم بتشغيل المكرو عن طريق الكود لأن عند التحميل يوجد اكواد بالفعل 

جزاكم الله خيرا 

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

4 ساعات مضت, مسفر said:

لا تزعل علينا يا أخ محمد تفضل بالكود جرب وننتظر منك الرد 

 

 

ضغطF1.mdb 208 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

أستاذ @مسفر

أنا مش عاوز أققفل F1 لأن فى أمر هينفذه 
أنا عاوز ققفل مساعد اكسيس 
و انا عارف الكود ده 


طريقة أستاذ @kanory

الاخيرة شغالة كويس بالمكرو بس المطلوب حذف الرسائل لانى عند حذفها عندى زرار و احد بس الى بيشتغل 

 

في ١٨‏/٦‏/٢٠١٩ at 22:13, kanory said:

 

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

أستاذى @kanory

مثلا معاينة الطباعة ( ولكن ليس عن طريق المكرو ) عن طريق الكود 
فى المكرو أريد حذف الرسالة التى تأتى بعد الضغط على الثلاث زراير 
F1
F7
F12

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

منذ ساعه, محمد احمد لطفى said:

أستاذى @kanory

مثلا معاينة الطباعة ( ولكن ليس عن طريق المكرو ) عن طريق الكود 
فى المكرو أريد حذف الرسالة التى تأتى بعد الضغط على الثلاث زراير 
F1
F7
F12

Private Sub Form_Load()
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 112 Then
    DoCmd.OpenReport "rptName", acViewPreview
    KeyCode = 0
    Exit Sub
  End If
End Sub

112=F1

F7=118

F12=123

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

  • أفضل إجابة
Private Sub Form_Load()
  Me.KeyPreview = True     'لابد من هذا السطر ليعمل الكود القادم او وضع TRUE علي KeyPreview من الخائص
End Sub


' F1      >>--->  112
' F2      >>--->  113
' F3      >>--->  114
' F4      >>--->  115
' F5      >>--->  116
' F6      >>--->  117
' F7      >>--->  118
' F8      >>--->  119
' F9      >>--->  120
' F10     >>--->  121
' F11     >>--->  122
' F12     >>--->  123


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 112 Then   ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك
        'استبدل هذا السطر بالكود الذى تريده
    KeyCode = 0
    Exit Sub
  End If
End Sub

 

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

جزاك الله خيرا أستاذى @ابا جودى

If KeyCode = vbKeyF1 Then

استخدم اسم المفتاح
و أشكر استاذى @kanory  و أستاذى @مسفر

تم تعديل بواسطه محمد احمد لطفى
  • Thanks 1
رابط هذا التعليق
شارك

دائما توضيح السؤال يقرب الإجابة 

لو قلت لنا منذ البداية بعد الضغط على f1 أريد أن يفتح تقرير أو نموذج أو غيره ما عندك مشكلة 

لكن أبو جودي وضحلك طريقة الكود 

نفس الكود غير ما بعد الجملة الشرطية لما تريد أن يفعل الزر 

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

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