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

[محمد احمد لطفى]

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

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


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

test5005.rar

تم تعديل يونيو 17, 2019 بواسطه محمد احمد لطفى

[Barna]

وعليكم السلام .... اخي محمد F1 محجوزة استخدم اي حروف أخرى F2 3 4

[محمد احمد لطفى]

معنى هذا أن 
F1
F5
F7
F9
F12
جميعهم محجوزين ولا يمكن وقفهم 

جزاك الله خيرا استاذى

[Barna]

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

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

[مسفر]

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

والله اعلم 

 

 

تعطيل مفتاح F1.mdb

[محمد احمد لطفى]

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 تأتى شاشة حفظ باسم

[Barna]

[kanory]

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

 

test5005.mdb

[محمد احمد لطفى]

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

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

 

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

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

تم تعديل يونيو 17, 2019 بواسطه محمد احمد لطفى

[kanory]

13 ساعات مضت, محمد احمد لطفى said:

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

ايش الحكمة بالكود ... ممكن نحل المشكلة ...

[محمد احمد لطفى]

5 ساعات مضت, kanory said:

ايش الحكمة بالكود ... ممكن نحل المشكلة ...

جزاك الله خيرا أستاذى 
واذا كان هناك كود افضل

[محمد احمد لطفى]

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

[ابو البشر]

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

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

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

[kanory]

1 ساعه مضت, محمد احمد لطفى said:

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

برضو ولا تزعل تفضل ......

 

Database.mdb

[محمد احمد لطفى]

أستاذى @kanory

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

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

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

 

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

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

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

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

[محمد احمد لطفى]

للرفع

[مسفر]

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

 

 

ضغطF1.mdb

تم تعديل يونيو 19, 2019 بواسطه مسفر

[محمد احمد لطفى]

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

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

 

 

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

أستاذ @مسفر

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

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

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

 

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

برضو ولا تزعل تفضل ......

 

Database.mdb 376 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 6 downloads

 

[kanory]

بعد حذف الرسالة ... ما تريد ان يفعل F1 عند الضغط عليه ... فتح نموذج مثلا ... تشغيل استعلام .... طباعة .... اغلاق البرنامج ...... ما تريد ان يقوم الاختصار به 

[محمد احمد لطفى]

أستاذى @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

[ابو جودي]

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

 

[محمد احمد لطفى]

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

If KeyCode = vbKeyF1 Then

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

تم تعديل يونيو 20, 2019 بواسطه محمد احمد لطفى

[ابو جودي]

https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243025(v=vs.60)

الموقع يوضح ارقام الازرار 

والمرفق كذلك

Key Code Constants.mdb

[مسفر]

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

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

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

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