هذا الكود لحذف بيانات الجدول بالكامل
حيث G A اسم الجدول
If IsNull(DLookup("[a]", "G_A")) Then
MsgBox "تنبيه", , "لا توجد بيانات للحذف"
Exit Sub
End If
If MsgBox("هل تود حذف جميع البيانات ", vbYesNo, "تنبيه") = vbYes Then
Me.Refresh
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE G_A.* FROM G_A;"
DoCmd.SetWarnings True
Me.Requery
Else
Exit Sub
End If