نوشته شده توسط
atf1379
سلام
در نمونه زیر جدولی وجود دارد که دارای یک فیلد عددی از نوع 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