سؤال حول ترتيب الخلايا عند الضغط على زر إضافة

تفضل اخى جرب هذا الكود

فى حدث عند الضغط

Private Sub ÃãÑ6_Click()
On Error GoTo Err_ÃãÑ6_Click
Dim x As Integer
Dim rs As Recordset
Set rs = Me.Recordset   'CurrentDb.OpenRecordset("  SELECT table1.* FROM table1 ORDER BY table1.id;")

rs.MoveFirst
For x = 1 To rs.RecordCount
rs.Edit
    Select Case rs!degree
      Case Is = "ÇáÃÓÈÞ"
      rs!degree = ""
      Case Is = "ÇáÓÇÈÞ"
      rs!degree = "ÇáÃÓÈÞ"
      Case Is = "ÇáÍÇáì"
      rs!degree = "ÇáÓÇÈÞ"
      Case Else
      rs!degree = ""
    End Select
rs.Update
rs.MoveNext
Next x

DoCmd.GoToRecord , , acNewRec
Me.degree = "ÇáÍÇáì"

Exit_ÃãÑ6_Click:
    Exit Sub

Err_ÃãÑ6_Click:
    MsgBox Err.Description
    Resume Exit_ÃãÑ6_Click

End Sub

db1.rar

ماشاء الله عليك أخي العزيز ، نعم هذا المطلوب ... بارك الله فيك ...

ماذا إذا حذفنا أحد السجلات الأخيرة ، هل سيتم إعادة الترتيب مرة أخرى ...

بارك الله فيك ...

+1

الكود

عند الاضافة

يمكنك تعديله و استخدامه عند الحذف

شكرا لك مرة أخرى ....

بارك الله فيك

أخي العزيز .. في الحقيقة حاولت جاهدا تعديل الكود السابق ولكن بدون نتيجة ، المشكلة هي عند القيام بحذف السجل الذي يحمل درجة "الحالي" ، يجب أن يتم تعديل السجل الذي قبله إلى "الحالي" بدلا منه .. وهكذا عند حذف "السابق" يجب تحويل الأسبق إلى "السابق" بدلا منه ... وهكذا

وفقك الله إلى كل خير ...

الأخوة الاعزاء ... سوف أحاول تبسيط الموضوع قليلا ، حيث قد قمت بتغيير الفكرة عما كانت عليه ..

أريد في الملف المرفق عند القيام بالضغط على زر ترتيب الخلايا أن يتم إضافة كلمة "الحالي" ، "السابق" ، "الأسبق" في حقل الدرجة وذلك للثلاثة السجلات الأخيرة من الجدول دائما . الفكرة هي إدخال البيانات بشكل مباشر على الحقول وعند الإنتهاء من إدخال 5 أشخاص على سبيل المثال نقوم بالضغط على زر ترتيب حتى يتم ترتيب الخلايا مباشرة وفق المسميات السابقة.

المجال مفتوح للجميع ...

بارك الله فيكم

test.rar

للتذكير فقط ....