اتفضل
اليك هذا فانكشن
Public Function ClearAllData() As Boolean
Dim tdf As DAO.TableDef
Dim dbs as DAO.Database
Set dbs = CurrentDB
For Each tdf in dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
dbs.Execute "DELETE * FROM " & tdf.Name
End IF
Next tdf
Set dbs = Nothing
End Function
وفي خلف الزر الحذف اكتب
Call ClearAllData
راح يحذف كل البيانات من كل الجداول عدا جداول السيستم
تقبل تحياتي