+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود اعادة الارقام المحذوفة (/showthread.php?tid=21902)
كود اعادة الارقام المحذوفة - 0theghost0 - 27-09-17
السلام عليكم
هذا الكود لم اجربه ولكني قلت اضعه هنا ويتم التعديل عليه ليتوافق مع الاصدار الجديد او يتم اضافته مع عملية الحفظ
وانا افضل اني اضيفه مع عملية الحفظ حتى يقوم بإرجاع واضافة الارقام الغير متوفرة
كود :
Sub xAppend()DoCmd.RunSQL "INSERT INTO YOUR_TABLE ( ID )" & _"SELECT [Plrase Insert ID Missing] AS idx; "End Sub