حذف السجلات

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

DoCmd.RunSQL "DELETE tblcrd.*FROM tblcrd;"

ضع بدلا من tnlcrd اسم الجدول المراد حذف البيانات منه .

أِشرف خليل

طريقة أخرى للفائدة0

أنشيء نموذج يعرض البيانات وليس بالضرورة أن يكون نموذج مستمر

ضع عليه مربعي نص

الأول : Txt1 هذا المربع نضع فيه رقم السجل الذي نريد أن يبدأ الحذف به0

الثاني : Txt2 هذا المربع نضع فيه رقم السجل الذي نريد أن يتوقف الحذف بعده مباشرة0

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

         Dim t As Integer   ' إعلان عن متغير  يحتفظ بقيمة تبدأ بها حلقة التكرار
        DoCmd.SetWarnings Fals
        ' رسالة تنبيه للمستخدم بضرورة إدخال الكمية حتى يتم تكرار السجلات بالعدد المطلوب

       If MsgBox("يجب أن تدخل الكمية حتى يتم حفظ البيانات ", vbInformation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
        Exit Sub

       Else

        t = Txt1   '    مربع نص نضع فيه رقم السجل الذي نريد الحذف أن يبدأ منه
         For t = t To Txt2 '    مربع نص نضع فيه رقم السجل الذي نريد الحذف أن يتوقف عنده

        DoCmd.RunCommand acCmdDeleteRecord
         Next t ' أمر بمعنى كرر أو أعد
    End If
        DoCmd.SetWarnings True

وبالتوفيق إن شاء الله

أنشئ استعلام حذف ثم أظهر خصائص الاستعلام وفي خاصية القيم العليا اكتب 200

للجميع خالص شكري وتقديري

لقد تم المطلوب