اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

هل استطيع وضع اختصار 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 اولا

قام بنشر

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

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

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

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

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

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

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

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

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

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

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

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

Database1.rar

قام بنشر

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

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

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

  • 2 years later...
قام بنشر
  في 10‏/2‏/2017 at 16:10, وضاح النوبه said:

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

Expand  

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

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

 

  • Like 2
قام بنشر (معدل)

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

تم تعديل بواسطه وضاح النوبه
قام بنشر
  في 11‏/2‏/2017 at 13:08, Shivan Rekany said:

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

  في 12‏/2‏/2017 at 08:52, وضاح النوبه said:

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

Expand  
  في 12‏/2‏/2017 at 08:52, وضاح النوبه said:

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

Expand  
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

 

Expand  

 

قام بنشر

السلام عليكم 

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

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

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

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

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

ملاحظة:

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

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

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

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

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

F3

Ctrl + 4

Ctrl +5

Ctrl+6

 

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

  • 4 weeks later...
قام بنشر
  في 12‏/2‏/2017 at 13:33, Shivan Rekany said:

اليك هذا

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

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

Expand  

 

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

العملاء.rar

قام بنشر
  في 8‏/3‏/2017 at 18:01, وضاح النوبه said:

 

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

العملاء.rarFetching info...

Expand  

اخي وضاح 

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

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

تحياتي

  • Like 1
قام بنشر (معدل)
  في 12‏/2‏/2017 at 13:33, Shivan Rekany said:

اليك هذا

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

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

Expand  

 

  في 12‏/2‏/2017 at 13:33, Shivan Rekany said:

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

Expand  

 

تم تعديل بواسطه وضاح النوبه

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