عمل نکردن رویداد ON CHANGE تکس باکس

سلام خدمت دوستان
یک فرم دارم که روی اون دوتا تکس باکس و یک باتن هست
وقتی که روی باتن کلیک میکنیم کد زیر اجرا میشه

TEXT1.VALUE=VAL(-8)

 

 

در رویداد ON CHANGE تکس یک هم این رو نوشتیم

IF TEXT1.VALUE <0 THEN

MSGBOX "ERROR"

END IF

وقتی کلیک میکنیم کد باتن درست عمل میکند ولی چرا رویداد ON CHANGE تکس یک عمل نمیکند و پیام رو نشون بده

مگر این رویداد زمانی که محتوات تکس باکس تغییر کند نباید عمل کند
حال آنکه زمانی که با موس روی اون میرم و دستی مقدار - میدهم عمل میکند

در روال Text1_Change برای بدست آورد مقدار فعلی Text1 بایستی از عبارت Text1.Text استفاده کنید

IF Val(TEXT1.Text) <0 THEN

MSGBOX "ERROR"

END IF

دوست عزیز بازم جواب نداد

نقل قول:

---

نوشته شده توسط IMANAZADI

دوست عزیز بازم جواب نداد

---

همیشه از این روش استفاده کردم و همیشه هم جواب داده .

فایل رو آپلود کنید تابررسی بشه.

خدمت شما
من که نتونستم بفهمم ایراد کجاست