كود لحذف ملف البرنامج

ولكن هذه الطريق غير مجدية وعواقبها وخيمة

اتمنى ان تذكر السبب حتى نستطيع إعطاءك حلول افضل

وشكرا

Private Sub Form_Open(Cancel As Integer)
If Date = #3/14/2007# Then

DoCmd.DeleteObject acTable, "table1"

End If
End Sub

ضع هذا الكود في صفحة البداية في البرنامج التي تريد أن يمحى

ثم كرر عملية delete لجميع الجداول والنمااذج والتقارير .. إلخ

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

هذه الطريقة جيدة لبرامج demo وليس لإلحاق الضرر بأحد

لذلك استخدمها فيما يرضي الله

وهذا من باب التذكير " وذكر فإن الذكرى تنفع المؤمنين "