walid7799 قام بنشر سبتمبر 28, 2023 قام بنشر سبتمبر 28, 2023 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 البرنامج تعتبر الجزء الاخير من القاعدة كأنه لم يكن ما الخطأ فى الصيغة
walid7799 قام بنشر سبتمبر 28, 2023 الكاتب قام بنشر سبتمبر 28, 2023 الاخوة الاساتذة تم قراءة الموضوع أكثر من 14 مرة ولم يجب احد برجاء من السادة خبراء المنتدى ابداء الرأى وشكراً
Foksh قام بنشر سبتمبر 28, 2023 قام بنشر سبتمبر 28, 2023 3 ساعات مضت, walid7799 said: 14 أخي الكريم قراءة الكود نصياً قد لا يعطينا الفكرة والهدف منه كما لو أنه على أرض الواقع في ملف مرفق.
سامي الحداد قام بنشر سبتمبر 29, 2023 قام بنشر سبتمبر 29, 2023 السلام عليكم عندك أخطاء في كتابة الكود انظر للتعديل If MsgBox("هل تريد الحفظ", vbYesNo, "خطابات الضمان") = vbYes Then Application.SetOption "Confirm Record Changes", False If Not IsNull(BA3) And Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 > 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 Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 < 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 Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 = 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 IsNull(BA3) Or IsNull(BA17) Or IsNull(BA22) Or IsNull(BA21) Then MsgBox "أكمل البيانات الاساسية قالناقصة ايمة التسوية - رقم الخطاب - تاريخ الاصدار - تاريخ السريان" End If End If إذا لم يعمل معك التعديل ارفق مثالك هنا حتى نستطيع مساعدتك بالتوفيق
walid7799 قام بنشر سبتمبر 29, 2023 الكاتب قام بنشر سبتمبر 29, 2023 1 ساعه مضت, سامي الحداد said: السلام عليكم عندك أخطاء في كتابة الكود انظر للتعديل If MsgBox("هل تريد الحفظ", vbYesNo, "خطابات الضمان") = vbYes Then Application.SetOption "Confirm Record Changes", False If Not IsNull(BA3) And Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 > 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 Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 < 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 Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 = 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 IsNull(BA3) Or IsNull(BA17) Or IsNull(BA22) Or IsNull(BA21) Then MsgBox "أكمل البيانات الاساسية قالناقصة ايمة التسوية - رقم الخطاب - تاريخ الاصدار - تاريخ السريان" End If End If إذا لم يعمل معك التعديل ارفق مثالك هنا حتى نستطيع مساعدتك بالتوفيق اشكر لحضرتك تعبك واهتمامك واليك المرفق ويمكن فتح المناقشة للوصول لبعض الحلول فى بعض المشاكل اذا لم تمانع Bank.rar
walid7799 قام بنشر سبتمبر 29, 2023 الكاتب قام بنشر سبتمبر 29, 2023 المطلوب باختصار عند أضافة تسوية فى حالة (الزيادة) يتم جمع الفرق بين القيمة الحالية + قيمة التسوية فى حالة التخفيض بتم الطرح بين القيمة الحالية - قيمة التسوية فى حالة الرد أى تصبح القيمة الحالية (صفر) يتم طرح قيمة التسوية من القيمة الحالية المساوية لها لتصبح القيمة الحالية صفر الاصعب أنه فى حالة وجود حركة بالرد يسبقها حركات تخفيض وزيادة (منع حذفهم قبل حذف حركة الرد) وشكرا لاهتمامكم جميعا
walid7799 قام بنشر سبتمبر 29, 2023 الكاتب قام بنشر سبتمبر 29, 2023 تم تعديل الكود فى قاعدة if ليصبح كالتالى
walid7799 قام بنشر سبتمبر 29, 2023 الكاتب قام بنشر سبتمبر 29, 2023 أخوانى الافاضل اعضاء المنتدى الكبير بكم أوفيسنا مرفق وأسف على الاطالة ولكنى تأخرت كثيراً على تسليم البرنامج بسبب هذه الصغره
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.