منع تكرار رقم في حقل نصي

[moham_q]

السلام عليكم الاخوة الاعزاء في المنتدى ... في المرفق لدي بيانات ادخال الى الجدول master1 ومن ضمنها حقل لادخال رقم الصك او الاشعار الخاص بالرواتب .. الذي اريده ان يتم عدم ادخال ومنع اي رقم مكرر موجود للصك واظهار رسالة تنبيه بوجود الرقم مسبقا في جدول ترحيل البيانات master1

 ... تحياتي وشكري لجميع الاخوة في المنتدى وشكراااااا

salr.rar

[Shivan Rekany]

2 ساعات مضت, moham_q said:

السلام عليكم الاخوة الاعزاء في المنتدى ... في المرفق لدي بيانات ادخال الى الجدول master1 ومن ضمنها حقل لادخال رقم الصك او الاشعار الخاص بالرواتب .. الذي اريده ان يتم عدم ادخال ومنع اي رقم مكرر موجود للصك واظهار رسالة تنبيه بوجود الرقم مسبقا في جدول ترحيل البيانات master1

 ... تحياتي وشكري لجميع الاخوة في المنتدى وشكراااااا

salr.rar

اتفضل
استخدمت هذا الكود
 

Private Sub Text13_AfterUpdate()
Dim X As Integer
X = DCount("cheq_no", "MASTER1", "[cheq_no]='" & Me.Text13 & "'")
If X > 0 Then
MsgBox " åÐÇ ÇáÑÞã ãæÌæÏ ãÓÈÞÇ"
Me.Text13 = ""
Me.Text13.SetFocus
End If
End Sub

اليك ملفك بعد اضافة الكود

 

salr.rar

salr.rar

[moham_q]

الاخ شفان المحترم .. سلمت اناملك على الكود الراقي والخفيف في التنفيذ وقمت بتجربته وعمل بشكل رائع .. تحياتي وامتناني لك