const adDate = 7
const adColNullable = 2 '列に、Null 値を含めることができます。
call DoPatch
sub DoPatch
Dim catDB
Dim tblAlt
Set catDB = CreateObject("ADOX.Catalog")
Set ColTemp= CreateObject("ADOX.Column")
ColTemp.Name = "ひづけ"
ColTemp.Type = adDate
' ColTemp.DefinedSize = 24
ColTemp.Attributes = adColNullable 'Nullヲ許容
' カタログを開きます。
catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:\MYDB.mdb"
'変更対象テーブル
Set tblAlt = catDB.Tables("テーブル名をここに入力")
With tblAlt
' フィールドを作成し、新規の Table オブジェクトの
' Columns コレクションに関連付けます。
With .Columns
.Append ColTemp
End With
End With
Set catDB = Nothing
msgbox "データ構造パッチ完了"
Exit Sub
end sub