تکراری بودن کد کالا [بایگانی]

ITST-1

شنبه 13 اسفند 1384, 09:15 صبح

با سلام

دوستان من در جدول شناسنامه کالا کد کالا را وارد می کنم .حال چگونه می توانم اگر هنگام ورود کد کالا در این جدول اگر تکراری بود سیستم پیغام تکراری بودن را بدهد و اگر نبود ثبت شود.
با تشکر

tooba1380

شنبه 13 اسفند 1384, 13:16 عصر

دوست من سلام.
می توانی از فرمول زیر استفاده نمایی
بطور کلی بعد از اینکه کد خطاها را شناسایی کردید با نوشتن قالب برنامه زیر در رویداد OnError فرم می توانید خطاها را کنترل کنید :

Dim Str as String

Select Case DataErr
Case 3022
Str="اطلاعات وارده تکراری است"
Case 2237
Str = "اطلاعات وارده در لیست وجود ندارد"
'خط فوق برای مواردی است که یک مقداری که در کمبو باکس وجود ندارد ، تایپ شده باشد
Case ...
Str=...
....
End Select

"کد کالا تکراری است"MsgboxStr
Response = acDataErrContinue

البته باید در کد کالا ذکر کنی که تکرارای نباشد یعنی در زمانی که جدول می سازی REQUID انرا بله کنی.
اگر بدر خورد جواب بده!!!!!!!!!!!!!!!

ITST-1

شنبه 13 اسفند 1384, 13:41 عصر

مرسی از بزرگواریتان

ehsan_ansaripoor

شنبه 13 اسفند 1384, 23:32 عصر

دوست عزیز راه آسان تری هم هست و اون این است که شما برای فیلدی که مایلید مقدار یکتا داشته باشه یک Index از نوع Uniqe تعریف کنید.

در واقع اگر کاربر قصد ورود اطلاعات را به صورت تکراری داشته باشد یک خطا اتفاق می افتد که شما می تواند به صورت زیر عمل کنید:

if Err.Number=678 then
msgbox "کاربر گرامی اطلاعات تکراری است"
end if