+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] أريد كود منع تكرار الرقم (/showthread.php?tid=527)
الصفحات:
1
2
RE: أريد كود منع تكرار الرقم - asto - 01-11-13
عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن
من خلال القائمة add-ins ثم visual data manager
تابع الشرح من خلال
http://www.shattalarab.net/vb/iraq47990/
و هذا هو كود البحث اولا ضعه في زر الاضافة او اي كواند آخر
كود :
Data1.Recordset.OpenRecordset
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
ضع اوامر لتنفيذها عند الايجاد (لمنع الاضافة لا تكتب شيئا هنا)
else
ضع اوامر لتنفيذها عند عدم الايجاد (اوامر الاضافة هنا و يمكنك وضع اية اوامر اخرى)
End If