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

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

مغلق
بدأه a-husean في 26 ديسمبر 2007 · 4 رد · 1,636 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدي نموذج رئيسي وهو عبارة عن اسم المريض ورقمه

نموذج فرعي عبارة بيانات العمل للمريض

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

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

______.rar

#2

للرفع

#3

للرفع

#4

سلام

أهلا حسين،،

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

الظاهر أنك تريد التراجع عن البيانات المدخله في النموذج الفرعي، إليس كذلك؟

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

'إذا اختار المستخدم عدم حفظ السجل تقوم الشفرة بالتراجع عن حفظ السجل
If MsgBox("هل تريد حفظ السجل الحالي", vbMsgBoxRight + vbYesNo, "حفظ السجل الحالي") = vbNo Then
	Me.Undo 'إجراء التراجع عن حفظ السجل
End If

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

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

هل تقصد حذف السجل الحالي من النموذج الفرعي بزر أمر في النموذج الرئيسي؟

-إذا كان هذا ما تريد. أكتب الشفرة التالية في حددث عند النقر لزر الأمر

Me.alamal_نموذج_فرعي.SetFocus 'إجراء وضع التركيز على النموذج الفرعي
If MsgBox("هل تريد حذف السجل الحالي", vbMsgBoxRight + vbYesNo, "حذف السجل الحالي") = vbYes Then
  DoCmd.Beep '  أمر إطلاق منبه تحذير 
  DoCmd.SetWarnings False  ' أمر إلغاء رسائل التحذير
  DoCmd.RunCommand (acCmdDeleteRecord) ' أمر إلغاء السجل الحالي في النموذج الفرعي
  DoCmd.SetWarnings True  'أمر إعادة رسائل التحذير
End If

أرجو أن يكون هذا ما تريد .. انظر المرفق

GA3001.zip

القحم

#5

شكرا اخوي هاد هو المطلوب بارك الله فيك

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

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

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

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

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

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