ایجاد عدد در دیتابیش

[vahid_d_0101]

با سلام
یه برنامه نوشتم که مثل یه برنامه کتابخانه عضو گیری میکنه
حالا میخوام برای شماره عضویت این کارها را انجام بدم
1 اتوماتیک شماره عضویت صادر بشه به صورتی که :
از عدد 370 شروع بشه و یکی یکی اضافه بشه
2 - اگی یه وقت یکی از عضو ها پاک شد برنامه به طور خود کار برای عضو بعدی اون عددی که داخل دیتا بیس نیست را بیاره برای مثال فکر کنید ما داخل بانک اطلاعاتی یه فیلد به نام id داریم حالا عضو گیری کردیم و از عدد 370 رسیدیم به عدد 450 حالا عضو شماره 372 و 420 را پاک کردیم
وقتی دوباره میخوایم عضو گیری جدید بکنیم داخل تکست شماره عضویت شماره 372 بیاد و برای عضو بعدی شماره 420 و برای عضو بعدی شماره 421 که یه شماره بعد از اخری هست بیاد
بانکم اکسس هست با استفاده از Adodc1 به بانکم وصل میشم

[Asemane Haftom]

باسلام:برای کار موارد زیر فراهم شود!
نام جدول list
نام فیلد Serial از نوع رشته ای
نام محل نمایش در فرم ، Label1
محل نوشتن داخل پروسۀ form load
شروع از عدد 375

Adodc1.RecordSource = "select count(*) as pp from list "
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then b = Adodc1.Recordset.Fields!pp
For i = 0 To b
z = z + 1
pz=z+375
bw = 1
Adodc1.RecordSource = "select count(*) as pp from list where serial =" & pz
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then bw = Adodc1.Recordset.Fields!pp
If bw = 0 Then Label1 = Str(z+375): Exit For
Next i

پس از لود شدن فرم در داخل label عدد 375 نوشته خواهد شد و برای ادامه حتماً بایستی عدد 375 در فیلد serial ذخیره شود ، تا در لود شدن های بعدی عدد 376 نمایش داده شود . ضمناً اگر رکوردی هم حذف شود در لود های بعدی آن عدد نمایش داده خواهد شد.