インポートエラーテーブル削除
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
最終更新:2011年05月31日 14:30