الغاء الحفظ التلقائي

[ابوعمر75]

السلام وعليكم

الاخوه الاعزاء ارجو المساعده عند اغلاق النموذج يسالني الحفظ او الالغاء ولكم جزيل الشكر

___.rar

[يوسف أحمد]

السلام عليكم

اخي ابوعمر75

ضع الكود ادناه في حدث قبل التحديث للنموذج

If MsgBox("هل ترغب في حفظ التعديلات ؟", vbYesNo + vbInformation + vbMsgBoxRight, "تاكيد الحفظ") <> vbYes Then
  Cancel = True
  Me.Undo
  Exit Sub
End If

واليك مثال على ذلك

بالتوفيق

CancelAutoSaving.rar

[ابوعمر75]

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

[يوسف أحمد]

وفيك بارك اخي ابوعمر75

اضف الكود السابق بحدث قبل التحديث للنموذج الفرعي ايضاً

واليك التعديل على المثال السابق

بالتوفيق

CancelAutoSaving.rar

[ابوعمر75]

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

[يوسف أحمد]

جزاك الله خير اخي ابوعمر75

ارجو ان يكون هو التعديل المطلوب

CancelAutoSaving.rar

[ابوعمر75]

الاخ يوسف بارك الله فيك على صبرك واستحمالي كثرة الاسئله . لم يتغير شي و ملاحظاتي اولا

اعلى النموذج يجب ان لايسالني الحفظ او الالغاء

ايضا في الفرعي لايجب يسالني عن كل سجل فقط في الخروج والاغلاق

عموما انا استفدت من تعديلاتك واذا في امكانيه للتحسين والا جزاك الله خير