منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن كود عدم تكرار للارقام و الاسماء
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخواني 
لطفا من الاخوة انني بحاجة الى كودين الاول يمنع تكرار الرقم الوطني والثاني كود يمنع تكرار الاسم
انني استخدم الاداة 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
لقد وجدت الحل لاكن اود ان اضعة هنا للتعديل عليه او ان يكون فائدة لغيري

كود :
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