ارجو المساعدة في إتمام عملية حسابية داخل حقل بنموذج

السلام عليكم

مرفق الملف بعد التعديل في المرفقات وكذلك الكود وشرحه

Dim crn_Long As Integer  ' لمعرفة طول الرقم المدخل

        If Not IsNull([crn]) And [crn] > 1000 Then '  نتحق اولا ان القيمة غير خالية
        
        
                        crn_Long = Len([crn]) - 1 '  نقوم باستخدام الدالة المسئول عن طول القيمة ونطرح منه رقم واحد حتي نترك اخر خانة
                        
                        id = Left([crn], crn_Long) - 1000  ' نقوم هنا بجلب القيمة ونطرح منها 1000
        Else
        
        MsgBox "القيمة خالية أو اصغر من 1000"
        
        End If

Edit.rar

لا تنسونا من الدعاء