تنفيذ مفتاح على نموذج فرعي

[valley]

السلام عليكم

الرجاء من الاخوان كيف يمكن ارفاق ملف في الرسالة

اخواني الكرام

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

Private Sub No_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 27 And CmdExit.Enabled = True Then
             CmdExit_Click
             Exit Sub
         ElseIf KeyCode = 116 And CmdAdd.Enabled = True Then
             CmdAdd_Click
             Exit Sub
End If
End Sub

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

Private Sub action_no_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 27 And Forms![master]!CmdExit.Enabled = True Then

             Call CmdExit_Click
             Exit Sub
         ElseIf KeyCode = 116 And Forms![master]!CmdAdd.Enabled = True Then
             Call CmdAdd_Click
             Exit Sub
End If
End Sub

الكود الثاني يوجد به خطأ فالجاء من الاخوه المساعدة

ولكم خالص الشكر والتقدير

تم تعديل مارس 31, 2006 بواسطه valley

[valley]

للرفع

[valley]

الاخوه الكرام

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

الرجاء منكم القاء نظرة على هذا الكود

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

وهي تنفيذ حدث في فورم فرعي من فورم رئيسي وليكن الحدث Click لمفتاح موجود على نموذج فرعي والامر يصدر من النموذج الرئيسي

ولكم خالص الشكر

Subform.zip

[rudwan]

السلام عليكم

أضفت لك حدث بسيط في النموذج الفرعي و هو عند النقر على الرقم المسلسل , تصبح قيمة الحقل D1=15

من النموذج الرئيسي اضغط على الزر الجديد Command1 فيتم تفعيل الحدث الموجود على النموذج الفرعي

Subform.rar

[valley]

الأخ الفاضل rudwan

جزاك الله خير

هذا بالنسبة لتفيذ الامر الموجود على نموذج فرعي

Forms![master]!_{.Form.action_no_Click}

_{فكيف يمكن تنفيذ الضغط على المفتاح CmdExit الموجود على النموذج الرئيسي Master وانا موجود على النموذج Sub}

_{نفذت هذا الكود واعطاني خطأ}

_{Forms![master].Form.CmdExit_Click}

_{ولم احصل على نتيجة}

_{ولك خالص تحياتي}

[rudwan]

يمكن أن تضع الكود :

Forms!master!CmdExit.SetFocus

و منه تضغط مفتاح الخروج

[valley]

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

مثل هذه الطريقة

Forms![master]!_{.Form.action_no_Click}

_{لانها ستوفر عنائا كثيرا}

_{وهي الاهم عندي}

_{لان المفاتيح موجودة على النموذج الرئيسي}

_{قمت بتعريف المفاتيح Global}

_{لكن ستقابلني عدة مشاكل هي ان كل مفتاح خروج في نموذج عند تنفيذه معه استعلامات ينفذها تختلف من نموذج لاخر}

_{فهل من حل لهذه المشكلة}

_{ولكم خالص البشكر والتقدير}

[rudwan]

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

أما اذا كان زر الأمر الموجود على النموذج الرئيسي ينفذ تعليمة ما غير ذلك كأن يحسب لك قيمة معينة أو يحدث قيمة حقل عليه , فممكن أن تصمم دالة أو اجراء تعرفه في الوحده النمطيه و تستدعيها من النموذج الفرعي ؟

[valley]

اخي الكريم جزاك الله خير على مساعدتك المستمرة

وفي ميزان حسناتك ان شاء الله