Sub TabloTemizle()

    Dim strSQL As String

    Dim db As Database

    Set db = CurrentDb

    

        DoCmd.SetWarnings False

            

        strSQL = "DELETE * FROM TABLOADI;"

        db.Execute strSQL

            

        DoCmd.SetWarnings True

        Set db = Nothing

End Sub

TABLOADI yerine silinmesini istediğin tabloyu yaz.

butonun tıklandığında olayına

 call tablotemizle

şeklinde kullanabilirsin.