عند إضافة سجل جديد في جدول هل يمكن نقله إلى آخر

اخي الفاضل

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

نعم يمكن ذلك من خلال عمل استعلام لالحاق البيانات من الجدول الاول الى الجدولين الاخرين

انظر هذا المثال واتبع الكود الموجود تحت زر الامر جديد

Private Sub NEW_Click()
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Q1", acViewNormal, acEdit
    DoCmd.OpenQuery "Q2", acViewNormal, acEdit
    DoCmd.SetWarnings True
    Me.Requery
    Me.Refresh
    DoCmd.GoToRecord , , acNewRec
End Sub

فهو يقوم بالتالي

1. حفظ السجل المحرر

2. يقوم بوقف رسائل التنبيه الناتجه عن الاستعلام

3. يقوم بتشغيل الاستعلام الاول والثاني على التوالي لالحاق البيانات من الجدول الاول الى الجدولين الاخرين

4. يقوم بإعادة تشغيل رسائل التنبيه

5. يقوم بتحديث بيانات النموذج

6. يقوم بتحديث بيانات الجداول

7. يقوم بإضافة سجل جديد

كل هذه الاوامر تحت زر امر واحد وهو جديد

انظر للجدولين بعد اضافة اي سجل جديد

وهذا مثال مرفق

AppendNewRecord.rar

اختكم

زهره

الاخت الفاضلة / زهرة السلام عليكم ورحمة الله وبركاته

أولا : تحيه وتقدير وكل احترام لكم اشكركم علي مساعدتكم لي

ثانيا : لقد قمت بتحميل الملف المرفق ولكن

عند إضافة أي سجل جديد في النموذج (form) لا يظهر في الجدولين الاخرين

عند إضافة سجل جديد في الجدول الاول لا يظهر في اي جدول من الجدولين الاخرين

مع ان شرحكم وافي ومستفيض وواضح جدا ولكن لم أعرف السبب في هذا

ارجو مراجعة الملف لعل يكون عندي أنا خطأ ما

جزاكي الله خيرا واعطاكي الف صحة

عفوا لعدم خبرتي

هل لا يظهر السجل الجديد في الجدولين الاخرين إلا بعد تشغيل الاستعلام

ويمكنك ملاحظة ان عند إضافة السجل الجديد وعدم ظهوره في الجدولين الاخرين وغلق الملف كليا وعند اعادة الفتح لا أجد السجل الجديد في الثلاث جداول

اخي الفاضل ابو شادي

كما تعلم ان الجدول لا يستطيع اضافة بيانات الى جداول اخرى .

كل العمل موجود تحت زر الامر جديد

اسمع جيدا لما يجب ان تقوم به

1. عند فتح القاعده سيتم فتح النموذج form تلقائيا

2. اضغط على زر الامر جديد

3. ستجد ان الحقول فارغه اكتب فيها حسب نوع البيانات ( مثل الاسم يكون نص ورقم الجواز رقم )

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

5 . لا تقم بإغلاق النموذج بل دعه مفتوح

6. انتقل الى الجداوال ( الاول والثاني والثالث ) وانظر هل تم الحاق البيانات ام لا ( بالتأكيد تم الحاق البيانات )

7. اذن العملية ترتكز على زر الامر الذي يحتوي على كامل الكود لان به حفظ السجل وتشغيل الاستعلامات وتحديث الجداول

اختكم

زهره

الاخت الفاضلة / زهرة

ياسلام ياسلام 000 الله يفتح عليكي ويرزقك ويزيدك من علمه كمان كمان

لا تعرفي مدي سعادتي الان اكيد طبعا مجرباها عندما تكون لديك مشكلة وتنحل

لقد تم حل المشكلة عندي نهائيا وقمت بالتطبيق على برنامجي ( شئون الموظفين ) وعمل بصورة جيدة جدا

عفوا اختي زهرة الخطأ الذي وقعت فيه أنا اني لم أضغط على زر الامر ( جديد)

لم اجد دعاء لكي اكثر من اني أقول : يارب اعطي زهرة ابنه حواء وآدم الصحة ودوامها وبارك لها في اسرتها وارحم والديها في الدنيا والاخرة ـــ آمين ـ آمين

والله العظيم هذا الدعاء من قلبي وأن شاء الله يستجاب في هذا اليوم المبارك يوم الجمعة

واني في منتهي الاحراج لو طلبت:

هل بعد إضافة السجل الجديد وظهوره في الجدولين الاخرين هل لو قمت بحذفه من السجل الاول يحذف اتوماتيكيا من الجدولين الاخرين ؟ لقد جربت ولم يحذف السجل ماذا افعل ؟

اخي الفاضل ابو شادي

جزاك الله خيرا على هذه الدعوات وبارك الله فيك ورزقك الفردوس الاعلى من الجنه

عفوا لم افهم ماذا تقصد بالضبط

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

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

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

وهذا المثال تم تعديله بإضافة كود الحذف للسجل بعد عمليات الالحاق

AppendNewRecord_up.rar

اختكم

زهره

الاخت الفاضلة / الاستاذة زهرة

اقصد : عند إضافة سجل جديد الحمد لله يظهر الان في الجدولين الاخرين

ولكن مثلا: الآن انا اضفت عشرة سجلات جديدة وبعد مرور فترة من الوقت اريد حذف سجل واحد فقط من العشرة من الثلاث جداول دفعة واحدة

ومثل ما قلتي لم يتم هذا إلا بالتكامل المرجعي (تحديث وحذف ) ومن أهم شروطه وجود مفتاح متشابه في الثلاث جداول وعمل علاقات بين الجداول الثلاثة علي ما أظن

ولكن بعد عمل هذا ما هو الكود الذي يعمل للحذف 0000

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

هل يوجد حل لهذه المسألة