AccessVBAでSQLを実行する

■ただ単に、複雑なことなにもせず、指定したSQL文を実行したいときのコード

Sub testCommandDelete()
   
    Dim strSQL As String
   
    strSQL = "DELETE FROM T_テストテーブル"

    DoCmd.SetWarnings False
   
        DoCmd.RunSQL strSQL
       
    DoCmd.SetWarnings True
   
End Sub