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

السلام عليكم

اخواني ممكن المساعدة في تصحيح او تعديل كود  ( الحذف )


في المشروع الاول

لكي يعمل بنفس طريقة

المشروع الثاني

الموجودة في المرفقات


الكود هو

If rs.State = 1 Then rs.Close
sql = "Delete * from Tabel1 where Num =" & Text1.Text & ""
rs.Open sql, db, adOpenKeyset, adLockOptimistic
MsgBox " تمت عملية الحذف بنجاح", vbInformation

رااااائع ااخى وشكرااا عالمتابعة وعلى سعة صدرررك

منكم نستفيد يعطييك الف عافيه اخي

وتعليقك في مكانه فهمت مغزاك

واشكركم على جهووودكم في هذا المنتدى الرائع

(13-11-17, 12:18 AM)Amir_alzubidy كتب : [ -> ]حياك الله اخي الحبيب 
اتمنى لك التوفيق 

حياك الله اخي
الشكر لا يعبر عن امتناني لك والله
ماشاء الله تبارك الله


فعلا هذا ما احتاجة
الان اصبح  المشروع جاااهز تقريبا ولن استغني عن لمساتك وعن هذا المنتدى الراااائع

جزيت خيراااا  وفق الله اخي