0 سبد-خرید-فردانش
فردانش
خانه
دسته بندی
وبلاگ تماس باما مدرسه بلاکچین

جلوگیری از ورود داده های تکراری توسط فرم اکسس

برای اینکه در ستونی از یک جدول داده های تکراری وارد نشوند می توانید بر روی آن ایندکس No Duplicate تعریف کنید. ولی در فایل پیوست این مقاله کنترل تکراری بودن شماره پرسنلی در فرم انجام شده (در رویداد Before Update مربوط به کادر شماره پرسنلی) و در صورت تکراری بودن شماره پرسنلی با پیغام خطا کاربر را مطلع می کند و رویداد کنسل می شود. کد نوشه شده در رویداد Before Update : 
Private Sub pCode_BeforeUpdate(Cancel As Integer)
               Dim temp
               temp = DLookup("pCode", "tblPersonel", "pCode=" & [pCode])
               If Not (IsNull(temp)) Then
               MsgBox "Duplicate Value !", vbCritical, "Error"
               Cancel = True
               End If
               End Sub
 
   
نویسنده : وحید فرزام
تاریخ انتشار : 1394-04-16 04:30:00
3508

1 نظر

user

ثبت نظر 1399-05-07 04:30:00 حسن
سلام خسته نباشید من وقتی ریکورد رو بر روی حالت Calculated قرار میدم گزینه No Duplicate نمایش داده نمی شود. چه طوری می تونم کاری کنم که این ریکورد از ورود داده تکراری جلوگیری کند

تازه ترین ها