شماره دهی اتوماتیک فیلد

[rezekh]

هرچند هنوز برای بنده این ابهام وجود دارده که چرا شماره وام اختصاص یافته به هر نفر که باید عددی یکتا و غیر قابل تغییر باشد باید تغییر کنه ولی با این حال خواسته شما رو از طریق ورود شروع شماره وام در تکست باکس فرم عملی کرده ام .

ممنونم لطف کردی
فقط مشکلی که است اگر بعکس نگاه کنید
رکوردهای انتخاب نشده نیز شماره دهی شده
سورت مبلغ درست است
سورت نام خانوادگی از A نشده
سورت نام از A نشده
مهمتراز همه فیلد شماره وام براساس شماره 1000 که دادم اصلاح نشده و فیلد کد نیز همه رکوردها شماره دهی نشده
اگر محبت کنید باز نگری کنید ممنون میشم چون خروجی اکسل بدین صورت میگیرم که براساس فلیدهای انتخابی و فیلدهای سورت شده سپس شماره دهی شود

[eb_1345]

سلام
در یک خط کد ... Set rs = db.OpenRecordset بجای کد اسکیوال نام کوئری جایگزین شود !
بصورت زیر:

Set rs = db.OpenRecordset("Query1", dbOpenDynaset)

[rezekh]

سلام
در یک خط کد ... Set rs = db.OpenRecordset بجای کد اسکیوال نام کوئری جایگزین شود !
بصورت زیر:

Set rs = db.OpenRecordset("Query1", dbOpenDynaset)

سلام خیلی خیلی ممنون از لطفتون .
درست شد