AccessVBA テーブルのデータを全て削除する

■呼び出し元プローシージャ

Sub テーブル削除()
    'MT_社員マスタのデータを全て削除
    Call DeleteTableData("MT_社員マスタ")
End Sub

■呼び出し先プロシージャ

Sub DeleteTableData(strTableName As String)
'------------------------------------------------
'機能：指定されたテーブル内のデータを全て削除する
'引数1：データ削除対象テーブル名
'------------------------------------------------
    Dim strSQL As String
    strSQL = "DELETE FROM " & strTableName
    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
End Sub