Привет, форумчане
Задача: при нажатии кнопки выбрать путь (в данном случае к расположению шаблонов - ) и записать его в соотв ячейку таблицы
Реализация:

    
    Dim Filename As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку"
        .InitialFileName = DLookup("dir", "pdir", "[dir_name] = 'Шаблоны'")
        result = .Show
        If (result <> 0) Then
            Filename = Trim(.SelectedItems.Item(1))
            Me.TempDir = Filename
            CurrentDb.Execute "update PDir set dir = " & Filename & " where PDir.Dir_Name = 'Шаблоны'"
        End If
    End With

При выполнении вылетает ошибка 3075: Ошибка синтакисиса (пропущен оператор) ....

Если прописать не путь, а любое текстовое значение:

    
    Dim Filename As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку"
        .InitialFileName = DLookup("dir", "pdir", "[dir_name] = 'Шаблоны'")
        result = .Show
        If (result <> 0) Then
            Filename = Trim(.SelectedItems.Item(1))
            Me.TempDir = Filename
            CurrentDb.Execute "update PDir set dir = 'Какое-либо Значение' where PDir.Dir_Name = 'Шаблоны'"
        End If
    End With

то в нужную ячейку записывается "Какое-либо Значение"
Предполагаю, что ошибка где-то в типах данных, но тип ячейки - Текстовое поле, так что не могу понять, в чем дело
Ткните носом

http://www.sql.ru/forum/1251683/zapis-puti-v-yacheyku