اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

______.rar

رابط هذا التعليق
شارك

أخي الكريم

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

______.rar

رابط هذا التعليق
شارك

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

اخي صباح

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

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

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

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

______.rar

رابط هذا التعليق
شارك

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

______.rar

رابط هذا التعليق
شارك

أخي الكريم

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

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

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

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

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

تم تعديل بواسطه Dream_Works
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

______.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information