يوسف السيد قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 السلام عليكم : في موضوع سابق بخصوص الغاء الحفظ التلقائي للنماذج (الرئيسية والفرعية)وجدت كود ممتاز جدا تفضل به الاستاذ ابو خليل حيث عندما تخرج من النموذج يسأل اذا كنت تريد الحفظ او لا في حالة نعم : سيتم حفظ البيانات الجديدة للنموذج الرئيسي والفرعي في حالة لا : لن يتم حفظ البيانات للنموذج الرئيسي او الفرعي ....................... الي هنا الكود ممتاز جدا ................................ السؤال : هل يمكن اضافة علي الكود بحيث اذا تم التعديل علي البيانات المحفوظة مسبقا تظهر نفس الرسالة حيث ان الكود يعمل فقط عند اضافة بيانات جديدة test_UP2.mdb 1
ابو ياسين المشولي قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 الاخ sandanet لكن في الفرعي يتم التعديل بدون تحذير 1
sandanet قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 لكن في الفرعي يتم الاضافة ايضاً بدون تحذير 2 ساعات مضت, يوسف السيد said: حيث عندما تخرج من النموذج يسأل اذا كنت تريد الحفظ او لا في حالة نعم : سيتم حفظ البيانات الجديدة للنموذج الرئيسي والفرعي في حالة لا : لن يتم حفظ البيانات للنموذج الرئيسي او الفرعي نعم في حال عمل اضافة على النموذج الرئيسي اما لو اردت الاضافة على النموذج الفرعي فقط فلا يظهر تحذير 1
يوسف السيد قام بنشر مارس 2, 2018 الكاتب قام بنشر مارس 2, 2018 (معدل) استاذ sandanet ممتاز جدا ولكن كما قال الاستاذ ابو ياسين في حالة التغيير بالنموذج الفرعي فقط لا يظهر الاشعار المطلوب اظهار الرساله في حالة تم التعديل علي النموذج الفرعي او الرئيسي او كلاهما تم تعديل مارس 2, 2018 بواسطه يوسف السيد
يوسف السيد قام بنشر مارس 2, 2018 الكاتب قام بنشر مارس 2, 2018 ما شاء الله كود ولا اروع تحياتي وتقديري استاذ sandanet جزاك الله خيراً وزادك علماَ
يوسف السيد قام بنشر مارس 2, 2018 الكاتب قام بنشر مارس 2, 2018 (معدل) ملاحظة صغيره اذا تكرمت استاذي عند التعديل بالنموذج الرئيسي والفرعي أو عند انشاء سجل جديد وتعبئة بيانات بالنموذج الفرعي والرئيسي تظهر رسالة الحفظ مرتين هل يمكن اختزال الرسالتين بواحده ؟ تم تعديل مارس 2, 2018 بواسطه يوسف السيد
يوسف السيد قام بنشر مارس 2, 2018 الكاتب قام بنشر مارس 2, 2018 الحمد لله توصلت لحل وكان كالتالي : 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
يوسف السيد قام بنشر مارس 6, 2018 الكاتب قام بنشر مارس 6, 2018 السلام عليكم : الاساتذه الكرام هل يمكن تطبيق نفس الكود الذي تفضل به الاستاذsandanet علي الملف نفسه ولكن ليس في حالة اغلاق النموذج وانما عند اضافة سجل جديدtest_UP3.mdb
ابوخليل قام بنشر مارس 6, 2018 قام بنشر مارس 6, 2018 جرب هذا التطبيق على الاكواد الموجودة في حدث الزر 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 3
يوسف السيد قام بنشر مارس 6, 2018 الكاتب قام بنشر مارس 6, 2018 (معدل) الاستاذ / ابو ياسين المشولي ... حل ممتاز (لم يخطر علي بالي) الاستاذ / ابو خليل ... وفقك الله الكود ممتاز ويؤدي الغرض بكفاءة تم تعديل مارس 6, 2018 بواسطه يوسف السيد
يوسف السيد قام بنشر مارس 6, 2018 الكاتب قام بنشر مارس 6, 2018 (معدل) تم تعديل مارس 6, 2018 بواسطه يوسف السيد
يوسف السيد قام بنشر مارس 9, 2018 الكاتب قام بنشر مارس 9, 2018 السلام عليكم عذرا اخواني علي الاطالة بالموضوع ولكن لم أرد فتح موضوع جديد لكي لا تتشابه المواضيع بالمرفق نموذج تم عمل الاكواد السابقه به ولكن عند الضغط علي زر قيد جديد وبعدها زر الحذف ثم تخرج من النموذج يطالب بالحفظ أو لا (مع العلم انه بعد الحذف تم عمل حفظ وبالتالي المفروض لا يوجد شئ للحفظ) عند عمل قيد جديد وبعدها تضغط زر الحذف ثم الضغط علي قيد جديد مرة اخري يطالب ايضا بالحفظ (الطبيعي انه لاشئ موجود لحفظه) اعتقد ان المشكلة لدي في زر الحذف والله اعلم الغاء الحفظ.accdb
sandanet قام بنشر مارس 9, 2018 قام بنشر مارس 9, 2018 اخي الكريم .. ضع SavRef = 1 بعد DoCmd.Save لزر الامر حذف 1
يوسف السيد قام بنشر مارس 9, 2018 الكاتب قام بنشر مارس 9, 2018 الاستاذ الفاضل : sandanet بالفعل لم تظهر رسالة الحفظ مرة اخري ... جزاك الله خيرا ونفع بك وزادك علما
يوسف السيد قام بنشر مارس 10, 2018 الكاتب قام بنشر مارس 10, 2018 الاستاذ @sandanet اعذرني علي كثرة الاسئلة واطالة الموضوع في نفس النموذج قمت بانشاء زرين احدهما للسجل السابق والاخر للسجل التالي وعندما يتم اي تعديل بالنموذج وبعدها يتم ضغط احد الزرين فيتم استدعاء كود اقفال النموذج لتظهر رسالة الحفظ من عدمه فمثلا اذا عدلت في النموذج وضغطت التالي تظهر الرسالة واختار منها مثلا نعم فيتم الحفظ المشكلة اذا ضغطت زر السابق بعد ذلك تظهر لي رسالة الحفظ بعدها مع اني لم اغير شيئ وتظهر لمرة واحده فقط فهل هذا بسبب SavRef = 1 الغاء الحفظ2.accdb
sandanet قام بنشر مارس 10, 2018 قام بنشر مارس 10, 2018 اخي الكريم لا ارى اي مشكلة عند الضغط على زر السابق..لاتظهر رسالة الحفظ الا اذا قمت بالتعديل داخل الجدول على العموم الامر SavRef = 1 هو لمنع ظهور رسالة الحفظ
يوسف السيد قام بنشر مارس 10, 2018 الكاتب قام بنشر مارس 10, 2018 (معدل) استاذي الفاضل : جرب التالي : اعمل اي تعديل بالجدول ثم اضغط التالي ستظهر رسالة الحفظ اضغط نعم .. بعدذلك مباشرة وبدون اي تعديل اضغظ السابق ستجد رسالة الحفظ ظهرت مرة اخري وهذا ما اتحدث عنه انه لا يوجد اي تعديل تم لكي تظهر الرسالة فقد تم حفظ التعديل سابقا بزر التالي تم تعديل مارس 10, 2018 بواسطه يوسف السيد
sandanet قام بنشر مارس 10, 2018 قام بنشر مارس 10, 2018 اخي الكريم جربت ماتفضلت به ولم تظهر رسالة الحفظ !!
يوسف السيد قام بنشر مارس 10, 2018 الكاتب قام بنشر مارس 10, 2018 (معدل) استاذي الفاضل @sandanet استأذنك تجرب التعديل فقط علي النموذج الرئيسي وتفعل الخطوة السابقة يوجد بالمرفقات فيديو يوضح المشكلة Rec 03-10-18.rar تم تعديل مارس 10, 2018 بواسطه يوسف السيد
sandanet قام بنشر مارس 10, 2018 قام بنشر مارس 10, 2018 اخي الكريم لماذا تضع هذا الكود تحت زر امر السابق؟ انت هنا تستدعي كود الحفظ بعد التعديل على الجدول If SavRef = 2 Or SavRef = 3 Then Call Form_Close DoCmd.OpenQuery ("refreshdata") Exit Sub Else
يوسف السيد قام بنشر مارس 10, 2018 الكاتب قام بنشر مارس 10, 2018 انا فقط استدعيت كود الحفظ لانه من الممكن ان يقوم المستخدم باكثر من تعديل اثناء التنقل بين السجلات واردت اثناء التنقل ان تظهر رسالة الحفظ ليختار منها الحفظ او لا لا ادري ان كانت هذه الطريقة صحيحة ام لا . انتظر رايك استاذي الفاضل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.