كيف استطيع تخصيص زر الانتر في لوحة المفاتيح لزر معين

[ازهر عبد العزيز]

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

333.accdb

[ابو جودي]

ممكن توضح طلبك والغرض منه لو تكرمت

[ازهر عبد العزيز]

استاذي @ابا جودى القصد ان عند الضغط على انتر يتم فقط تشغيل الاستعلام  لاغير  أي ستكون وظيفته فقط تفعيل زر تشغيل الاستعلام  وليس لاتنقل بين الحقول

تم تعديل يوليو 9, 2019 بواسطه ازهر عبد العزيز

[ابو جودي]

اعتقد والله اعلم لا يمكن ايقاف عمل زر الانتر او تغيير خصائصه

تم تعديل يوليو 9, 2019 بواسطه ابا جودى

[Hamdi Edlbi-khalf]

السلام عليكم

بعد إذن الأخ الغالي أبا جودي

ما تحتاجه في المرفق

 الملاحظات :

تخصيص Enter.accdbحتى يعمل تخصيص زر الإنتر

عليك بجعل Key Preview

إلى Yes

ووضع الكود في حدث KeyDown

If KeyCode = vbKeyReturn Then
'طريقتان لاستدعاء الزر إما بوضع الشيفرة التي وراءه
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "U1"
'DoCmd.SetWarnings True
'Me.Requery
'DoCmd.Close


'  أو باستدعاء الزر  بـ 
'call
Call الأمر11_Click

End If

 

تم تعديل يوليو 9, 2019 بواسطه Khalf

[ابو جودي]

بداية هذا السطر من الكود لا حاجة لنا به اصلا

Me.Requery

 

اخى

44 دقائق مضت, Khalf said:

السلام عليكم

بعد إذن الأخ الغالي أبا جودي

ما تحتاجه في المرفق

 الملاحظات :

تخصيص Enter.accdbحتى يعمل تخصيص زر الإنتر

عليك بجعل Key Preview

إلى Yes

ووضع الكود في حدث KeyDown

If KeyCode = vbKeyReturn Then
'طريقتان لاستدعاء الزر إما بوضع الشيفرة التي وراءه
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "U1"
'DoCmd.SetWarnings True
'Me.Requery
'DoCmd.Close


'  أو باستدعاء الزر  بـ 
'call
Call الأمر11_Click

End If

 

ثانيا انا ليست مشكلتى فى تشغيل الاستعلام من مفتاح انتر

انظر طلب اخونا الجبيب 

2 ساعات مضت, ازهر عبد العزيز said:

استاذي @ابا جودى القصد ان عند الضغط على انتر يتم فقط تشغيل الاستعلام  لاغير  أي ستكون وظيفته فقط تفعيل زر تشغيل الاستعلام  وليس لاتنقل بين الحقول

لذلك قمت بهذا الرد 
 

 

2 ساعات مضت, ابا جودى said:

اعتقد والله اعلم لا يمكن ايقاف عمل زر الانتر او تغيير خصائصه

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

اما ايقاف عمل الانتر نهائيا او سلبه خواصه بالتنقل بين الحقول هذا ما قمت بالرد عليه وقلت مسبقا 
اعتقد والله اعلم 

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

تم تعديل يوليو 9, 2019 بواسطه ابا جودى

[Hamdi Edlbi-khalf]

السلام عليكم

لا يمكن لأحد أن ينتقص من ابا جودي أو علمه أو جهده و مشاركتي ليس فيها أي قصد من ذلك

الان, ابا جودى said:

بداية هذا السطر من الكود لا حاجة لنا به اصلا

معك حق فالعمل سيتم دونه و لكن ماذا لو أردت فتح الجدول كما كنت أقوم أثناء التجربة دون إغلاق النموذج عندها سيكون له ضرورة و قد تركته.

نعود إلى :

الان, ابا جودى said:

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

شكراً على التنبه و إليك ما ترنو إليه:

تعديل الكود بإضافة السطور التي تعطل خاصة   TaB Stop

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "U1"
'DoCmd.SetWarnings True
'Me.Requery
'DoCmd.Close
'هنا نعطل tab stop
Me.itemname.TabStop = False
Me.Q.TabStop = False
Me.itemid.TabStop = False

Call الأمر11_Click

End If

End Sub

الآن في حدث Key up

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
' الأمر تلفعيل Tab stop
' حتى تتمكن من استخدام tab
Me.itemname.TabStop = True
Me.Q.TabStop = True
Me.itemid.TabStop = True
End Sub

تخصيص Enter.accdb

و أكرر اعتذاري ... مرة أخرى ...

 

ملاحظة لأي مبتدئ مثلي يبحث عن هذه الطريقة :  الأحداث المذكورة ستجدها في ورقة الخصائص للنموذج

و الله من وراء القصد

تم تعديل يوليو 9, 2019 بواسطه Khalf

[ابو جودي]

16 دقائق مضت, Khalf said:

السلام عليكم

لا يمكن لأحد أن ينتقص من ابا جودي أو علمه أو جهده و مشاركتي ليس فيها أي قصد من ذلك

معك حق فالعمل سيتم دونه و لكن ماذا لو أردت فتح الجدول كما كنت أقوم أثناء التجربة دون إغلاق النموذج عندها سيكون له ضرورة و قد تركته.

نعود إلى :

شكراً على التنبه و إليك ما ترنو إليه:

تعديل الكود بإضافة السطور التي تعطل خاصة   TaB Stop

و أكرر اعتذاري ... مرة أخرى ...

 

اخى الحبيب الاستاذ @Khalf   ماذا تقول يا رجل وعن اى علم تتحدث ومن هو ابا جودى الذى تحدثه بهذه النمطية  وخذخ اللهجة القاسية
يبدو انك لا تعلم تعالى لاعرفكم عليه 
- عبد ضعيف فقير الى الله تعالى
-طالب علم
-يتمنى على الله تعالى ان يترك من خلفه بعد مماته ما قد ينتفع منه عل الله ان يتقبل فيكون صدقة جارية ليخفف عن هذا العبد آثامه

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

هههههه انا ابسط كثيرا كثيرا كثرا كثيرا كثيرا مما اعتقدتم

واتمنى على الله تعالى ان لا تسئ الظن بأخيك مستقبلا 
كلامى فقط ويعلم الله للتوضيح ليس الا لكم ولاساتذتى الكرام من بعدكم حتى لا يدور بخلد من يقرأ المشاركه ان الموضوع يدور حول تخصيص الكود لزر الانتر 
 

واحببت التوضيح لانى فعلا لا اعلم ولا ادرى حتى اتعلم انا ايضا مع اخونا الحبيب @ازهر عبد العزيز   فيكون لى نصيب من العلم وله حظ من الحسنات فى ذلك

احبكم فى الله ولله عزوجل لا غير 

دمتم بكل الخير والسعادة

واستأذن وقت الصلاة اعود اليكم بعد قليل ان شاء الله

تم تعديل يوليو 9, 2019 بواسطه ابا جودى

[ابو جودي]

منذ ساعه, Khalf said:

و إليك ما ترنو إليه:

تعديل الكود بإضافة السطور التي تعطل خاصة   TaB Stop

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

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

عذرا على التأخير لم احاول التجربة او الفهم الا بعد الصلاة 

جزاكم الله خيرا استاذى العزيز واخى الحبيب الاستاذ @Khalf

تم تعديل يوليو 9, 2019 بواسطه ابا جودى

[Hamdi Edlbi-khalf]

شكراً على كلماتك الطيبة أتمنى لكم التوفيق

 

[ابو جودي]

3 دقائق مضت, Khalf said:

شكراً على كلماتك الطيبة أتمنى لكم التوفيق

 

بل كل الشكر والتقدير لكم تعلمت منكم وعلى يديكم شيئا كنت اجهله 

[أبو إبراهيم الغامدي]

أهلا بك @ازهر عبد العزيز

حتى ينتهي @ابا جودى و @Khalf من العتاب إليك الطريقة

في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!

[ابو جودي]

4 دقائق مضت, أبو إبراهيم الغامدي said:

أهلا بك @ازهر عبد العزيز

حتى ينتهي @ابا جودى و @Khalf العتاب إليك الطريقة

في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!

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

ثانيا على ماذا نحصل من هذا الذى اوضحته استاذى اعذرنى لم افهم
 

اها توقف عمل زر الانتر فعلا 

 

 

تم تعديل يوليو 9, 2019 بواسطه ابا جودى

[ازهر عبد العزيز]

الأستاذة الكرام @Khalf @ابا جودى أبو إبراهيم الغامدي شكرا لكم جزيلا معكم تم الحل ربي يحفظكم 

[ابو جودي]

2 دقائق مضت, ازهر عبد العزيز said:

الأستاذة الكرام @Khalf @ابا جودى أبو إبراهيم الغامدي شكرا لكم جزيلا معكم تم الحل ربي يحفظكم 

انا تعلمت معك ولم اقدم اى شئ مطلقا

كل الشكر والتقدير لاساتذتى الكرام

الاستاذ @Khalf  /  الاستاذ @أبو إبراهيم الغامدي 

[Hamdi Edlbi-khalf]

شكراً للطفك

@ابا جودى

دائماً أنت السباق بارك الله بك

و كثيراً ما انتفعت بمشاركاتك القيمة 

و الشكر للأستاذ @أبو إبراهيم الغامدي

 

[أبو أحمد]

الاساتذة الكرام 

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

وقام الاستاذ / Khalf

جزاه الله خيرا بعمل ذلك عن طريق الكود 

في حدث عند مفتاح لاعلى

If KeyCode = vbKeyReturn Then

SendKeys "          "
End If
وكان هو المطلوب بالضبط 

ولكن ظهرت مشكلة انه أحيانا لا يقوم بهذه الوظيفة على بعض الاجهزة 

فأرجو المساعدة ليعمل على اي جهاز فلا اعلم سبب المشكلة مع العلم انني جربته على ويندوز اكس بي وكذلك ويندوز سفن 
وعلى اكسس 2003 وعلى اكسس 2010 

فيعمل على البغض ولا يعمل على البعض

افيدوني جزاكم الله خيرا

 

تم تعديل فبراير 24, 2020 بواسطه أبو أحمد