التعديل على كود لاستكمال التقرير بمربعات فارغة

طويل العمر :)

انا ما اعرف اللي الكود يعمله ، فما دققت في تفاصيله :(

بس اللي صاير ان الكود يريد يحذف الجدول ، بس ما يقدر ، لأن التقرير معتمد على الجدول ، لهذا فالجدول غير قابل للحذف :(

انا عملت لك Function الذي يحذف جميع الجداول ، ولكن دائما سوف يبقى جدول واحد (الجدول المرتبط بالتقرير) :)

والكود هو:

Function DelTables()
    Dim tbl As AccessObject, dB As Object

On Error Resume Next
 
    Set dB = Application.CurrentData
    For Each tbl In dB.AllTables
        If Right(tbl.Name, 2) = "_0" Then
            DoCmd.DeleteObject acTable, tbl.Name
            'Debug.Print tbl.Name
        End If
    Next tbl

End Function

جرب افتح تقرير ثم اغلقه ، ثم افتح تقرير ثاني وثالث ، وشوف الجداول :)

جعفر

99.Rep_acceessna.mdb.zip

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

حل رائع جدا جدا استاذي العزيز جعفر 

جدول واحد افضل من عشرين  ;)

حل يرضي ،،، ابقاك الله ذخراً لهذا الصرح الرائع و جعله الله في ميزان حسناتك 

+1

::

تحياتي

حياك الله :)