ا.محمد صالح
هل الكود باشكل ده سليم
If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then
myT = Array("table1", "table2", "table3")
DoCmd.SetWarnings False
For Each T In myT
DoCmd.RunSQL "DELETE * FROM " & T & ";"
Next T
DoCmd.SetWarnings True
MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه"
Else
DoCmd.CancelEvent
End If
End Sub