kha9009lid

جرب المرفق كانت المشكلة في ترتيب خيارات الماكرو لقد قمت اخي بترتيبها بشكل غير صحيح حيث انك اخترت سجل جديد قبل التحديث وبالتالي يقوم الاستعلام بتحديث حقل فارغ TEST - Copy.accdb

اخي انا فقط صححت الاستعلام اما بخصوص التاريخ فالاستاذ @محمد ابوعبد الله اعطاك الحل تحياتي وتقديري

جرب المرفق TEST - Copy.accdb

يمكن حلها بثلاث طرق خذف التحديث وسبق ان اشار استاذ @jjafferr لرقم التحديث حسب الاصدار جعل مصدر استعلام التحديث من استعلام اخر وليس من الجدول مباشرة عن طريق اضافة عبارة للاستعلام (SELECT * FROM اسم الجدول) او الانتظار لحين اصدار مايكروسوفت تحديث لحل المشكلة

المشكلة بسبب تحديث للاوفيس

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

انا استخدم 2019 وحليت المشكلة بالتعديل على الاستعلام باضافة (SELECT * FROM اسم الجدول) ورجع الاستعلام يعمل

استاذ @jjafferr اعتقد ان المشكلة متعلقة بتحديث 13 نوفمبر والذي ادى مشكلة استعلام تالف عند تشغيل استعلام تحديث Access Error 3340

الشكر لله سبحانه ثم للاستاذ حسنين انا فقط وضعت مثال بسيط

الله يعطيك العافية استاذ حسنين اسمح لى انزل مثال بسيط لا ستخدامها في منشئ التعبير في المثال المرفق حددنا طبيعة عمل الموظف بالاختيار مابين 1 الى 5 ch.accdb

True = -1 False = 0

كانك تتحدث بما في نفسي

من باب اثراء الموضوع اضع طريقة اخرى باستخدام Switch بدلا من IIf Switch([k1]=-1;"غير متقاعد";[k1]=0;"متقاعد") ولتحديد الكل والغاء الكل DoCmd.SetWarnings False If [R1] = -1 Then DoCmd.RunSQL "UPDATE t2 SET t2.k1 = yes" ElseIf [R1] = 0 Then DoCmd.RunSQL "UPDATE t2 SET t2.k1 = no" End If DoCmd.SetWarnings True Me.fsub.Requery الضغط على الفرعى (1).accdb

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

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

آمين ولك بمثله ان شاء الله

روعة ويمكن تعديله وتجزئته

جرب المرفق واعتذر ما انتبهت لاعادة رفعك للموضوع NR in SubForm.accdb

جرب المرفق yoynis2.accdb

جرب المرفق yoynis.accdb

يا ابا ياسين عند حفظ ينتقل للسجل التالي ولكن لا يحفظ التعديل ويتوقف عند اخر سجل في الرقم المدخل مثلا الرقم المدخل 1111 واخر رقم 1115 ولا ينقل للسجلات 2000 وهكذا

ما رأيك لو اختصرنا الاستعلامات وبدلا من استخدام ثلاث استعلامات نستخدم استعلام واحد فقط ولا داعي لاستخدام جملة iff للسجلات الفارغة بدلا من استعلام المبيعات نضع التعبير التالي في حقل محسوب في استعلامنا الوحيد Nz(DSum("[اجمالي البيع]";"المبيعات";"[التاريخ]=#" & Format([d_date];"mm/dd/yyyy") & "#");0) وبدلا من استعلام المشتريات نضع التعبير التالي في حقل اخر بنفس الاستعلام : Nz(DSum("[اجمالي الشراء]";"المشتريات";"[التاريخ]=#" & Format([d_date];"mm/dd/yyyy") & "#");0) اجمالي البيع .accdb

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

عفوا استاذ @jo_2010 في خدمة امثالكم

جرب المرفق طالما بتستخدم عمليات حسابية اجعل الحقل الرقمي مزدوج والمنازل العشرية 2 ولوجود كسور استخدم دالة التقريب ملخص الفاتورة.accdb