مشكور استاذنا العزي وتعبتك معي تم بنجاح عملية التحقق بنجاح انا ليس لدي اي مشكلة في تغير الاداة واعرف ازاي اتعامل مع كل الادوات .......... باقي لي مشكلة الاستعلام عن عدد الالوان مش راضي يعترض على اسم الون Col5="أزرق"
كود :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data2.RecordSource = "Select جهاز5,جهاز2,جهاز3,جهاز4 From Table1 Where جهاز2='" & Trim$(Text3.Text) & "' or جهاز3='" & Trim$(Text3.Text) & "' or جهاز4='" & Trim$(Text3.Text) & "' or جهاز5='" & Trim$(Text3.Text) & "'"
Data2.Refresh
If Data2.Recordset.RecordCount > 0 Then
MsgBox "الرقم المدخل موجود مكرر"
Data1.Recordset.CancelUpdate
Exit Sub
End If
Text4.SetFocus
End If
End Sub