الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]حذف سجل مرتبط مع الاحتفاظ به والسجلات المرتبطه الاخرى

مغلق
بدأه شوقي المصراوي في 13 يناير 2008 · 20 رد · 2,613 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخوانى احب ان اقدم اولا اجمل التحيات واعظم السلامات وارقى الكلمات لكل اعضاء منتدنا ( الاخ همام ـ الاخ اكسير ـ الاخ احمد حمدى ـ الاخت الفاضله زهره الحجاز ـ والمهندس ـ ابو هاجر ـ ابن مسقط واشكر من نسيت من اساتذتى الكرام ) فلا استطيع حقا مع بداية العام الهجرى الجديد ان اضيف موضوع بدون رد جزء من الجميل فى صوره كلمات بسيطه تعبر عن اخلاق وطيبة وشهامة هؤلاء الرجال فطالما اضافوا لنا نور المعرفه ولم يبخلوا علينا بشئ فشكرا لهم

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

لقد طرحت تللك الفكره سابقا ولكن المشكله ان تللك المشاركة بحثت عنها ولم اجدها ووجدت المثال عندى ولكن المشكلة ان المثال حقا لا اتذكر صاحبه ولكن جزاه الله خيراً على المجهود الذى قام به وكانت مميزات هذا المثال 1- حذف السجل من الجدول الاساسى ونقله الى جدول اخر فى نفس قاعدة البيانات 2- وضع كلمة محذوف على السجل الذى تم حذفه

حتى لا اطيل عليك ارغب فى التعديل على المثال

بحيث نضيف جدول مرتبط ( علاقة راس باطراف بحيث الجدول الرئيسى "CATEGORIES" عند حذف سجل منه يتم نقله الى الجدول المماثل له والسجلات المرتبطه يتم نقلها الجدول المماثل فى نفس قاعدة البيانات )

اخوانى ارجو ان تضيفوا انتم الجدول المرتبط وكذلك النموزج الفرعى فى المثال المرفق

واتمنى من الله التوفيق للجميع

KeppDelRec.rar

#2

اطلب من الاخوه المشرفين المساعدة

#3

أخي الغالي شوقي المصرواي

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

لقد عدلت علي مثالك يمكن يكون هذا هو المطلوب

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

If MsgBox("هل تريد حذف السجل الحالي ونقلة الي جدول المحذوفات", vbCritical + vbYesNo, "رسالة تحذيرية") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "delete"
DoCmd.RunCommand acCmdDeleteRecord
End If

Z_KeppDelRec.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

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

بمعنى عند حذف سجل من الجدول الاساسى تحذف ايضا السجلات من الجدول المرتبط ترافق تللك العملية نقل السجل من الجدول الاساسى (catgories( الى جدول delcat وفى نفس الوقت نقل السجلات المرتبطه المحذوفه من جدول tt الى جدول hh

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

33KeppDelRec.rar

#5

الاخوه المشرفين

ارجو عدم نسيان الموضوع او تركه سهواً منكم لانه بصراحه موضوع مهم بالنسبه لى

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

وشكراً مره اخى للاخ محمد فؤاد تركى

واتمنى المساعدة من الاخوه المشرفين

#6

السلام عليكم ورحمه الله

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

وكل عام وانتم بخثر

#7

السلام عليكم اخوانى المشرفين والاعضاء

:( لقد بدأت افقد الامل فى حتى الرد :(

على العموم اتمنى للجميع التوفيق

#8

أخي الغالي

شوقي المصراوي

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

أولاً أعتذر لك عن تأخري في الرد

ثانياً : -

تم مراجعة العلاقات بين الجدولين المراد حذف بياناتهم ونقلهم الي الجدول hh والجدول delcat فوجدت عدة أخطاء في طريقة الربط نفسها

فبرجاء مراجعة طريقة الربط

الان انظر الي المثال بعد اجراء اللتعديلات اللازمة عليه

تم اضافة استعلام آخر لادارج بيانات النموذج الفرعي الي جدول hh

ايضا تم تعديل الكود المستخدم ليصبح كالتالي

Private Sub Command4_Click()
If MsgBox("هل تريد حذف السجل الحالي ونقلة الي جدول المحذوفات", vbCritical + vbYesNo, "رسالة تحذيرية") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "delete"
DoCmd.OpenQuery "sub_Q"
DoCmd.RunCommand acCmdDeleteRecord
End If
End Sub

والان انظر المرفق ولاحظ عند حذف سجل سيتم حذفة بالبيانات المرتبطة ونقلة لجدول آخر

Z_KeppDelRec.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#9

اخى محمد جزاك الله خيراً

ولكن اخى هل راجعت المثال فعند ضغط زر الامر يتم نقل السجلات جدول CATEGORIES الى جدول delcat ولكن !!!!!

لا يتم نقل سجلات جدول tt الى جدول hh

اخى محمد ارجو ان تراجع المثال وتحاول تجربته يمكن ان يكون هناك خطأ ما

والسلام عليكم ورحمه الله

#10

اخي العزيز شوقي ... اتمنى لك دوام الصحة والعافية...

اشكر كل من شارك من الاخوة بافكار بناءة وجميلة..

خطرت ببالي سابقا فكرة قد تكون نوعا من "التحايل" على المطلوب بشكل اخر،،، انطلاقا من مبدأ تكرار السجلات الرئيسة والفرعية معا وهي فكرة طرحتها بفضل الله لأول مرة في منتدى الفريق العربي...رابط الموضوع: (تكرار سجلات النموذج الرئيس والفرعي)

اقول: نقوم بتشغيل كود تكرار السجلات،، ولكن بدل من ادخال السجلات في الجدول ذاته، ترسل السجلات الى جدول مماثل تماما.. ثم يعمل كود الحذف بشكل تلقائي بعد هذا الكود...

وباذن الله ساعمل على الفكرة لانها مهمة..

همام

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 20 يناير 2008 في 17:59

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#11

أخي الغالي همام

بارك الله فيك

فعلاً شغل مشرفين

أخي الغالي شوقي المصرواي

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

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

منتظر ردك ومرفق الملف

Z_KeppDelRec_up.rar

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 20 يناير 2008 في 22:44

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#12

اخى الفاضل همام الف شكر على المداخله ( وجارى التجربه لانها فعلا فكره جديده وعلى فكره انا اطلعت على المثال سابقا منذ فتره فى احدى مشاركاتك ولكن هنا الفرق بين الطالب والمعلم فدائما نتعلم منكم فشكراً جزيلا )

اخى الفاضل محمد فؤاد لقد اتعبتك معى ولكن اخى فى بلدنا بنسميه ( عشم ) وانت عارف كده

وقد اتبعت التعليمات ولكن اخى كأن المثال لم يتغير به شئ ولا اعلم السبب فتظل المشكله كما هى وارجو منك التأكد بان لم ترسل المرفق القديم بدلأ من المرفق الذى عدلت فيه وارجو ايضا ان تتواصل معى فى ذلك الموضوع انت والاخ همام حتى نضع مرفق نهائى يكون به حلا للمشاركه ويستفيد به جميع الاعضاء

اخوانى جزاكم الله خيراً

#13

بارك الله فيكم جميعا

الملف بعد التعديل النهائي بناء على طلبك

Z_KeppDelRec_up222.rar

#14

أخي الغالي

شوقي المصراوي

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

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#15

شكراً جزيلاً لاختى الفاضله زهره

ولكن لست اعرف ماذا افعل حتى نستطيع ان نحل تلك المشكله

هل السبب هواستخدامى لاصدار اوفس 2003 اما اننى لا استطيع ان اصل ما يدور فى تفكيرى للآخرين على العموم يبدو اننى لم اصل الى الحل المطلوب

اختى الفاضلى زهره المشكله بسيطه للغاية وهى الآتى

عندى سجل فى جدول CATEGORIES وليكن اسمه زهره مرتبط بعدة سجلات فى جدول tt

المطلوب ان يتم الاتى

نقل سجل زهره الموجود بجدول CATEGORIES الى جدول delcat ونقل السجلات المرتبطه الموجوده بجدول tt الى جدول hh

اختى الفاضله لا يحدث ذلك فى المثال المرفق منك ولكن يتم نقل السجل الى جدول delcat ولايتم نقل السجلات المرتبطه الى جدل hh

هل السبب فى اصدرا الاوفس الذى عندى ام انكى لم تنتبهى الى المطلوب بالضبط

ونتمنى من الله ان يجعل القائمين على المنتدى عونا لكل طالب علم وجزاهم الله خيراً

Z_KeppDelRec_up222.rar

#16

اخي الفاضل شوقي

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

zahrah.rar

حتما الخطأ لديك انت فحاول تبحث عنه في جهازك

وهذا نفس المثال قد قمت بتغيير اسمه فلربما انك كنت تفتح ملف قديم غير معدل

za_KeppDelRec_up_LAST.rar

#17

الاخت العزيزة زهرة، المثال يعمل بشكل ممتاز، وعذرا على تاخري في المشاركة بمثال مني، لاني والله "رايح جاي" الى طبيب الاسنان.. ايي ي ي ي ي ...

ويعلم الله انني احاول دائما البقاء على اتصال من خلال المشاركة ولكن الالم والظروف تكون خارجة عن ارادتي..

همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#18
همام ابوعرقوب كتب:
الاخت العزيزة زهرة، المثال يعمل بشكل ممتاز، وعذرا على تاخري في المشاركة بمثال مني، لاني والله "رايح جاي" الى طبيب الاسنان.. ايي ي ي ي ي ...

ويعلم الله انني احاول دائما البقاء على اتصال من خلال المشاركة ولكن الالم والظروف تكون خارجة عن ارادتي..

همام

سلامتك اخي همام

وإن شاء الله تخفيف من الذنوب

وبعدين تعال هون ليه " رايح جاي " كله عشان السنان وعمال تقول " ايي ي ي ي ي ... )

يا بني آدم أجمد شويه وخليك حديد وشامخ مثل الجبل :lol:

مش انتم بترددوا هذا النشيد

انا صامد صامد صامد

لو قطعوا يدي صامد

لو قطعوا رأسي صامد

انا صامد صامد صامد

:lol: :lol: :lol:

يعني جات على شوية سنان ....

ما بلاش سنان وخذ لك تركيبه

#19

جزاكم الله خيرا

شكراً اختى الفاضله زهره واخى الفاضل محمد فؤاد والاخ العزيز همام

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

الف سلامه اخى همام ويارب تكون بخير

الف شكر اخى محمد فؤاد على المجهود والمتابعة

الف تحيه خاصه للأخت العزيزه ( زهرة الحجاز ) على مجهودها المتواصل والبناء لخدمة اعضاء المنتدى

واشكر اخى الكريم اكسير الذى كنت اتمنى ان يشاركنا بافكاره الرائعة

#20

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

#21

أخيرا يا عم شوقي

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

علي العموم مش مهم

المهم انك تكون استفدت

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…