PDA

View Full Version : بستن فرم بدون پیغام خطا



ILOVEVB
پنج شنبه 23 فروردین 1386, 08:22 صبح
سلام
جدولی دارم که پر کردن یک فیلد آن را اجباری تعریف کرده ام و از این جدول یک فرم درست کرده ام.
وقتی در فرم شروع به پر کردن اطلاعات یک رکورد می کنم اگر قبل از پر کردن فیلد اجباری از تکمیل رکورد منصرف شوم و بخواهم فرم را ببندم برنامه چند پیغام خطا می دهد و رکورد ذخیره نمی شود
سئوال :
چه طور می توانم این کنترل خطا را خودم بدست بگیرم و قبل از این که برنامه پیغام های انگلیسی بدهد با نمایش یک پیغام فارسی و هشدار به کاربر بدون ذخیره رکورد فرم را ببندم ؟
خیلی ممنون
خدانگهدار

majid325
پنج شنبه 23 فروردین 1386, 08:49 صبح
میتونی کد زیر رو در رویداد خروج فرم بنویسی:

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 بگیریش.

انگوران
پنج شنبه 23 فروردین 1386, 10:50 صبح
البته میشه تو رویداد error فرم ، شماره خطاها رو شناسائی کرد و با select case خطاهای مختلف رو با پیغامهای دلخواه کنترل کرد ولی به نظر بنده بهتره تو رویداد خروج فیلدی که قراره پر باشه بنویس در صورتی که فیلد خالی بود پیغام بده .
در ضمن نیاز نیست راه طولانی پر کردن تمام فیلدها رو طی کنی بعد با خطا مواجه بشی .

if fieldname="" or isnull(fieldname) then
msgbox"فیلد نمی تواند خالی باشد "
cancel=true
end if

Ali_Fallah
پنج شنبه 23 فروردین 1386, 18:40 عصر
به این قسمت (http://www.barnamenevis.org/forum/showthread.php?t=16687) هم نگاهی بیندازید...