テーブル

インポートエラーテーブル削除

   Dim dbs As Database
   Dim tbl As TableDef
   Dim j As Long
   
   Set dbs = CurrentDb
   dbs.TableDefs.Refresh
   
   For j = dbs.TableDefs.Count - 1 To 0 Step -1
   If dbs.TableDefs(j).Name Like "*インポート エラー*" Then
   dbs.TableDefs.Delete dbs.TableDefs(j).Name
   End If
   Next j
   
   dbs.Close
   Set dbs = Nothing

変数テーブル削除

 例1)
 strSQL = "DELETE * FROM " & strTbl    //テーブル名に(カッコ)は使わないように
                        ↑スペースが入る
 例2) 
 strSQL = "DELETE * FROM t_A" & i

テーブルにフィールド追加

 strSQL = "ALTER TABLE テーブル名 ADD COLUMN フィールド名 INTEGER"
 DoCmd.RunSQL strSQL
 
 'フィールド名が記号の場合[]で囲む
 strSQL = "ALTER TABLE テーブル名 ADD COLUMN [<>] INTEGER"

テーブルからフィールド削除

 strSQL = "ALTER TABLE テーブル名 DROP COLUMN [<>]"
 DoCmd.RunSQL strSQL