Работа с вложениями Access через VBA

[Rinsvid]

Доброго времени суток, уважаемые!

Суть проблемы: есть таблица (работы предприятия), у нее есть столбец "Вложения" с соответствующим типом данных.

Таблица большая, по ней организован поиск. В форме вывода результатов есть кнопка "Добавить вложение", по которой открывается формочка с текстовым полем и кнопкой. В поле вводится индекс работы, к которой добавляется вложение. По кнопке открывается диалоговое окно выбора файла. Файл пользователь выбирает из какого-то "своего" места, далее он копируется с присвоением ему имени = индекса и сохраняется в нужной директории.

Вопрос: как сделать, чтобы этот файл отображался в таблице базы в поле "Вложения"?

Private Sub Кнопка3_Click()

Dim addFile As String
Dim newFileName As String
Dim objFSO As Object, objFile As Object
Dim FD
Dim razr As String
Dim ind As String

'Выбор файла
Set FD = Application.FileDialog(1)
With FD
    .AllowMultiSelect = False
    .Title = "Выберите файл акта"
    .Filters.Clear
    .InitialFileName = "C:\"
    .InitialView = msoFileDialogViewDetails
    If FD.Show = 0 Then Exit Sub
End With

'Копирование файла
razr = Right(FD.SelectedItems(1), Len(FD.SelectedItems(1)) - InStr(1, FD.SelectedItems(1), "."))

If Len(Me.Index) < 5 Then
    ind = String(5 - Len(Me.Index), "0")
End If

'Адрес папки назначения
newFileName = "C:\DB\Acts\" & ind & Me.Index & "." & razr

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(FD.SelectedItems(1))
objFile.Copy newFileName

CurrentDb.Execute "UPDATE Работы SET Работы.Вложения = " & newFileName & " WHERE Работы.Код = " & Me.Index

MsgBox "Файл добавлен в базу", vbInformation, ""
DoCmd.Close

End Sub

Выдается ошибка: Run-time error 3075: Ошибка синтаксиса (пропущен оператор) в выражении запроса 'С:\*адрес папки назначения*'

[Aleksandr H.]

Здесь ошибка?

CurrentDb.Execute "UPDATE Работы SET Работы.Вложения = " & newFileName & " WHERE Работы.Код = " & Me.Index

Может надо newFileName в кавычках?

[Rinsvid]

Спасибо))
Не знаю, я все перепробовал и решил пойти другим путем)) Убрал из таблицы столбец вложений и добавил "Ссылка", а путь к файлу записал как гиперссылку #" & FileName & "#

В принципе, почти тоже самое)) Так что спасибо, тему можно закрывать

[Rinsvid]

Еще вопрос возник, надеюсь проблему можно решить.

Итак, сделал форму для добавления записей в таблицу. На форме есть поле со списком (берет информацию из другой таблицы), заблокированное поле Index, состоящее из "=Max([Id])+1)" (для отображения присваиваемого номера и использования в имени вложения), поля для заполнения, флажок с изначальным значением false и кнопка. Если флажок меняется на true, то дополнительно открывается окно выбора файла.

Я бы даже код показал (хотя скорее всего я бы не писал это сообщение тогда), но к коду претензий нет, все работало как надо. Проблема в том, что спустя какое-то время при запуске именно этой формы Access находит какую-то ошибку и закрывается сам собой. Редактор VB при этом не открыть - тоже какую-то ошибку обнаруживает и вылетает. Любые действия с этой формой приводят к одному результату - вылет.

Помогите, что делать? Вся работа встала....