Windows 7 の MS Access 64 ビット バージョンでテキスト フィールドのサイズを変更する単純な関数を作成しようとしています。エラー 3420、オブジェクトが無効であるか、設定されていませんで失敗します。どうしてこれなの?MS Access 64 ビット バージョンでは、コード内のテーブルを変更できなくなりましたか?
コードは次のとおりです。
Private Function ResizeSingleTextField(sTableName As String, _
sFieldName As String, _
iLength As Integer)
ResizeSingleTextField = False
Dim sSQL As String
sSQL = "ALTER TABLE " & sTableName & " " _
& "ALTER COLUMN " & sFieldName & " " _
& "TEXT (" & iLength & ")"
CurrentDb.Execute (sSQL)
ResizeSingleTextField = True
Exit Function
End Function
Public Sub TestIt()
Dim result As Boolean
result = ResizeSingleTextField("GregTest", "MyTextField", 12)
Debug.Print result
End Sub