مساعدة فى تصحيح كود اذا تكرمتم بخصوص قاعدة IF بأكثر من شرط

[walid7799]

 

        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]

الاخوة الاساتذة 

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

[Foksh]

3 ساعات مضت, walid7799 said:

14

أخي الكريم قراءة الكود نصياً قد لا يعطينا الفكرة والهدف منه كما لو أنه على أرض الواقع في ملف مرفق.

[سامي الحداد]

السلام عليكم

عندك أخطاء في كتابة الكود انظر للتعديل 

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]

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]

نماذج للشرح

 

[walid7799]

المطلوب باختصار

عند أضافة تسوية

فى حالة (الزيادة) يتم جمع الفرق بين القيمة الحالية + قيمة التسوية

فى حالة التخفيض بتم الطرح بين القيمة الحالية - قيمة التسوية

فى حالة الرد أى تصبح القيمة الحالية (صفر) يتم طرح قيمة التسوية من القيمة الحالية المساوية لها لتصبح القيمة الحالية صفر

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

وشكرا لاهتمامكم جميعا

 

[walid7799]

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

 

[walid7799]

أخوانى الافاضل اعضاء المنتدى الكبير بكم أوفيسنا

مرفق

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