السلام عليكــم ورحمـة الله وبركاتــه
اخواني الأعزاء
المرفق كما هو موضح بعنوان المشاركة ... فالتوافق بين سجلات النموذج الرئيسي والنموذج الفرعي يكون من خلال النموذج الرئيسي بالطريقة المعتادة اي حينما يكون النموذج الفرعي هو احد العناصر ضمن النموذج الرئيسي . اما في المثال المرفق فيمكن التنقل بين السجلات من خلال النموذجين.
ارجو ان يستفاد من المثال
مع فائق الاحترام والتقدير
اخوكم / يوسف احمد
وعليكم السلام ورحمة الله وبركاته
اخي الكريم احمد يوسف بارك الله بك على جهودك الطيبة دائما معنا ،،، فالمثال جميل ويكون اجمل لو استخدمنا معه هذا الامر
DoCmd.MoveSize 2220, 1400, 7090, 7230
لمن يريد معرفة وظيفة هذا الامر فهو للتحكم بعرض ابعاد وحجم النموذج على الشاشة والتحكم يكون بهذا الشكل :
DoCmd.MoveSize(Right, Down, Width, Height)
لك احترامي وتقديري وجزاك الله كل خير
اخوك ابو عدنان
</B>
تحية طيبة
المثال يحتوى على فكرة جديدة... فى استخدام النماذج الفرعية التى عادة ما تكون مع نفس النموذج الرئيسى على نموذج واحد...
جزاك الله كل خير وموفق
تم تعديل هذه المشاركة بواسطة هانى عوض في 20 نوفمبر 2008 في 12:06
اخي الكريم ابو عدنان
شكراً جزيلاً لك على مرورك وإضافتك الجميلة .. بارك الله فيك ونفع بعلمك
تقبل فائق الاحترام والتقدير
مثال رائع بارك الله فيك
بارك الله فيك اخي هاني عوض
وشكراً جزيلاً لك على مرورك وتعليقك
اقتباسالمثال يحتوى على فكرة جديدة... فى استخدام النماذج الفرعية التى عادة ما تكون مع نفس النموذج الرئيسى على نموذج واحد...
نعم .. وهذا ما دعاني الى طرحه لفائدة اخواني هنا .. فكثير من الاحيان تكون هناك بيانات ( نماذج ) فرعية كثيرة ويصعب ادراجها بنفس النموذج وبهذه الطريقة ممكن ان يتم عمل النماذج الفرعية منفصلة وفتحها من النموذج الرئيسي والاستفادة اكثر من عملية توافق السجلات بين النموذجين.
شكراً لك مرة اخرى مبدعنا هاني وسعدت بمشاركتك
اخي شاور
شكراً جزيلاً لك على المرور .. بارك الله فيك
جزاكم الله خيراً اخواني وبارك فيكم .. وما هذا الا شئ قليل ازاء ما تقدمونه ويقدمه لنا هذا المنتدى الغالي
اسأل الله ان يعيننا على رد الجميل
بارك الله فيك وجزاك الله خير اخي الفاضل يوسف
مثال اكثر من رائع
الله يعطيك الصحه والعافية
اتق الله حيث ماكنت
أخي يوسف احمد
جزاك الله كل خير على هذا المثال بفكرته المفيدة فعلا
تقبل تحياتي ودعائي لك بالتوفيق دوما
بارك الله فيك اخي الغالي at_aziz
شكراً جزيلاً لك على مرورك .. سلمك الله من كل مكروه وعافاك
استاذي واخي الغالي اكسير .. شرف لي مرورك وتعليقك
جزاكم الله خير اخواني على دعواتكم الطيبة .. وفقكم الله
جزاك الله خير اخي ناصر
وشكراً على مرورك الكريم وحرصك على فائدة اخوانك
طلباتك اوامر :
شرح الطريقة حسب المثال المرفق بالمشاركة وهو عبارة عن تدوين السيارات للأشخاص .. وهو مجرد مثال :
1: يتم عمل جدول رئيسي اسمه tblMain ويتكون هذا الجدول من الحقول التالية:
أ: حقل الرقم وهو معرف واسمه Id ... نوعه رقمي وهذا الحقل هو المفتاح الأساسي لهذا الجدول .
ب: حقل الاسم واسمه EName ... ونوعه نصي وهو خاص بتدوين اسماء الأشخاص.
2: يتم عمل جدول للسيارات الخاصة بهؤلاء الأشخاص واسمه tblSub ويتكون من الحقول التالية:
أ: حقل رقم لوحة السيارة واسمه CarPlateNumber .. نوعه رقمي وهذا الحقل هو المفتاح الأساسي لهذا الجدول.
ب: حقل موديل السيارة واسمه CarModel .. ونوعه نصي وهو خاص بتدوين موديلات السيارات.
ج: حقل لون السيارة واسمه CarColor ... ونوعه نصي وهو خاص بتدوين الوان السيارات.
د: حقل الرقم واسمه Id وهو مفتاح غريب ليتم عمل علاقة راس بأطراف بين الجدولين . 
3: يتم عمل نموذج مصدر بياناته الجدول tblMain واسمه frmMain 
4: يتم عمل نموذج فرعي مصدر بياناته الجدول tblSub اوسمه frmSubNew 
5: نقوم بعمل نموذج آخر مبني على الجدول tblMain واسمه frmSub ولكن لا نضع به اي حقل من الحقول بحيث يظهر فارغ
6: نقوم بسحب النموذج frmSubNew وندرجه بهذا النموذج ونجعل حقل الربط هو الحقل Id
7: نعود الى النموذج الرئيسي وفي عرض التصميم وفي حدث عند النقر للزر والذي يحمل التسمية ( فتح النموذج الفرعي ) نضع الكود الآتي
DoCmd.OpenForm "frmSub" Set Forms!frmsub.Recordset = Me.Recordset
السطر الاول من الكود : هو خاص بفتح النموذج frmSub وهو النموذج الموضح بالفقرة الخامسة. ( 5 )
السطر الثاني من الكود : يتم فيه ضبط الخاصية Recordset للنموذج frmSub لتكون مساوية للخاصية Recordset للنموذج الرئيسي وبذلك سيتم فتح النموذج frmSub على نفس السجل بالنموذج الرئيسي frmMain ... وبما ان النموذجين frmSub و frmSubNew بينهما ارتباط بالحقل Id
إذاً سيتم هذا التزامن مع النموذج الفرعي ايضاً .. وإذا تم الانتقال من خلال النموذج frmSub سيحدث نفس الشئ ويتم الانتقال الى السجل المطابق له بالنموذج الرئيسي.
ارجو ان اكون وفقت في الشرح .. والله الموفق
بارك الله فيك اخي الغالي محمد فؤاد
وحشتنا ووحشتنا مشاركاتك الرائعة ... بارك الله فيك ونفع بعلمك
تم تعديل هذه المشاركة بواسطة يوسف احمد في 20 نوفمبر 2008 في 21:06
مثال رائع بارك الله فيك
وفيك بارك اخي moom2007
شكراً جزيلاً لك على مرورك الكريم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
