شماره پرونده بصورت خودکار

[dddd10]

سلام
میخوام تو برنامه بصورت خودکار شماره پرونده صادر بشه. اگه اولی 1 بوده دومی بشه 2 و .......
با adodc چطور این کار ممکنه ؟

[M.T.P]

ابتدا با تابع Max بزرگرترین عدد فیلد رو استخراج می کنید ، بعد عدد حاصله رو بعلاوه یک می کنید.
http://www.w3schools.com/sql/sql_func_max.asp

[akbarg64]

اگه این وسط اومدیم 3 رو حذف کردیم و 10 تا داشتیم چطور به ریکورد جدید 3 بدیم؟؟؟؟؟؟ممنون میشم راهنمایی کنید.

[M.T.P]

اگه این وسط اومدیم 3 رو حذف کردیم و 10 تا داشتیم چطور به ریکورد جدید 3 بدیم؟؟؟؟؟؟ممنون میشم راهنمایی کنید.

تابع و دستوری به این منظور جایی ندیدم اما میتونی از یکی از دو روش زیر استفاده کنید:


استفاده از حلقه و شمارش از اولین رکورد تا رسیدن به رکورد حذف شده.
ایجاد یک جدول یادداشت به منظور ثبت شماره کد حذف شده و استفاده از آن.

[returnx]

اگه این وسط اومدیم 3 رو حذف کردیم و 10 تا داشتیم چطور به ریکورد جدید 3 بدیم؟؟؟؟؟؟ممنون میشم راهنمایی کنید.

روشی که جناب M.T.P گفتند درسته اما خود نوع داده Auto number اکسس هم اینکاری که شما میگید رو انجام نمیده ، پس خیلی رو این مسئله حساس نشید و حجم کدنویسیتون رو بالا نبرید...

[moghadam1372]

سلام
با این کد شماره پرونده بطور اتومات ردیف می شود واگر از وسط یکی حذف شود شما پرونده جدید باز می کنید وشماره پرونده را پاک کرده وعددمورد نظز را تایپ کرده وقابل اجرا است
.dim rs as new ADODB.RecordSet
dim code as integer
set rs = cnn.execute("select MAX(code) from customer")
(code = rs.Fields(0
text1.text = "" & code

[arash_eetemad]

سلام
این کد رو چطور میشه استفاده کرد؟؟

[mohammadriano]

سلام

if dataname.recordset.fields("auto ++").value <> "" then
dataname.recordset.fields("auto ++").value = dataname.recordser.fields("auto ++").value + 1
else
if text.text <>"" then dataname.recordset.fields("auto ++").value = text.text
end if

موفق باشی

[رامین مرادی]

به نظر من استفاده از یه فایل کنار برنامتون با صرفه تر هست چون اگه از بانک اکسس استفاده می کنید با افزایش حجم بانک اون مرتب کردن مقادیر ممکنه براتون دردسر ساز بشه البته محمد جان سرور ما هستن!!!!!!!!!!!!!!!!!!