[princeofislam]

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

1- my database is database.mdb
my record is kaf
my filed is mynum
text1.text
-------------------------
2- my database is database.mdb
my record is kaf
my filed is myname
 text4.text

[princeofislam]

لقد وجدت الحل لاكن اود ان اضعة هنا للتعديل عليه او ان يكون فائدة لغيري

كود :

Private Sub Text4_KeyPress(KeyAscii As Integer)
On Error Resume Next

        If KeyAscii = 13 Then  ' The ENTER key.
       
                      Dim str1 As String
  Adodc1.Recordset.MoveFirst
  str1 = Text4.Text
 Adodc1.Recordset.Find "myname='" & str1 & "'"
If Adodc1.Recordset.EOF Then
   
   
    Text5.SetFocus
    SendKeys "{Home}+{End}"
Else
   MsgBox "  íæÌÏ ÓÌá ÈåÐÇ ÇáÑÞã ", vbInformation + vbMsgBoxRight + vbOKOnly, "ÊäÈíå"
         
         KeyAscii = 0
     SendKeys "{Home}+{End}"

End If
End If

End Sub