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

[IMANAZADI]

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


TEXT1.VALUE=VAL(-8)




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

IF TEXT1.VALUE <0 THEN
MSGBOX "ERROR"
END IF



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

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

[Abbas Amiri]

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



IF Val(TEXT1.Text) <0 THEN
MSGBOX "ERROR"
END IF

[IMANAZADI]

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

[Abbas Amiri]

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

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

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

[IMANAZADI]

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