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

نسخ بيانات من جدول إلى أخر وحذف الأول


Doyazen

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

السلام عليكم

أخواني قرأت موضوع عجبني كثيراً عن نسخ ولصق بيانات من سجل إلى أخرعلى العنوان التالي

http://www.officena.net/ib/index.php?showtopic=1071

وبصراحة انا بحاجة لهذه الطريقة في عملي

لدي جدول فيه سجلات الموظفين العاملين على رأس عملهم ويحتوي سجل كل موظف عليى التالي:

الرقم الوظيفي

الدرجة

الاسم

الوظيفة

الادارة

القسم

الفرع

تاريخ التعيين

الجنسية

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

الرقم الوظيفي

الدرجة

الاسم

الإدارة

تاريخ التعيين

الجنسية

تاريخ انتهاء الخدمة

السبب ( استقالة ) أو ( تقاعد )

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

فهل الطرق المشروحة في الوصلة تتناسب معي أو هناك طرق أخرى ولو ممكن مع الشرح علشان نتعلم قبل كل شي

تحياتي

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

الطرق المشروحة في الوصلة صعبة قليلاً

وسأعطيك طريقة سهلة وتقوم بتنفيذ ما تريده

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

وعند حقل الاسم وعند خيار "معايير" قم بوضع هذا المعيار

[forms]![اسم مربع النص الخاص بالاسم]![اسم النموذج]
حيث يقوم هذا المعيار بنقل البيانات الحالية فقط من النموذج وينقلها إلى الجدول الآخر ملاحظة: إذا لم يتم وضع هذا المعيار سيتم نقل جميع البيانات إلى الجدول الآخر وبعدها يتم عمل زر أمر في نموذج الجدول الأول لكي ينفذ النقل بمجرد النقر على زر الأمر حيث يتم وضع هذا الكود عند حدث "عند النقر"
If MsgBox("هل تريد حذف هذا السجل", vbQuestion _
+ vbMsgBoxRight + vbYesNo, "انتبه") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "اسم الاستعلام", acViewNormal
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

وإليك هذا الملف المرفق الذي سيوضح لك الشرح

aaaa.zip

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

مشكور أخي بو يوسف

وأسف على التأخير في الرد ( ظروف العمل )

مثال ممتاز

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

لا ادري هل المشكلة في الملف ام من عندي

أرجو منك التأكد من ذلك لو سمحت

تحياتي

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

اخي أبو يعلى

إنشيء استعلام حذف وأفتحه بنفس الطريقة الخاصة بالإلحاق والإختلاف في نوع الإستعلام فقط " حذف بدلاً من إلحاق " بدون شرط لحذف جميع السجلات.

أخي Doyazen

إذا كان في الجدول الذي تلحق البيانات به له مفتاح أساسي ووجد رقم مطابق عند إذن سيتم حذف السجل دون إلحاقه لأنه في العلاقات ل يمكن تكرار المفتاح الأساسي وللتأكد من سبب عدم إلحاق السجل أوقف عمل السطر التالي :

DoCmd.SetWarnings False

ثم شغل الإستعلام ستظر لك رسالة تخبرك عن سبب عدم إلحاق السجل0

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

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