كود vba لشرط لحقل نص بقيمة رقمية

[Abdelaziz Osman]

السلام عليكم ورحمة الله 

لدي نموذج به حقل نص باسم  tmanu

أريد كود vba لهذا الحقل مفهومه كاتالى:

اذا تم تحديث هذا الحقل بعدد  اكبر من او يساوى

9000000000  

يتم تحديث حقل اخر باسم cost بالصيغة التالية 

" مسار الطرح قيمة مرتفعة "

---------------------

قمت بعمل ها الكود فى حدث بعد التحديث ولكن لم يجدى اي نتيجة

if me.tmanu.value > 900000000 then
me.cost = "مسار الطرح قيمة مرتفعة"
end if

ارجوا المساعدة

[Foksh]

منذ ساعه, Abdelaziz Osman said:

اذا تم تحديث هذا الحقل بعدد  اكبر من او يساوى

9000000000  

يتم تحديث حقل اخر باسم cost بالصيغة التالية 

" مسار الطرح قيمة مرتفعة "

وعليكم السلام ورحمة الله وبركاته ،،

حسب ما فهمت ، التعديل بسيط جداً .. تفضل :-

Private Sub tmanu_AfterUpdate()
If Me.tmanu.Value >= 900000000 Then
    Me.cost = "مسار الطرح قيمة مرتفعة"
End If
End Sub

 

[Abdelaziz Osman]

بالغ التحية معلمنا  @Foksh

إيضا لم يستجيب هذا التعديل ايضا

[Foksh]

20 دقائق مضت, Abdelaziz Osman said:

إيضا لم يستجيب هذا التعديل ايضا

مرفق لنفس الكود في مشاركتي السابقة !!

00.accdb

[Abdelaziz Osman]

معلمى  الرقم المطلوب.   تسعة مليار

وليس  تسعه مليون

[Foksh]

46 دقائق مضت, Abdelaziz Osman said:

معلمى  الرقم المطلوب.   تسعة مليار

وليس  تسعه مليون

اخي الكريم ،،

الرقم هو فعلاً 9 مليار ( 9000000000 )

أما 9 مليون ( 9000000 ) 😅

[Abdelaziz Osman]

في 21‏/7‏/2024 at 23:50, Foksh said:

اخي الكريم ،،

الرقم هو فعلاً 9 مليار ( 9000000000 )

أما 9 مليون ( 9000000 ) 😅

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