access vba フィールド型変換
Option Compare Database
Function alterFields()
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sql As String
Set cn = CurrentProject.Connection
cmd.ActiveConnection = cn
sql = "ALTER TABLE [テーブル名] ALTER COLUMN [カラム名] TEXT(50)"
cmd.CommandText = sql
cmd.Execute
MsgBox ("OK")
alterFields = ""
End Function