سلام
جدولی دارم که پر کردن یک فیلد آن را اجباری تعریف کرده ام و از این جدول یک فرم درست کرده ام.
وقتی در فرم شروع به پر کردن اطلاعات یک رکورد می کنم اگر قبل از پر کردن فیلد اجباری از تکمیل رکورد منصرف شوم و بخواهم فرم را ببندم برنامه چند پیغام خطا می دهد و رکورد ذخیره نمی شود
سئوال :
چه طور می توانم این کنترل خطا را خودم بدست بگیرم و قبل از این که برنامه پیغام های انگلیسی بدهد با نمایش یک پیغام فارسی و هشدار به کاربر بدون ذخیره رکورد فرم را ببندم ؟
خیلی ممنون
خدانگهدار
میتونی کد زیر رو در رویداد خروج فرم بنویسی:
On Error GoTo Err_TEst
.
.
.
.
Exit_Test:
Exit Sub
Err_Test:
If Err.Number = x Then
MsgBox "تست" 'or MsgBox Err.Description
end if
Resume Exit_Test
X هم شماره خطا هست که میتونی با err.number بگیریش.
البته میشه تو رویداد error فرم ، شماره خطاها رو شناسائی کرد و با select case خطاهای مختلف رو با پیغامهای دلخواه کنترل کرد ولی به نظر بنده بهتره تو رویداد خروج فیلدی که قراره پر باشه بنویس در صورتی که فیلد خالی بود پیغام بده .
در ضمن نیاز نیست راه طولانی پر کردن تمام فیلدها رو طی کنی بعد با خطا مواجه بشی .
if fieldname="" or isnull(fieldname) then
msgbox"فیلد نمی تواند خالی باشد "
cancel=true
end if
به این قسمت هم نگاهی بیندازید...
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول