walid7799

احسنت وجارى التجربة جميل جداً ولكن يبقى الاكسس مفتوح بعد الاغلاق

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

تم تعديل الكود فى قاعدة if ليصبح كالتالى

المطلوب باختصار عند أضافة تسوية فى حالة (الزيادة) يتم جمع الفرق بين القيمة الحالية + قيمة التسوية فى حالة التخفيض بتم الطرح بين القيمة الحالية - قيمة التسوية فى حالة الرد أى تصبح القيمة الحالية (صفر) يتم طرح قيمة التسوية من القيمة الحالية المساوية لها لتصبح القيمة الحالية صفر الاصعب أنه فى حالة وجود حركة بالرد يسبقها حركات تخفيض وزيادة (منع حذفهم قبل حذف حركة الرد) وشكرا لاهتمامكم جميعا

نماذج للشرح

اشكر لحضرتك تعبك واهتمامك واليك المرفق ويمكن فتح المناقشة للوصول لبعض الحلول فى بعض المشاكل اذا لم تمانع Bank.rar

الاخوة الاساتذة تم قراءة الموضوع أكثر من 14 مرة ولم يجب احد برجاء من السادة خبراء المنتدى ابداء الرأى وشكراً

افتح form1 برنامج الأرشفة الالكترونية1.rar

ممكن تشرح انت عايز البحث يعمل ازاى ؟

اليك تصحيح البحث قوائم مرتبطة برنامج الأرشفة الالكترونية1.accdb

If MsgBox("هل تريد الحفظ", vbYesNo, "خطابات الضمان") = vbYes Then Application.SetOption "Confirm Record Changes", False If (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.value > N2]) And [BA1 = "زيادة"])) Then N3 = BA5 - N2 N4 = N3 + N2 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.Value < N2]) And [BA1 = "تخفيض"])) Then N3 = N2 - BA5 N4 = N2 - N3 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.Value = N2]) And [BA1 = "رد"])) Then N3 = BA5 - N2 BA19 = N3 Forms![ShowNew1]![BA19] = N3 Forms![ShowNew1]![N2] = N3 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True MsgBox "تم الحفظ بنجاح" ElseIf IsNull(([BA1] Or [BA3] Or [BA17] Or [BA22] Or [BA21])) Then MsgBox "أكمل البيانات الاساسية قالناقصة ايمة التسوية - رقم الخطاب - تاريخ الاصدار - تاريخ السريان" End If End If البرنامج تعتبر الجزء الاخير من القاعدة كأنه لم يكن ما الخطأ فى الصيغة

السلام عليكم ورحمة الله وبركاته الاساتذة الكبار وأصحاب الخبرة فى المنتدى الرائع أوفيسنا جعله الله منارة للعلم بحث كثيرا عن موديول أو كود جاهز على المنتديات المهتمة بالبرمجة واللغات عن كود لتحويل مجلد فى مدلد ODF ولكن فشلت من كثرة البحث هل يمكن عمل مديول لتحويل مجلد PDf إلى صور مع تغيير الاسم وامسار وشكراً لحسن تعاونكم مستقبلاً

جزيل الشكر ولاكن انا جربت كل اشكال الكود مع تقسيمه بمعنى if text1 < text2 then elseif text1 > text2 else endif وايضاً وضعت له Dim رقم طبعاً ..... ولكن فشلت ايضاً فكل الاكواد يتجاهلها الاكسس وكأنها ليست مكتوبة مع أن الكود صحيح وانا متاكد فهل من اهل خبرة يجيب لماذ هذا الكود بالاخص يتم تجاهله مع تنفيذ جميع اوامر المعادلات الحسابية الاخرى

الحقول جميعها أرقام شكرا للاهتمام من يشكر فأنما يشكر الله

السلام عليكم ورحمة الله وبركاته أخوتى واحبائى اعضاء منتدى أوفيسنا الاعزاء أفيدونا يا أهل الخير هل الكود يكون if text1 <> text2 then ........ else ...... end if ما الخطأ فى هذا الكود وليه الاكسس مش بينفذ الأمر لو الكود صحيح ؟