تشييك على الأرقام الناقصة وإضافة سجل بها

مشرفين وأعضاء منتدانا الرائع....السلام عليكم

عندي مشكلة حاولت أن أحلها بنفسي وتعبببببببببت كثيرا ... توصلت الى جزء من الحل وأتمنى ان تدلوني على طريقة لاكمال الباقي ... بدون إطالة عليكم

عندي جدول فيه أرقام فواتير سابقة .... لكنها ليست متسلسلة بمعنى هناك فاتورة برقم 900 والفاتورة اللي بعدها برقم 903 مثلا والل بعدها 904... المطلوب أنه عندما يقوم المستخدم بإضافة فاتورة

أن يقوم البرنامج بعملية "تشييك" إذا كان هناك أرقام لم تؤخذ فإن البرنامجح يعطي المستخدم هذا الرقم ...كما في المثال يعطيه"901" , وحين تكتمل الفجوات داخل أرقام الفواتير يبدأ بإعطاء المستخدم أرقام تسلسية كما في المثال 904 ثم 905 وهكذا..استخدمت

do

MyStr1 = bill_code

DoCmd.GoToRecord , , acNext

Loop Until (Me.bill_code - MyStr1 > 1"

قد تكون الطريقة من البداية غلط, لإن يبين للمستخدم كل سجل علما بأن عدد السجلات 3000, مشى البرنامج ولكن حين اكتمل من تغطية الأرقام التي لم تؤخذ في الوسط ,لم يعطي أرقام جديدة...أرجوكم سعدوني أثابكم الله...