اذا كان عدد سجلات الجدول اكثر من اربع سجلات يتم الاحتفاظ باخر اربع سجلات وحذف السجلات الستة الاولى

[الحلبي]

السلام عليكم ورحمة الله وبركاته

فى حالة عدم الاحتياج لجميع بيانات سجلات الجدول يلزم ان نحذف بعض السجلات لعدم كبر قاعدة البيانات

وفى هذا المثال يوجد عشرة سجلات المطلوب الاحتفاظ باخر اربع سجلات وحذف الست الاولى فى حالة وصول عدد السجلات الى عشرة

جزاكم الله خيرا

اخر اربع سجلات.accdb

[Barna]

منذ ساعه, الحلبي said:

السلام عليكم ورحمة الله وبركاته

فى حالة عدم الاحتياج لجميع بيانات سجلات الجدول يلزم ان نحذف بعض السجلات لعدم كبر قاعدة البيانات

وفى هذا المثال يوجد عشرة سجلات المطلوب الاحتفاظ باخر اربع سجلات وحذف الست الاولى فى حالة وصول عدد السجلات الى عشرة

جزاكم الله خيرا

استخدم هذا ..................

Dim i As Integer
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("t1")

While rst.RecordCount >= 10
    rst.MoveFirst
        For i = 1 To 6
            rst.Delete
            rst.MoveNext
        Next
    Wend
rst.Close
MsgBox "تم حذف كل السجلات اللازمة", vbOKOnly, "تنبيه"

 

[الحلبي]

20 دقائق مضت, Barna said:

ستخدم هذا

الله يفتح عليك

هو المطلوب بالصبط

جزاك الله كل خير وزادك من فضله واسعدك فى الدنيا سعادة لا شقاء بعدها

كل الاحترام والتقدير لكم

[Barna]

16 دقائق مضت, الحلبي said:

الله يفتح عليك

هو المطلوب بالصبط

جزاك الله كل خير وزادك من فضله واسعدك فى الدنيا سعادة لا شقاء بعدها

كل الاحترام والتقدير لكم

امين واياك يا دكتور @الحلبي