[Ahmed_Mansoor]

أهلا أخي الكريم ، إذا كنت تستخدم أداة الـ Adodc في الإتصال بقاعدة البيانات وربطها بالتكستات ثم تريد الفحص عن التكرار إن وجد فيفضل أن تدرج أداة Adodc جديده وتكون خاصه بالإستعلامات فقط وأداة الـ Adodc الأولى دعها للربط بالتكستات وعمليات الإضافه والتعديل والحذف وغيرها ، قم بربط أداة الـ Adodc الثانيه بقاعدة البيانات كما ربطت الأداة الأولى ثم ضع كود الإستعلام وفحص ما إذا كان الرقم الجديد موجود في أي من الأعمده الأربعه في بداية كود زر الحفظ لنفترض أن إسم الجدول Table1 وأسماء الحقول الأربعه الخاصه بالأرقام هي Col1,Col2,Col3,Col4 وإسم حقل الألوان هو Col5 وأن الرقم الجديد الذي تريد فحصه موجود في الـText1 إذا ستكون جملة الإستعلام الخاصه بالفحص كالتالي :

PHP كود :

Adodc2.RecordSource = "Select * From Tabl1 Where Col1=" & Val(Trim$(Text1.Text)) & " or Col2=" & Val(Trim$(Text1.Text)) & " or Col3=" & Val(Trim$(Text1.Text)) & " or Col4=" & Val(Trim$(Text1.Text))
Adodc2.Refresh
IF Adodc2.RecordSet.RecordCount > 0 Then
    MsgBox "الرقم المدخل موجود مكرر"
End IF 


وبالنسبه لكود حساب تكرار الألوان قم بإدراج 3 تكستات تكست لكل لون مثلا Text7 للون الأحمر وText8 للون الأخضر وText9 للون الأزرق وضع كود الإستعلام هذا في زر جديد :

PHP كود :

Adodc2.RecordSource = "Selec (Select Count(Col5) From Table1 Where Col5="أحمر") as cRed,(Select Count(Col5) From Table1 Where Col5="أخضر") as cgreen,(Select Count(Col5) From Table1 Where Col5="أزرق") as cBlue From Table1"
Adodc2.Refresh
IF Adodc2.RecordSet.RecordCount > 0 Then
    Text7.Text = Adodc2.RecordSet!cRed
    Text8.Text = Adodc2.RecordSet!cGreen
    Text9.Text = Adodc2.RecordSet!cBlue
Else
     Text7.Text = "0"
     Text8.Text = "0"
     Text9.Text = "0"
End IF