نسخ بيانات من النموذج الرئيسي الى النموذج الفرعي

[صباح حسين]

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

______.rar

[Dream_Works]

أخي الكريم

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

Me.reword.Controls("Epression") = Me.Status

Me هو متغير يشير إلى النموذج الحالى ( الذي تم تشغيل الكود منه ) و اعتقد أنك ستضع الكود في حدث داخل النموذج الرئيسي

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

Controls هي خاصية تشير إلى جميع العناصر ( مربعات نصوص , أزرار ... الخ ) الموجودة في النموذج ( و هو الفرعي حسب كلمة reword السابقة )

("Epression") هو اسم العنصر الموجود في النموذج الفرعي و المراد نقل البيانات إليه

أرجو أن يكون مفهوماً ... لأنني استفدت جداً من هذه المعلومات عندما عرفتها سابقاً ... و هي كيفية التحكم بجميع النماذج و التقارير و غيرها من داخل نموذج واحد

[صباح حسين]

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

______.rar

[يوسف أحمد]

بارك الله فيك اخي Dream_Works

اخي صباح

بالنسبة للطلب الخاص بالغاء التنفيذ في حالة كان مربع النص فارغ فقد تم عمله

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

الاستفادة من حدث عند النقر المزدوج غير ممكنة. هذا ان كنت فهمت قصدك

والله اعلى واعلم

______.rar

[Dream_Works]

اخي هل من الممكن ان نضع شرط باستعمال (if ) بحيث اذا كان الحقل في النموذج الرئيسي فارغ ان لا ينفذ الامر

وضع إضافة بسيطة في الكود السابق ... ليصبح كالتالي

If Not IsNull(Me.Epre) Then
Me.reword.Controls("Epression") = Me.Epre
End If

واذا امكن اخي الكود الذي يجعل النموذج الفرعي غير مرئي عند الضغط مرتين على الزر مكافات

للإخفاء

Me.reword.Visible = False

للإظهار

Me.reword.Visible = True

[Dream_Works]

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

الاستفادة من حدث عند النقر المزدوج غير ممكنة. هذا ان كنت فهمت قصدك

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

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

[صباح حسين]

السلام عليكم . شكراً اخي (Dream_Works) والاخ (yousef) على ردهم الشافي . الحقيقة لقد جربت الاستفادة من الضغط مرتان ولم افلح . اخي(Dream_Works) لم افهم جيداً معنى تشابه اسماء النوذج الفرعي مع نموذج اخر ولكن الان عند الضغط على زر فتح النموذج يظهر لدي نموذجان كيف السبيل التخلص منها . ارجو شرح ذلك بصورة وافية لكي لا اقع مرة اخرة في نفس المشكلة.واجو التواصل معي على الرغم من كثرة اسئلتي لاني مقتنع ان افضل الطرق للتعلم هي الاقدام على العمل ومن ثم السؤال عن اي مشكلة تواجهني من ذوي الاختصاص .لذلك اطمح في سعة صدر المشرفين والاعضاء . مع التقدير للجميع

______.rar

[Dream_Works]

أخي الكريم

أعتذر لأني لم أشرح بشكل جيد

أنا قصدت بالاسم الآخر هو اسم المربع الذي يحتوي على النموذج الفرعي داخل النموذج الرئيسي ( Subform ) ... و هو أحد مكونات النموذج الرئيسي الاعتيادية التي تستخدم في استيراد أو استرجاع نموذج آخر

بالنهاية ... أعتقد أنه يمكنك الاستغناء عن فتح النموذج الفرعي بالزر ( " المكافآت " ) و الاكتفاء بإظهار و إخفاء ال Subform ( المربع المذكور سابقا ) الموجود في النموذج الرئيسي

يمكنك بكل بساطة إزالة كل الكود في زر المكافآت و الاكتفاء بسطر واحد كالتالي

Private Sub أمر40_Click()
reword.Visible = True
End Sub

تم تعديل مارس 12, 2008 بواسطه Dream_Works

[صباح حسين]

السلام عليكم اخي العزيز (Dream_Works) الف شكر لك لقد وصلت الفكرة ان شاء الله . اخي لدي استفسار اخر ان امكن

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

[Dream_Works]

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

[صباح حسين]

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

______.rar

تم تعديل مارس 14, 2008 بواسطه صباح حسين