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

وما زال البحث مستمرا

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

If Data1.Recordset!noch = Text1.Text Then

MsgBox ("ÇáÔíß ãæÌæÏ ãÓÈÞÇ")

Exit Sub

End If

Data1.Recordset.MoveNext

Loop

Data1.Recordset.AddNew

Data1.Recordset!noch = Text1.Text

Data1.Recordset.Update

Data1.Refresh

هذا كود عدم التكرار

بس بشرط لا تربط مربع النص بالحق يدويا

الافضل تربطهم بالكود

يععني مثلا

data1.recordset!noch=text1.text

تضع هذا في زد الحفظ

ثاني شي حاول ماتحط data1.recordet.addnew فس زر الاضفه

فقط فرغ الحقول في زر الاضافه

وفي زر الحفظ حط data1.recordset.addnew

ثم اربط كل حق بمربعات النصوص

ثم data1.recodset.update

اخي العزيز serious

اشكرك كل الشكر على المساعدة في المثال

ولكن اخي سويت وطبقت زي ما كتبت ولكن بدون جدوي

ارجو منك تطبيق هذا الحل على المثال ورفعة من جديد ليتم الاستفادة منة

وسنكون شاكرين لك على حسن تعاونك للمرة الثانية

والله في عون العبد ما داما العبد في عون اخية

تفضل اخي

2222.rar

اخي العزيز serious اسعد الله صباحك

كل الشكر على التعديل ولكن ياخي عندما يتم التخزين لايتم التخزين في قاعدة البيانات غير رقم الشيك والمعلومات الباقية لاتخزن

وهذا ما حدث معي عندما تنفيذ الكود السابق فماهي المشكلة ياترى

اشكرك مرة ثانية

اخي العزيز serious تحية طيبة

اشكرك على ماقمت بة وقد عمل البرنامج بكل نجاح

وحتى يستفيد منة العدد الكبير من الاعضاء سنرفق هذا المثال كامل مكتمل

والله الموفق

Example.rar

بارك الله فيك

اخواني السلام عليكم

من زمان وانا ادور على حل لمشكلتي وهي تكرار رقم السجل المدني

ولكن عملية الربط عندي باستخدام Adodc

ارجو مساعدتي بعدم تكرار السجل المدني وعند محاولة تكرارة اريد ظهور رسالة انه موجود وكذلك احضار السجل

الف الف شكر لكم جميعاً