33
TableDefオブジェクトの「FieldSize」プロパティでフィールドサイズの取得はできますが、すでに作成されているテーブルのフィールドサイズを変更することはできません。そこで、SQL文の「ALTER TABLE」を発行してフィールドサイズを変更します。
その構文は次のようになっています。
ALTER TABLE <テーブル名> ALTER COLUMN <フィールド名> <新しいデータ型>
プログラム
Sub SampleCode_33()
'既存テーブルのテキスト型フィールドのサイズを変更する
Dim dbs As Database
Dim strSQL As String
Set dbs = CurrentDb
'名前フィールドのサイズを変更
strSQL = "ALTER TABLE mtbl顧客リスト ALTER COLUMN 名前 TEXT(10)"
dbs.Execute strSQL
'ふりがなフィールドのサイズを変更
strSQL = "ALTER TABLE mtbl顧客リスト ALTER COLUMN ふりがな TEXT(20)"
dbs.Execute strSQL
End Sub
実行例
■実行前
■実行後
