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

السلام عليكم اخواني
لطفا من الاخوة انني بحاجة الى كودين الاول يمنع تكرار الرقم الوطني والثاني كود يمنع تكرار الاسم
انني استخدم الاداة 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

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

princeofislam

princeofislam