وضع اختصار للفورم

[صالح بوبك]

هل استطيع وضع اختصار f3 اوf4اوf5 وغيرها لفورم معين
مثلا عندي زر امر بالنموذج اريد عند الضغط مثلا على f3 ينفذ الامر 
ارجو من الخبراء المشاركة جزاكم الله خير

[ابوخليل]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
    DoCmd.close
End If
If KeyCode = vbKeyF2 Then
msgbox"مرحبا"
End If
End Sub

27 هو زر الهروب Esc

جرب زر F2 اولا

[.Azhar]

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

تحيه لك اخي ابو خليل ,,, اسف لغيابي فتره عن المنتدى وذلك لانشغالي في العمل .

تحيه لك اخي العزيز صالح . هنالك طريقتين لجعل اختصارات للازرار في النموذج , سوف اعطيك اسهلها ,

اولا . ما هي نسخة الاكسس لديك . ان كانت 2007 فما فوق , اتبع التعليمات التالية .

مثلا لدينا نموذجين في قاعدة البيانات الاول اسمه frm1 والثاني اسمه Frmm .

نريد وضع زر على الفورم الاول يفتح الفورم الثاني .

لنفترض ان الفورم الثاني هو للحسابات .

نضع زر على الفورم الاول ونكتب لتسمية هذا الزر حسابات نضع قبل كلمة حسابات هذا الحرف &  انتبه جيدا .

سوف لن يظهر هذا الحرف عند فتح النموذج لكن سوف نشاهد خط صغير اسفل حرف الحاء , ال هو اول حرف من حسابات .

هنا تجد متعة الاكسس اذا رأينى خط اسفل هذا الحرف يعني ان هذا الزر اختصاره في الكيبورد هو Alt + ح

ارفق لكم مثال عن ذلك .

ملاحظة اذا كانت اسماء الازرار بالعربي يجب الانتباه الى تحويل كتابه الكيبورد عربي والعكس بالعكس .

Database1.rar

[.Azhar]

وبذلك تستطيع ان تجعل كل زر في الفورم له اختصار وايضا المستخدم يصل ويعرف الاختصار من خلال الخط الصغير تحت الحروف الاولى من تسمية كل زر .

اما الطريقة الثانية ان شاء الله سوف اقوم بشرحها في وقت اخر .

تحياتي للجميع .

[وضاح النوبه]

واذا كانت مفاتيح ارقام مثلا رقم 1 يفتح فورم كذا ومفتاح 2 يفتح فورم كذا

[Shivan Rekany]

20 ساعات مضت, وضاح النوبه said:

واذا كانت مفاتيح ارقام مثلا رقم 1 يفتح فورم كذا ومفتاح 2 يفتح فورم كذا

اليك هذا
في حدث عند فتح النموذج اكتب هذا
 

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

وفي حدث عند الضغط الازرار 
اكتب هذا
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Then
MsgBox "مرحبا"
End If
End Sub

واضغط على مفتاح شيفت مع رقم واحد راح يظهر مسج بوكس بيقولك مرحبا
وتكدر بدل مسج بوكس تنطي اي كود فيها
48 = 0

49 = 1

50 = 2

51 = 3

52 = 4

53 = 5

54 = 6

55 = 7

56 = 8

57 = 9

 

[وضاح النوبه]

 اخ شفان ماضبط معي ممكن نماذج يوضحكيف افتح النماذج بالارقام ونشكرك والقايمين والمشاركين

تم تعديل فبراير 12, 2017 بواسطه وضاح النوبه

[وضاح النوبه]

23 ساعات مضت, Shivan Rekany said:

اليك هذا
في حدث عند فتح النموذج اكتب هذا
 

4 ساعات مضت, وضاح النوبه said:

 اخ شفان ماضبط معي ممكن نماذج يوضحكيف افتح النماذج بالارقام ونشكرك والقايمين والمشاركين

4 ساعات مضت, وضاح النوبه said:

 اخ شفان ماضبط معي ممكن نماذج يوضحكيف افتح النماذج بالارقام ونشكرك والقايمين والمشاركين

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

وفي حدث عند الضغط الازرار 
اكتب هذا
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Then
MsgBox "مرحبا"
End If
End Sub

واضغط على مفتاح شيفت مع رقم واحد راح يظهر مسج بوكس بيقولك مرحبا
وتكدر بدل مسج بوكس تنطي اي كود فيها
48 = 0

49 = 1

50 = 2

51 = 3

52 = 4

53 = 5

54 = 6

55 = 7

56 = 8

57 = 9

 

 

[Shivan Rekany]

اليك هذا

استخدم ارقام 1 و 2 و 3 اللي فوق الحروف اي في الاعلى الكيبور وليس الارقام الجانبي

فتح نماذج بواسطة ارقام.rar

[أبو عبدالله الحلوانى]

السلام عليكم 

وهذه فكرتى - أقصد فكرة أخرى  -

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

ننشىء ماكرو - بداخله ماكرو فرعى (SubMacro) - أمام الماكرو الفرعى سنكتب :  ^ 1

او أى رقم أو أى حرف نريد

ثم نحفظ الماكرو باسم (AutoKeys)   هذا الأسم ضرورى لكى يعمل الماكرو بشكل تلقائى بمجرد الضغط على أزرار لوحة المفاتيح 

ملاحظة:

1- العلامة ^ تعنى زر كنترول (Ctrl) : يعنى نضغط المفتاحين معا (Ctrl + 1) ويمكن تغير 1 لأى حرف أو رقم آخر

2- يمكن الاستغناء عن مفتاح الكنترول والاكتفاء بزر واحد فقط - يعنى ازالة ^ من اسم الماكرو الفرعى ولكن سيتطلب الأمر رموز مع المفاتيح 

مثل: {F1}  تكتب هكذا - ولا أدرى كيف نستخدم الأحرف أو الأرقام بدون ^  فمن يدرى فليتصدق علينا بها.

والآن هذا مثال طبقت الفكرة على مثال أستاذ شيفان - من باب الصراحة  - 

افتح الملف واضغط على هذه المفاتيح  

F3

Ctrl + 4

Ctrl +5

Ctrl+6

 

فتح نماذج بواسطة ارقام.rar

[وضاح النوبه]

في ‏١٥‏/‏٥‏/‏١٤٣٨ at 16:33, Shivan Rekany said:

اليك هذا

استخدم ارقام 1 و 2 و 3 اللي فوق الحروف اي في الاعلى الكيبور وليس الارقام الجانبي

فتح نماذج بواسطة ارقام.rar

 

عمل زر يحذف العميل في حاله لم يوجد بسجله مبلغ

العملاء.rar

[Shivan Rekany]

18 ساعات مضت, وضاح النوبه said:

 

عمل زر يحذف العميل في حاله لم يوجد بسجله مبلغ

العملاء.rar

اخي وضاح 

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

هذا الموضوع مختصة بوضع اختصارات للمفاتيح الكيبورد
اكدر اعمل لك ما تريد
لكن من الافضل ان تفتح موضوع جديد وتشرح ما تريد
لكي يفيد منه كل الاعضاء

تحياتي

[وضاح النوبه]

في ‏١٥‏/‏٥‏/‏١٤٣٨ at 16:33, Shivan Rekany said:

اليك هذا

استخدم ارقام 1 و 2 و 3 اللي فوق الحروف اي في الاعلى الكيبور وليس الارقام الجانبي

فتح نماذج بواسطة ارقام.rar

 

في ‏١٥‏/‏٥‏/‏١٤٣٨ at 16:33, Shivan Rekany said:

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

 

تم تعديل مارس 9, 2017 بواسطه وضاح النوبه