[دهشوش1]

السلام عليكم

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


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

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

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

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


الكود هو

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

[دهشوش1]

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

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

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

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

[دهشوش1]

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

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


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

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