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

[hamdynose]

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

[Hamdi Edlbi-khalf]

أهلاً حمدي! 🙂

' هذه الطريقة ستمكنك من نسخ السجل إلى جدول آخر 
Dim DB as DAO.Database
Dim RST1 as DAO.Recordset
Dim RST2 as DAO.Recordset
 Set DB = CurrentDB
 Set RST1 = DB.Openrecordset(Put Here the name of your Source Query)
 Set RST2 = DB.Openrecordset(Put Here the name of your Target Table)    
        RST2.AddNew
             RST2![Name Of The Target Field]= RST1![Name Of Source Field]
              ' كرر تسجيل الحقول 
        RST2.Update
RST1.Close
RST2.Close
    Set RST1 = Nothing
    Set RST2 = Nothing
    Set DB = Nothing
' كرر كتابة الكود لكل جدول ترغب بإضافة البيانات له  

ويمكن عمل ذلك أيضاً باستخدام الاستعلامات، ولعل هذه الطريقة أسهل ولكن أبطأ.

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

 

تم تعديل يناير 30, 2022 بواسطه Khalf

[hamdynose]

بارك الله فيكم واصلح بالكم 

ولكن برجاء عدل على قاعدة البيانات المرفقة

تكرار سجل.accdb

[Hamdi Edlbi-khalf]

السلام عليكم

في المرفق ستجد نموذجاً جديداً ضمنته المطلوب

 النموذج الجديد للإدخال والعرض معاُ ،مع ملاحظة أن العمل لا يزال ناقصاً، لكني أجبت عن سؤالكم.

 

تكرار سجل.accdb

[Hamdi Edlbi-khalf]

أخي حمدي  

أن تقوم بنسخ السجل إلى جداول مختلفة، فهو أمر هين -إن شاء الله- وله العديد من الطرق، إلا أنك لم توضح في مرفقك الجداول التي ستنسخ البيانات إليها.

لقد كتبت لك كوداً يمكن الاستفادة منه ... لكنه قد لا يلبي حاجاتك إلا مع التعديل.

 

[walid7799]

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

أخى الكريم أضافة ألى ما تفضل به أخوانى وأساتذتى .

هناك كود صغير يكتب أو أى حدث تريده 

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

نكتب الأتى:

نماذج : أسم النموذج : أسم الحقل المراد النسخ له  = أسم النموذج : أسم الحقل المراد النسخ منه

وليكن لدى حقل أسمه Text1 بنمودج 1 

أريد نسخه إلى جدول رقم 2 بعد أدخال البيانات به مباشرة

نضع بنفس نموذج 1 Textbox غير منضم ونربط بياناته بالحقل المراد النسخ أليه بجدول رقم 2

ونكتب الكود الأتى فى حدث عند الخروج من الحقل المراد نسخ محتواه

[forms]![Form1]![Textbox1]=[forms]![Form1]![Text1]

أفاض الله عليكم من علمه وزادكم من فضله ونعيمه ولا رد أليكم دعاء

اللهم أجعلنا ممن دعاك فأجبته ... وممن أستجارك فأجرته ... وممن سألك فأعطيته

[hamdynose]

بارك الله فيكم وزينكم بجميل العلم ولكن عند الضغط على زر تكرار السجل الحالى تظهر هذه الرسالة ولا يتم حفظ السجل 

[walid7799]

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

أخى الكريم يجب أن يكون الفورم دائما فى وضع الذهاب لسجل جديد

أضف :

DoCmd.GoToRecord , "", acNewRec

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

[Hamdi Edlbi-khalf]

2 ساعات مضت, hamdynose said:

بارك الله فيكم وزينكم بجميل العلم ولكن عند الضغط على زر تكرار السجل الحالى تظهر هذه الرسالة ولا يتم حفظ السجل 

لقد كررت قيم المفتاح الرئيسي بالإدخال

لكي نحقق المطلوب .. أرجو أن تعطيني الجداول التي ترغب بإدراج البيانات فيها مع الإدخال ضمن الاستعلام

فالنموذج ناقص ...

[hamdynose]

اشكر لك هذا الجهد الكبير والجدول هو  tabRoshetta و tabEmployee والاستعلام  وهو qryRoshita 

[hamdynose]

شكرا لكم وبارك الله فيكم وزادكم من العلم اكمله واصلح الله بالكم كنتم خير عون 

لقد تم حل المشكلة بعد اضافة Me. Requery الى اخر الكود

[Hamdi Edlbi-khalf]

مرحباً

6 ساعات مضت, hamdynose said:

قد تم حل المشكلة بعد اضافة Me. Requery الى اخر الكود

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

على أية حال، للتوضيح:

الذي توقعته من قراءة العنوان -في البداية-  أنك تريد أن تقوم بالإدخال على استعلام مبني على جدولين، و هو -ما أظن أنك كنت تبحث عنه-من خلال تفاعلك مع الإجابة السابقة.

بالرغم من أن هناك بدائل .. ربما أفضل، إليك مثالاً فيه المطلوب دون مشاكل -إن شاء الله- ويلبي حاجاتك مع بعض الإضافات التي لا بد ستحتاجها عاجلاً أم آجلاً، يرجى الانتباه إلى أني اعتمدت بكتابة الكود على نموذجك ومسمياته فعليك لتجنب ضياع العمل والحاجة إلى إعادة ترتيب الكود مرة أخرى، أن تستخدم النموذج الحالي مع لمسات صغيرة على التنسيقات.

أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

نموذج إدخال وعرض بيانات.accdb