Страница: 1 |
Страница: 1 |
Вопрос: Проблема с Access. Ошибка 3163
Добавлено: 13.02.06 12:57
Автор вопроса: dmitroon
Имеется следующая проблема: при выполнении следующего кода
Private Sub FileName_GotFocus()
Dim fs, f, f1, fc, s
Dim folderspec As String
Dim q As Double
folderspec = [Forms]![qqq].[Folder]
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Dim rec As Recordset
Set db = CurrentDb
Set tbl = db.TableDefs("Files")
Set rec = tbl.OpenRecordset
rec.MoveFirst
For Each f1 In fc
rec.AddNew
--------> rec!Name = f1.Name
rec.Update
Next
End Sub
вылетает ошибка № 3163 "Выполнение операции невозможно; объем данных велик для поля. Попытайтесь вставить меньшее количество данных.
Размер поля, в которое выполняется вставка данных, недостаточен для этих данных. Попытайтесь вставить меньшее количество данных."
Ошибка не критическая, но все же подскажите, как можно её обойти.
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #1
Добавлено: 13.02.06 13:06
Собственно, сходить в конструктор таблицы и увеличить максимальную длину поля...
Номер ответа: 2
Автор ответа:
dmitroon
Вопросов: 2
Ответов: 1
Профиль | | #2
Добавлено: 13.02.06 13:14
Спасибо, помогло.