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

[أيمن عبادي]

السلام عليكم

 

أعزائي الاعضاء

 

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

 

الف شكر

Delete all records.rar

[ابو عارف]

أخي اليك التعديل حذف سجلات

H_Delete all records.rar

[أيمن عبادي]

بوركت أخي ابو عارف 

[alaa aboul-ela]

ماذا لو اردت ارجاع الترقيم التلقائي من الصفر من جديد ؟؟؟

حتى لا يظهر بان قاعدة البيانات مستخدمة سابقاً وانا حديثة العهد ولم يتم حذف بيانات منها ؟؟؟

[ابوخليل]

لتصفير الجداول

بعد حذف جميع السجلات اعمل ضغط واصلاح للقاعدة 

[profpal]

يتم كتابة اسماء الجداول المراد حذفهم

مثال 

 

DoCmd.Requery

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE Table1.* FROM 1"

DoCmd.RunSQL "DELETE Table1.* FROM 2"

DoCmd.RunSQL "DELETE Table1.* FROM 3"

DoCmd.SetWarnings True

Form.Requery

علما بان 1 و2 و3 اسماء جداول