اذا احتوي TEXT1 على كلمة معينة كيف يمكن ل TEXT2يحتوي علي رقم

اخي الفاضل ابو شادي

اليك الحل

اذا احتوى مربع النص TEXT1 على كلمة " الفريق " فإن مربع النص TEXT2 سيصبح الرقم 55

اذا احتوى مربع النص TEXT1 على كلمة " العربي " فإن مربع النص TEXT2 سيصبح الرقم 65

والكود الخاص بذلك يوضع في حدث عند فقد التركيز للحقل TEXT1

Private Sub TEXT1_LostFocus()
Me![TEXT2] = IIf([TEXT1] Like "*" & "الفريق" & "*", 55, IIf([TEXT1] Like "*" & "العربي" & "*", 65, [TEXT1]))
End Sub

وهذا مثال للتطبيق عليه

TEXT1AND2.rar

ملاحظة : المنتدى قام بعكس الكود ولكن لو قمت بنسخه كما هو ولصقه في محرر الفيجول بيسك للقاعدة فإنه سيتعدل كما في القاعدة

الاخت الفاضلة الكريمة / زهرة

يعجز لساني عن اي كلمات للتعبير عن شكري وتقديري لكم

جزاكي الله كل خير تعلمت الكثير منك في هذا المنتدي

جعله الله بالخير والعافية لكي ولاولادك