اذهب الي المحتوي
أوفيسنا

الغاء الحفظ التلقائي _طلب تعديل كود


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

السلام عليكم :

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

حيث عندما تخرج من النموذج يسأل اذا كنت تريد الحفظ او لا

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

في حالة لا : لن يتم حفظ البيانات للنموذج الرئيسي او الفرعي

....................... الي هنا الكود ممتاز جدا ................................

السؤال : هل يمكن اضافة علي الكود بحيث اذا تم التعديل علي البيانات المحفوظة مسبقا تظهر نفس الرسالة حيث ان الكود يعمل فقط عند اضافة بيانات جديدة

test_UP2.mdb

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

لكن في الفرعي يتم الاضافة ايضاً بدون تحذير 

 

2 ساعات مضت, يوسف السيد said:

حيث عندما تخرج من النموذج يسأل اذا كنت تريد الحفظ او لا

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

في حالة لا : لن يتم حفظ البيانات للنموذج الرئيسي او الفرعي

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

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

استاذ sandanet  ممتاز جدا

ولكن كما قال الاستاذ ابو ياسين في حالة التغيير بالنموذج الفرعي فقط لا يظهر الاشعار

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

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

ملاحظة صغيره اذا تكرمت استاذي

عند التعديل بالنموذج الرئيسي والفرعي أو عند انشاء سجل جديد وتعبئة بيانات بالنموذج الفرعي والرئيسي

تظهر رسالة الحفظ مرتين

هل يمكن اختزال الرسالتين بواحده ؟

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

الحمد لله توصلت لحل وكان كالتالي :

Private Sub Form_Close()
If SavRef = 2 And SavRef = 3 Then
If MsgBox("هل تريد حفظ السجل ", vbYesNo + vbQuestion + vbDefaultButton2, "تنبيه") = vbYes Then
Exit Sub
If SavRef = 2 Or SavRef = 3 Then
If MsgBox("هل تريد حفظ السجل ", vbYesNo + vbQuestion + vbDefaultButton2, "تنبيه") = vbYes Then
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit Sub
End If
End If
End If
End If
If SavRef = 1 Then
Exit Sub
End If
End Sub

 

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

السلام عليكم :
الاساتذه الكرام
هل يمكن تطبيق نفس الكود الذي تفضل به الاستاذsandanet

علي الملف نفسه ولكن ليس في حالة اغلاق النموذج وانما عند اضافة سجل جديدtest_UP3.mdb

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

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

If SavRef = 2 Or SavRef = 3 Then
Call Form_Close
Call Form_formT2.undo_subform
DoCmd.GoToRecord , , acNewRec
Else
DoCmd.GoToRecord , , acNewRec
End If

 

test_UP4.rar

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

الاستاذ / ابو ياسين المشولي ... حل ممتاز (لم يخطر علي بالي)

الاستاذ / ابو خليل ... وفقك الله الكود ممتاز ويؤدي الغرض بكفاءة

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

السلام عليكم

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

بالمرفق نموذج تم عمل الاكواد السابقه به

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

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

اعتقد ان المشكلة لدي في زر الحذف والله اعلم

الغاء الحفظ.accdb

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

الاستاذ @sandanet

اعذرني علي كثرة الاسئلة واطالة الموضوع

في نفس النموذج قمت بانشاء زرين احدهما للسجل السابق والاخر للسجل التالي

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

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

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

فهل هذا بسبب SavRef = 1

الغاء الحفظ2.accdb

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

استاذي الفاضل :

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

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

استاذي الفاضل  @sandanet

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

يوجد بالمرفقات فيديو يوضح المشكلة

Rec 03-10-18.rar

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

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

لا ادري ان كانت هذه الطريقة صحيحة ام لا .

انتظر رايك استاذي الفاضل

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

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