فرض کنید یه بانک اطلاعاتی با اکسس داریم و کنترل adodc. یکی از فیلدهای این جدول هم فیلد کلیدی هستش و نمیتونه مقدار تکراری قبول کنه. حالاچکار کنیم که اگه مقدار تکراری بهش داده شد پیغام خطای مناسب بده و کاربر بدونه که مقدار تکراری وارد کرده؟
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
---------------------------------------------------------- معرفت درّ گرانی است که به هر کس ندهند.
الان سورس اماده ندارم. میشه یه دونه سریع برام بسازین
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
---------------------------------------------------------- معرفت درّ گرانی است که به هر کس ندهند.
این برنامه رو ببینین. سه تا تکست باکس داره که اولیش ای دی هستش و دومی اسم و سومی فامیل.
ای دی فیلد کلیدی شده یعنی نمیتونه دوبار مقادیر مشابه مثلا 1 بگیره. اگه بهش دو بار یک عدد یکسان بدیم یه اروری میاد و برنامه قطع میشه .من می خوام به جای اون اروری که خود وی بی میده خودمون یک پیغامی بدیم مثلا کد وارد شده تکراری است .بعدش برنامه هم ادامه پیدا کنه.
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
---------------------------------------------------------- معرفت درّ گرانی است که به هر کس ندهند.
چطوری وارد کردید؟ برنامه که اجرا شد دکمه add رو بزنید بعد تو فیلدها مقدار بدید . من عدد 1 رو دادم به id و این ایراد رو گرفت. (البته 1 تکراری هستش)
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
---------------------------------------------------------- معرفت درّ گرانی است که به هر کس ندهند.
بالاخره درست شد.
امروز مجبور شدم تا دانشکده برق برم و استاد جون رو پیداش کنم. سئوالم رو پرسیدم و کلی بهم خندید و بعدشم احوال امین تاتو رو پرسید . این کد رو برام نوشت و مشکلم حل شد. خیلی نازه این استاد جون :heart:
اینم کد:
کد:
Private Sub Command1_Click()
On Error GoTo localerr
Data1.Recordset.AddNew
localerr:
If Err.Number = 3426 Then
MsgBox ("kode meli tekrari ast")
Text1.Text = ""
Text1.SetFocus
Resume
End If
End Sub
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
---------------------------------------------------------- معرفت درّ گرانی است که به هر کس ندهند.
ممنون آقا امین بابت ایت پروژه ای که گذاشتین. ولی این پروژه زیادی ساده هستش .دیگه اینجور پروژه ها رو که خودم بلدم. من تو فیلد کلیدی مشکل داشتم و ارورها که با کمک استاد جون و خود شما حل شد. بازم مشکلاتم رو میام تو انجمن می پرسم. لطفا بازم کمک کنین تا منم وی بی 6 رو یاد بگیرم.
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
---------------------------------------------------------- معرفت درّ گرانی است که به هر کس ندهند.
