يوسف السيد

تفضل Purchasing Analysis-Test.xlsm

السلا م عليكم ... اطلع علي الرابط .... فيه طلبك بالتفصيل

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

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

سلمت يمينك استاذ رمهان جزاك الله خيرا

الفكرة ممتازة جدا استاذ رمهان هل يمكن ان يكون اسم الحقل الناقص الذي يظهر بالرسالة بالاسم التوضيحي وليس الاسم الحقيقي بالجدول وهل العدد من 1 : 50 هو لعدد الحقول الموجودة ام ماذا

الاساتذة الافاضل : شكرا جزيلا ... جزاكم الله خيرا

السلام عليكم لدي الكود التالي لعمل الالغاء وعدم الحفظ ولكنه يعتمد علي القوائم واشرطة التمرير وعند عدم اظهارهم تحدث المشكلة DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 ابحث عن تعديل علي الكود او كود بديل بحيث لا يعتمد علي مثل تلك القوائم او اشرطة التمرير

شكرا جزيلا م/محمد طاهر علي الافادة أمل حذف الموضوع السابق محل المشكلة وسأطرح الموضوع من جديد بإذن الله

جربت من متصفح اخر ولم يفتح ايضا اخي الفاضل هل يفتح معك الموضوع https://www.officena.net/ib/topic/82868-استبدال-أمر-docmd/

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

شكرا استاذي الفاضل ولكن الرسالة تظهر عند التعديل علي النموذج الفرعي ولكن عند التعديل علي النموذج الرئيسي يحفظ مباشرة بدون رسالة قمت بالتعديل في حدث الاغلاق من If SavRef = 2 Then الي If SavRef = 2 Or SavRef = 3 Then وظهرت الرسالة فعلا عند التعديل علي النموذج الرئيسي ولكن عند ظهور الرسالة واختيار عدم الحفظ فانه يحفظ حاولت التبديل بين me.undo /و/ DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 ولكن في حالةme.undoيحفظ رغم اختيار عدم الحفظ ويكمل باقي اجراءات الكود وفي حالةDoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70عند اختيار عدم الحفظ يظهر خطأ بهذا السطر

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

استاذي الفاضل @sandanet استأذنك تجرب التعديل فقط علي النموذج الرئيسي وتفعل الخطوة السابقة يوجد بالمرفقات فيديو يوضح المشكلة Rec 03-10-18.rar

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

الاستاذ @sandanet اعذرني علي كثرة الاسئلة واطالة الموضوع في نفس النموذج قمت بانشاء زرين احدهما للسجل السابق والاخر للسجل التالي وعندما يتم اي تعديل بالنموذج وبعدها يتم ضغط احد الزرين فيتم استدعاء كود اقفال النموذج لتظهر رسالة الحفظ من عدمه فمثلا اذا عدلت في النموذج وضغطت التالي تظهر الرسالة واختار منها مثلا نعم فيتم الحفظ المشكلة اذا ضغطت زر السابق بعد ذلك تظهر لي رسالة الحفظ بعدها مع اني لم اغير شيئ وتظهر لمرة واحده فقط فهل هذا بسبب SavRef = 1 الغاء الحفظ2.accdb

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

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

الاستاذ / ابو ياسين المشولي ... حل ممتاز (لم يخطر علي بالي) الاستاذ / ابو خليل ... وفقك الله الكود ممتاز ويؤدي الغرض بكفاءة

السلام عليكم : الاساتذه الكرام هل يمكن تطبيق نفس الكود الذي تفضل به الاستاذsandanet علي الملف نفسه ولكن ليس في حالة اغلاق النموذج وانما عند اضافة سجل جديدtest_UP3.mdb

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

السلام عليكم في حدث اغلاق النموذج هل يمكن وضع شرط بحيث اذا تحقق يتم اغلاق النموذج وفي حالة عدم التحقق لا يتم اغلاق النموذج علي سبيل المثال كالتالي Private Sub Form_Close() If (smdebit - smcredit) = 0 Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Else MsgBox "not ok", , "wrong" Exit Sub End If End Sub

الحمد لله توصلت لحل وكان كالتالي : 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

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