27-09-17, 03:28 PM
السلام عليكم
هذا الكود لم اجربه ولكني قلت اضعه هنا ويتم التعديل عليه ليتوافق مع الاصدار الجديد او يتم اضافته مع عملية الحفظ
وانا افضل اني اضيفه مع عملية الحفظ حتى يقوم بإرجاع واضافة الارقام الغير متوفرة
اتمنى المساعدة شباب
هذا الكود لم اجربه ولكني قلت اضعه هنا ويتم التعديل عليه ليتوافق مع الاصدار الجديد او يتم اضافته مع عملية الحفظ
وانا افضل اني اضيفه مع عملية الحفظ حتى يقوم بإرجاع واضافة الارقام الغير متوفرة
كود :
Sub xAppend()DoCmd.RunSQL "INSERT INTO YOUR_TABLE ( ID )" & _"SELECT [Plrase Insert ID Missing] AS idx; "End Sub