تعديل خانة بجدول بشرط معين بناء على قيمة خانة أخرى بجدول أخر

[figo82eg]

ارجو من الأخوة الكرام المساعدة حيث ما اريده هو عند كتابة قيمة داخل حقل الإستهلاك الحالى بجدول BASIC_DATE أن يقوم الكود بمراجعة حقل الإستهلاك القديم بجدول OLD_BASIC_DATE

وفى حالة اذا كان قيمة الإستهلاك الحالى أقل من الإستهلاك السابق وتظهر رسالة " الإستهلاك الذى تريد تسجيله حالياً أقل من الإستهلاك السابق هل تريد إضافة القيمة نعم أو لا "

مرفق مثال 

New Microsoft Access Database.accdb

تم تعديل مايو 26, 2023 بواسطه figo82eg

[figo82eg]

ارجو من الاخوة مساعدتى

[ابوخليل]

تفضل

علما ان حقول القيمة لديك نصية ، والمقارنة باكبر من او اصغر يجب ان تكون الحقول رقمية

تم عمل متغير رقمي يمثل القيمة النصية

Dim i, ii As Integer
i = Nz(DLookup("[estelak]", "[OLD_BASIC_DATE]", "[crn] ='" & [Forms]![BASIC_DATE]![address] & "'"), 0)
ii = Me.ADD_NO
If ii < i Then
Beep
If MsgBox("الإستهلاك الذى تريد تسجيله حالياً أقل من الإستهلاك السابق هل تريد إضافة القيمة؟", _
    vbQuestion + vbYesNo, _
    "تننبيه") = vbYes Then
    Exit Sub
    Else
    Undo
       Exit Sub
End If
End If

 

New Microsoft Access Database2.accdb

[figo82eg]

بارك الله فيك أستاذى الكريم وجعله الله فى ميزان حسناتك