اريد معرفه كود لعدم تكرار ادخال البيانات

عندك طريقتين لمنع التكرار :

الاولى :

عمل Primary Key في قاعدة البيانات واصطياد (قوية اصطياد) الخطا رقم 2147467259 -

On error goto Errorhunter

Error Hunter :

If err.number = 2147467259 then

msgbox "Duplicated record"

else

msgbox Err.number

end if

الثانية :

كتابة جملة استعلام قبل التخزين , اذا كان عدد السجلات الناتجة عن جملة الاستعلام > 0 فإن القيمة غير مكرره .

ارجو ان اكون اجبتك , اما اذا كنت مبتدئ والكلام اعلاه عبارة عن طلاسم , اطلب مثال وانا جاهز لعمله .

تمام مثل ما قال االخ وهيدي هيا جملة الاستعلام :

" "Select Field_Name from table_Name where id="max bayne "

حيث نكتب كود التحقق من انه وصل الي نتيجة او وجد الاسم ماكس باين المراد تخزينه وهل هو موجود مسبقا في حقل داخل جدول ام لا

حيث:

if rs.recordcount>0 then

msgbox "sorry Id Found"

end if

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

ممكن مثال لو سمحتوا مع شرح بسيط عليه.

Private Sub Text1_LostFocus()

Data1.Recordset.FindFirst "[اسم الحقل في الجدول بحيث لايتكرر]='" & Text1.Text & "'"

If Data1.Recordset.NoMatch = True Then

Data1.Recordset.AddNew

Else

MsgBox ("السجل موجود ")

Text1.Text = ""

Text1.SetFocus

End If

السلام عليكم هذا الكود يتم فيه التأكد من السجل المدخل ويكون هذا في الحدث

text_lostfocus()

بحيث يكون في الادخال

الملف المرفق يحتوي على مثال بالطريقتين .

afboba.zip