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 09:00:00
۴,۹۶۲ بازدید
برای اینکه در ستونی از یک جدول داده های تکراری وارد نشوند می توانید بر روی آن ایندکس No Duplicate تعریف کنید. ولی در فایل پیوست این مقاله کنترل تکراری بودن شماره پرسنلی در فرم انجام شده (در رویداد Before Update مربوط به کادر شماره پرسنلی) و در صورت تکراری بودن شماره پرسنلی با پیغام خطا کاربر را مطلع می کند و رویداد کنسل می شود.
کد نوشه شده در رویداد Before Update :
نظرات (۱)
برای ثبت نظر
وارد حساب کاربری
شوید.
حسن
1399-05-07 04:30:00
سلام خسته نباشید من وقتی ریکورد رو بر روی حالت Calculated قرار میدم گزینه No Duplicate نمایش داده نمی شود. چه طوری می تونم کاری کنم که این ریکورد از ورود داده تکراری جلوگیری کند