01-11-13, 06:20 AM
عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن
من خلال القائمة add-ins ثم visual data manager
تابع الشرح من خلال
http://www.shattalarab.net/vb/iraq47990/
و هذا هو كود البحث اولا ضعه في زر الاضافة او اي كواند آخر
من خلال القائمة 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