مرتب کردن فیلد عددی از نوع PrimaryKey

[atf1379]

سلام
در نمونه زیر جدولی وجود دارد که دارای یک فیلد عددی از نوع PrimaryKey میباشد . میخواهم از طریق کد نویسی اعداد این فیلد پشت سرهم مرتب شوند و اگر در بین اعداد عددی حذف شده آن عدد مجدد ایجاد شود .
مثلاً در جدول اعداد فیلد فوق شامل 1،2،3،5 است که میخواهم بصورت 1،2،3،4 مرتب شود
با تشکر

[eb_1345]

سلام
در نمونه زیر جدولی وجود دارد که دارای یک فیلد عددی از نوع PrimaryKey میباشد . میخواهم از طریق کد نویسی اعداد این فیلد پشت سرهم مرتب شوند و اگر در بین اعداد عددی حذف شده آن عدد مجدد ایجاد شود .
مثلاً در جدول اعداد فیلد فوق شامل 1،2،3،5 است که میخواهم بصورت 1،2،3،4 مرتب شود
با تشکر

سلام
کدهای زیر را جایگزین کدهای قبلی خود کن !

Private Sub SortId()

Dim lngCounter As Integer

Dim dbs As DAO.Database

Dim rs As DAO.Recordset

Set dbs = CurrentDb

Set rs = dbs.OpenRecordset("SELECT * FROM table1")

Do Until rs.EOF

   rs.Edit

   lngCounter = lngCounter + 1

   rs.Fields("ID") = lngCounter

   rs.Update

   rs.MoveNext

Loop

rs.Close

dbs.Close

Set rs = Nothing

Set dbs = Nothing

End Sub

[atf1379]

سلام
کدهای زیر را جایگزین کدهای قبلی خود کن !

Private Sub SortId()

Dim lngCounter As Integer

Dim dbs As DAO.Database

Dim rs As DAO.Recordset

Set dbs = CurrentDb

Set rs = dbs.OpenRecordset("SELECT * FROM table1")

Do Until rs.EOF

   rs.Edit

   lngCounter = lngCounter + 1

   rs.Fields("ID") = lngCounter

   rs.Update

   rs.MoveNext

Loop

rs.Close

dbs.Close

Set rs = Nothing

Set dbs = Nothing

End Sub

سلام
خیلی عالی

[145451159]

ممنون کد را کجا باید بزارم؟

[padide55]

ممنون کد را کجا باید بزارم؟

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

[parsa70]

سلام اگه فیلد ۱ اتو نامبر باشه و بعضی ردیف ها حذف بشه میشه این کارو کرد و درست سورت کنه؟؟
سپاس

[padide55]

مشکل با سورته یا جایگزینی ردیفهای خالی ؟
به نظرم بهتره ردیفهای اتونامبر حذف شده رو کاریش نداشته باشید .چون روشی برای کنترل داده های حذف شده هست و معلوم میشه دیتای موردنظر حذف شده و این به درد میخوره.
در هر صورت
یا اتونامبر حذف شده دارید و یا ردیف دیگه دارید که اتونامبر نیست
در هر دو‌مدل این روشها در دو پست اورده شده

[parsa70]

نه مشکل سورت نیست فقط چون کاربرها جدول رو هم نگاه میکنن و رکورد ها رو میشمرن میگن تو ردیف مثلا: ۵۰۰ تا هست و لی رکوردها ی وارده کمتره چون چند رکورد رو حذف کردن خیلی هم مهم نیست بنظرم.
ولی اگه AUTO NUMBER هم ریست میشد و از اول شمارش میشد بد نبود.
خیلی سپاس بابت پست‌های آموزشیتون.

[atf1379]

نه مشکل سورت نیست فقط چون کاربرها جدول رو هم نگاه میکنن و رکورد ها رو میشمرن میگن تو ردیف مثلا: ۵۰۰ تا هست و لی رکوردها ی وارده کمتره چون چند رکورد رو حذف کردن خیلی هم مهم نیست بنظرم.
ولی اگه AUTO NUMBER هم ریست میشد و از اول شمارش میشد بد نبود.
خیلی سپاس بابت پست‌های آموزشیتون.

سلام
الآن مگه مشکلت برطرف نشده ؟
جناب eb_1345 در تاپیک زیر در خصوص ریست کردن و اصلاح شماره اتونامبر حذف شده که نمونه گذاشته اند.
https://barnamenevis.org/showthread....88%D8%AF%D8%9F