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

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

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

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


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

test5005.rarFetching info...

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

[Barna]

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

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

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

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

[Barna]

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

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

[مسفر]

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

والله اعلم 

 

 

تعطيل مفتاح F1.mdbFetching info...

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

  في 17‏/6‏/2019 at 16:40, Barna said:

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

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

Expand  

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

 

 

  في 17‏/6‏/2019 at 17:10, مسفر said:

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

والله اعلم 

 

 

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

Expand  

أستاذ @مسفر

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

[Barna]

[kanory]

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

 

test5005.mdbFetching info...

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

  في 17‏/6‏/2019 at 18:50, kanory said:

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

 

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

Expand  

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

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

[kanory]

  في 17‏/6‏/2019 at 20:36, محمد احمد لطفى said:

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

Expand  

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

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

  في 18‏/6‏/2019 at 10:15, kanory said:

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

Expand  

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

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

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

[ابو البشر]

  في 18‏/6‏/2019 at 18:14, محمد احمد لطفى said:

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

Expand  

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

[kanory]

  في 18‏/6‏/2019 at 18:14, محمد احمد لطفى said:

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

Expand  

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

 

Database.mdbFetching info...

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

أستاذى @kanory

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

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

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

 

  في 18‏/6‏/2019 at 18:32, ابو البشر said:

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

Expand  

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

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

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

للرفع

[مسفر]

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

 

 

ضغطF1.mdbFetching info...

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

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

  في 19‏/6‏/2019 at 23:11, مسفر said:

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

 

 

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

Expand  

أستاذ @مسفر

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

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

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

 

  في 18‏/6‏/2019 at 20:13, kanory said:

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

 

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

Expand  

 

[kanory]

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

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

أستاذى @kanory

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

[ابو جودي]

  في 20‏/6‏/2019 at 05:11, محمد احمد لطفى said:

أستاذى @kanory

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

Expand  

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.mdbFetching info...

[مسفر]

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

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

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

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