Я пытаюсь написать простую функцию для изменения размера текстового поля в 64-разрядной версии MS Access под Windows 7. Сбой с ошибкой 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