[ تمت الإجابة ]حذف النموذج الفرعى عند حذف النموذج الرئيسي

الاخ الغالي qatar_ahmed_em

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

تفضل مثالك بعد اجراء التعديلات اللازمة علية

http://up5.m5zn.com/saaj4j3g5ubu/Z_delete.rar.htm

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

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

الاخ الغالي qatar_ahmed_em

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

تفضل شرح طريقة عمل

أولاً : - زر الحذف

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

Private Sub Command8_Click()
If MsgBox("هل تريد حذف السجل الحالي", vbCritical + vbYesNo, "تحذير") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False
   DoCmd.RunCommand acCmdDeleteRecord
   DoCmd.SetWarnings True
   End If
End Sub

اتبع نفس الخطوات بخصوص الزر الاخر وهو سجل جديد

وضع كود منع الحفظ التلقائي ايضا في حدث عند الضغط علي زر

Option Compare Database
Private bdirty As Boolean
Private Sub Command9_Click()
If bdirty = True Then
Dim strMsg As Integer
strMsg = MsgBox("هل تريد الحفظ", vbYesNo + vbExclamation)
Select Case strMsg
Case vbYes:
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSave
DoCmd.SetWarnings True
Case vbNo:
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
End Select
End If

DoCmd.GoToRecord , , acNewRec
End Sub

أيضا هذا الكود في حدث on Dirty

Private Sub Form_Dirty(Cancel As Integer)
bdirty = True
End Sub

وعند الخروج من النموذج on close

قم باستدعاء نفس الكود من خلال هذا الكود البسيط

Private Sub Form_Close()
Call Command9_Click
End Sub

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

اخي العزيز

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

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

حيث تم العديل في الجدول الأول ووضع مفتاح للسجل الأول

و تم ربط الجدول الأول بالثاني كما هو موضح في المثال بعد رفعهdelete.rar

أخي الغالي qatar ahmed em

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

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

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

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

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

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