• 0
فيصل عبدالله*

كود لمفاتيح الاسهم يمين يسار للتنقل بين الحقول لا يعمل

سؤال

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

الاخوة الافاضل المشرفون بمنتدى الفريق العربي للبرمجة المحترمون

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

ولكم جزيل الشكر

Test2.rar

تم تعديل بواسطه فيصل عبدالله*
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

16 إجابة على هذا السؤال .

  • 0

ارجوا المعذرة

حاولت رفع الملف المرفق ولم يتم التحميل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وعليكم السلام اخي :)

 

سؤالك غير واضح :(

رجاء الايضاح بمثال ويفضل بصور كذلك ان امكن :)

 

 

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا اخي جعفر على الرد

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

وهذا هو الكود الذي استخدمة :

Private Sub movkey(Keymode As Integer)

On Error Resume Next

Select Case Keymode

Case vbKeyDown

DoCmd.GoToRecord , , acNext

Case vbKeyUp

DoCmd.GoToRecord , , acPrevious

Case vbKeyLeft

SendKeys "{TAB}", True

Case vbKeyRight

SendKeys "+{TAB}", True

End Select

End Sub

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طيب:

1. اذا كنت على اول خانة على اليمين ، وضغطت على زر السهم اليمين ، ويش لازم يصير ؟

2. اذا كنت على اخر خانة على اليسار ، وضغطت على زر السهم اليسار ، ويش لازم يصير ؟

 

 

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي جعفر

اذا ضغطت مفتاح السهم الايسر ينتقل المؤشر لليسار

واذا ضغطت مفتاح السهم الايمن ينتقل المؤشر لليمين

هذا كل ما في الامر

وسؤالي لماذا لا يستجيب الكود

تم تعديل بواسطه فيصل عبدالله*
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل :)

 

انت لا تحتاج الى كود لهذا العمل ، وانما لإعادة تنظيم Tab Index الحقول ، فكل الذي عليك فعله هو اعادة الترقيم كما هو في الصورة المرفقة:

post-273849-0-36749100-1414264764_thumb.

 

 

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي جعفر

 

لقد تأكدت من Tab Index ولا يوجد به اي خلل وهي مرتبة كما اشرت انت ، وبامكانك التأكد من الملف المرفق

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

 

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

ولك مني خالص التحية والشكر والعرفان على تفاعلك الجاد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي جعفر احب ابشرك 

 

الحمدلله لقد وجدت الحل

 

 وهو كتابة الكود الخاص بـهذا الشكل :

 

Private Sub movkey(Keymode As Integer)

On Error Resume Next
Select Case Keymode
Case vbKeyDown
DoCmd.GoToRecord , , acNext
Case vbKeyUp
DoCmd.GoToRecord , , acPrevious
Case vbKeyLeft
SendKeys "{TAB}", True
SendKeys "{TAB}", True
Case vbKeyRight
SendKeys "+{TAB}", True
SendKeys "+{TAB}", True
End Select

End Sub 
 
 
شكرا اخي جعفر على تعاونك
وخالص تحياتي للجميع 
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي فيصل :)

 

بهذا الامر:

SendKeys "{TAB}", True

 

فانت تأمر الكمبيوتر ان يتصرف كأنه ضغط على زر TAB ، وهو ما يجعل تنقل الايقونه من حقل الى آخر ،

ولما تعطيه الامر مرتين ، فانك كأنما تضغط مرتين ، اي الذهاب الى الحقل الاول ثم الثاني !!

 

انا جربت مرفقك السابق ، واتضح انه يشتغل بدون مشاكل!!

 

نصيحتي لك بأن تفحص برنامجك الاكسس ، وقاعدة بياناتك ، فقد يكون في احدهما عطب ، مما لا يجعلها تقبل الاوامر بطريقة صحيحة :(

لأنك لو اعطيت شخص آخر برنامجك ، فسيلاحظ المشكلة ، وسيرجع اليك بالخطأ الذي سيلاحظه :(

 

 

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي جعفر 

 

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

 

ساكون على تواصل معك اذا حدثت أي مستجدات بخصوص المشكلة

 

مرة ثانية اشكر تواصلك الدائم ، ومتابعتك للموضوع

لك مني جزيل الشكر والامتنان

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طيب جرب المرفق ، واللي انا عملته حسب مشاركتي رقم 9 :)

يعني الاسهم اليمين واليسار ما خليت لهم كود ، وانما تنتقل الى الجهتين حسب ترتيبي لـ Tab Index :)

 

ورجاء تخبرنا نتيجة التجربة :)

 

 

جعفر

299.Test.mdb.zip

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المعذرة لم الاحظ وجود تعليقك الاخير

وغدا ان شاء الله اخبرك بالنتيجة وانا في العمل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي جعفر

الف مبرووووووووووووك نجحت الطريقة علما انني استخدمتها مسبقاً في المشاركة رقم 9 التي اشرت اليها ، ولكني لم انتبه لايقاف الكود SendKeys "{TAB}", True ولذلك اخبرتك ان المشكلة لا تزال موجودة

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله :)

وانت اللي الف مبرووووووووووووك :)

 

 

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .