ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لموضوع : حفظ البيانات بأكثر من جدول
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
عندما نقوم بإنشاء نموذج فإننا نحدد مصدر بيانات النموذج اي بمعني ان هذا النموذج قد يكون غير منضم اي لامصدر لة وفي الغالب يكون لة مصدر بيانات اما من جدول او من إستعلام مبني علي جدول بيانات وتكون مصدر الحقول الموجودة علي النموذج هي حثول الجدول
ولكن في بعض الحالات نحتاج الي تخزين البيانات المدخلة عن طريق النموذج في أكثر من جدول وهذا ما سوف نتناولة في هذا الموضوع
الفكرة بسيطة جدا وسهلة التطبيق فكل ماعليك هو عمل عدة جداول متشابة البنية اي تحتوي علي نفس العدد من الحقول وبنفس المسميات والمواصفات وبهذا نكون قد حددنا مجموعة الجداول التي سوف يتعامل معها النموذج لاحقا
msystableيتم انشاء جدول ونسمية
هذا الجدول سوف نجعلة مصدر البيانات للنموذج فقط ولن نقوم بحفظ البيانات فية ونجعل خصائص الجدول مخفي
ننشئ علي النموذج مجموعة الحقول اللازمة لإدخال البيانات وننشئ مربع تحرير وسرد مصدر بياناتة عبارة عن اسماء الجداول المراد تخزين البيانات فيها فمثلا لو فرضنا ان اسماء الجدول هي الجدول الاول والثاني والتالث والرابع فإننا نكتب مصدر مربع التحرير والسرد كالاتي
"الجدول الاول";"الجدول الثاني";"الجدول الثالث";"الجدول الرابع"
وفي حدث بعد التحديث لمربع التحرير والسرد نكتب الكود التالي
Private Sub combo1_AfterUpdate()
Select Case Me!combo1
Case "الجدول الاول"
Me.RecordSource = "Table1"
Case "الجدول الثاني"
Me.RecordSource = "Table2"
Case "الجدول الثالث"
Me.RecordSource = "Table3"
Case "الجدول الرابع"
Me.RecordSource = "Table4"
End Select
Me.Requery
End Sub
ونكمل تصميم النموذج بوضع زر للحفظ البيانات وزر أمر لإغلاق النموذج وإضافة ماتحتاجة من أزرار أخري والمثال المرفق يوضح الاحداث لهذة الازرار في حدث عند النقر لكل زر من أزرار الاوامر
