كيف تحديث بيانات حقل حسب ترتيب معين ( استعلام تحديث)

هل يمكن عمل ذلك باكود؟؟

نعم أخى ممكن عمل ذلك

و لكن لما تريد عمل ذلك أصلا

ان تريد عرض البيانات بشكل معين او بترتيب معين يمكنك أن تستخدم استعلام لترتين السجلات كيفما تشاء و لن يؤثر ما هو الترتيب الموجود بالجدول

ثانيا أنت لا تحتاج الى حقل تسلسل الاقدمية فى الجدول لانك تحسبه فى كل مرة

ما نحتاجه هنا

هو دالة لترتيب سجلات الاستعلام ( ضعها فى وحدة نمطية )

Function Serialize(qryname As String, keyname As String, keyvalue) As Long
Dim rs As Recordset
On Error GoTo Err_Serialize

Set rs = CurrentDb.OpenRecordset(qryname, dbOpenDynaset, dbReadOnly)
rs.FindFirst Application.BuildCriteria(keyname, rs.Fields(keyname).Type, keyvalue)
Serialize = Nz(rs.AbsolutePosition, -1) + 1

Err_Serialize:
rs.Close
Set rs = Nothing
End Function

و هذا هو الاستعلام ( انشىء استعلام جديد و ضع هذه الجملة به )

SELECT TableEmploy.المعرف, TableEmploy.NumEmploys, TableEmploy.DataUpdate, TableEmploy.NameEmploys, TableEmploy.Sequence, serialize('Query1','NumEmploys',[NumEmploys]) AS SS
FROM TableEmploy
ORDER BY TableEmploy.NumEmploys, TableEmploy.DataUpdate, TableEmploy.NameEmploys;

عموما اذا كنت مصرا على تحديث الجدول فلا مشكلة فى ذلك  فقط ستغير هذا الاستعلام الى استعلام انشاء جدول ثم تحذف الجدول القديم و تعيد تسمية الجدول  الجديد بنفس اسم الجدول القديم

و اذا كان الامر مجرد ترتيب البيانات لعرضها فالاستعلام أفضل و يكفى

و بالتوفيق

شكر اخي ابو يوسف ولكني اريد تحيث الحق فقط اي انه اريد استعلام تحديث يقوم بتلك المهمة ولتقريب الوصول الى حل يوجد بالمرفق مثال للاخت زهرة ام عهود جزاها الله خيرا لأعادة الترقيم التلاقائي لحقل رقمي

هلي لي اطبق اعادة الترقيم مع اعادة وترتيب السجلات دون الحاجة لأنشاء جدول جديد

ZA-ReAutoNumber.rar

 جمعة مباركة للجميع