حذف کلیه اطلاعات با یک کلیک

[Mehr@ban]

سلام
خدمت شما

If Not Form.NewRecord Then

    If MsgBox("Delete all existing information?", vbYesNo, "Delete ") = vbYes Then

        DoCmd.RunCommand acCmdSelectAllRecords

        DoCmd.SetWarnings False

        DoCmd.RunCommand acCmdDeleteRecord

        DoCmd.SetWarnings True

    Else

        Cancel = True

    End If

Else

    MsgBox "No Information is Available for Deletion!"

End If