+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : ممكن كود عدم تكرار للارقام و الاسماء (/showthread.php?tid=30167)
ممكن كود عدم تكرار للارقام و الاسماء - princeofislam - 06-07-19
السلام عليكم اخواني
لطفا من الاخوة انني بحاجة الى كودين الاول يمنع تكرار الرقم الوطني والثاني كود يمنع تكرار الاسم
انني استخدم الاداة 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
RE: ممكن كود عدم تكرار للارقام و الاسماء - princeofislam - 06-07-19
لقد وجدت الحل لاكن اود ان اضعة هنا للتعديل عليه او ان يكون فائدة لغيري
كود :
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