PDA

View Full Version : در مورد Error Handeling



unforgiven
سه شنبه 01 فروردین 1385, 11:31 صبح
سلام
سال نو رو به همه اعضا مخصوصا مدیران سایت تبریک می گم
من نیاز دارم که در فرمم از ایرور هندلینگ استفاده کنم .
من در دیتا بیسم از دو تا فیلد یونیک استفاده کردم . یکی برای شماره عضو و یکی برای شماره کلاس .
حالا وقتی اعدادی تکراری وارد میشه می خوام ابتدا شماره عضویت رو چک کنه اگر درست بود که هیچ . اگر نه شماره کلاس رو هم چک کنه و در نهایت پیغام ثبت رو نشون بده .
من خودم این کارو کردم
ولی بعد از چک کردن اونا دوباره پیغام اطلاعات ثبت شد رو میده و یه بار دیگه پیغام وجود رکورد تکراری رو نشون می ده
لطفا کد مناسب رو بزارید
متشکرم

meh_secure
سه شنبه 01 فروردین 1385, 13:25 عصر
نمونه کد رو اینجا قرار بده تا درستش کنیم.

unforgiven
سه شنبه 01 فروردین 1385, 18:15 عصر
سلام
On Error GoTo localerr
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
MsgBox "! اطلاعات عضو جدید , در بانک اطلاعاتی ذخیره شد ", vbInformation, " توجه "
cmdUpdate.Enabled = False
cmdAdd.Enabled = True

GoTo localexit

localerr:
MsgBox "! این شماره قبلا به شخص دیگری اختصاص یافته است ", vbInformation, " توجه "
localexit:

البته وقتی کد مربوط به خطای کلاس رو به کد بالا اضافه میکنم باز ایراد میگیره

meh_secure
پنج شنبه 03 فروردین 1385, 01:12 صبح
شرمنده من چیزی متوجه نشدم. فکر کنم تکه برنامه رو باید بزارین.:لبخند:

Milad Mohseny
پنج شنبه 03 فروردین 1385, 02:07 صبح
سلام دوست عزیز به جای GoTo localexit از Exit Sub استفاده کن