بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا

اخي الفاضل : الهيثم

جرب هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)  If KeyCode = 116 Then  Call OCD_Click End If  If KeyCode = 120 Then Call  Print2_Click End If  If KeyCode = 119 Then Call Print_Click End If  If KeyCode = 113 ThenCall VisaPayee_ClickEnd If If KeyCode = 122 ThenCall CashPayee_ClickEnd If End Sub

بالتوفيق

الأستاذة الكريمة/ زهرة

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

الكود الذي أوردته أعلاه يعمل بشكل طبيعي إلا على 113 وهو F2  و 122 وهو F11

ولكنك إجابتك ألهمتني أن المشكلة ليست في الكود ، فتنبهت. إلى أن الكود لا يعمل إذا كان المؤشر متوقف لحظتها في النموذج الفرعي أما إذا وضعت مؤشر الماوس

على أي حقل في النموذج الرئيس فإن الكود يعمل بنجاح.

فنسخت  أوامر زر 113 و 122 مع كود التنفيذ للزر إلى النموذج الفرعي فأصبح يعمل بنجاح من أي مكان يكون فيه المؤشر سواء في النموذج الرئيس أو الفرعي.

فهل يوجد لديك حلا أبسط من هذا ، فإن كان فهاتيه ، ففيه فائدة لهذا ولغيره مستقبلا.

تمنياتي لك بالتوفيق والنجاح

أخوك/الهيثم

اخي الفاضل

هل ازرار الأوامر موجوده في النموذج الرئيسي ام في النموذج الفرعي !!!!

شكرا على اهتمامك

الأزرار كلها في النموذج الرئيس

أختي الكريمة

وضعت الأكواد كما ذكرت ، ولكن عند الضغط على مصحح الأخطاء Debug 

تظهر الرسالة التالية

لا يوجد مشكلة بارك الله بك

فقط غير اسم زر الأمر الأساسي لديك  في النموذج الى  Print1

ثم استبدله الكود القديم بهذا الجديد الخاص بزر الأمر لأن امر  Print  من الأوامر المحجوزه للأكسيس

If KeyCode = 119 Then Me.Print1.SetFocus Call Print1_Click End If

أختي الكريمة

الأمر Print يعمل معي منذ سنوات بدون أي مشكلة وعلى كل حال غيرته إلى Print1  في كل النموذج والفورم وجاءت نفس الرسالة

فاستبعدت كل الآوامر الخاصة بأمر Print من النموذج وعملت Debug وقبل التصحيح لأرى إذا كان الكودات الأخرى ستعمل أم لا وكانت النتيجة أن أكواد الأمر 113 و 122 لم تعمل بينما عملت البقية

حسنا اخي الكريم

ما نوع نسخة الأكسيس التي لديك

2000

نسخة اكسيس 2000 قديمه 

لماذا لم تطور النسخة على اقل تقدير الى 2003 لأنها افضل النسخ

لأن الحلول التي اعطيتك اياها تعمل على اكسيس 2003 بشكل ممتاز جدا 

شكرا أختي الكريمة

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

قد يحتاج هذا الأمر إلى بحث مطول لإزالة المعوقات.

عموما وكما أسلفت أن الأكواد كلها تعمل بعدما وضعت منها نسخة على النموذج الفرعي.

مشروعي القادم هوتحويل مالدي  إلى  MS SQL SERVER

ساحتاج إلى جهودكم.

تحياتي وتقديري