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

[أبو امين]

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

لي طلب للاخوة هل بالامكان مدي بكود او رابط موجود بالمنتدى لطريقة حذف بيانات عدة جداول حسب الخيارات : 

مثلا عندما اضغط على زر الحذف ينبثق مثلا نموذج فيه جملة من الخيارات مثل هل تريد حذف بيانات الجدول مثلا 1 او 2 او 3 او 4 و هكذا دواليك 

مشكورين على التفاعل و المساعدة و جعلها الله في ميزان حسناتك

[ابو ياسين المشولي]

  Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

        If Left(obj.Name, 4) <> "MSys" Then
            
            DoCmd.SetWarnings False
                DoCmd.RunSQL ("Delete * From " & obj.Name)
            DoCmd.SetWarnings True
            
        End If
        
    Next obj
    
    MsgBox "تم حذف سجلات جميع الجداول"

راجع هذا

هنا

تم تعديل مايو 14, 2022 بواسطه ابو ياسين المشولي

[أبوبسمله]

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

مشاركه لاخى واستاذى العزيز @ابو ياسين المشولي جزاه الله خيرا وحمدالله على السلامه ومنور المنتدى

اطلع ع الرابط التالى لاخى واستاذى العزيز ابوجودى جزاه الله خيرا

بالتوفيق