ник: Гоблин
Ну так это.. Путь к файлу записать в таблице. Как-то сам же мне это показывал.
У меня в базе работает подключение снимка в рамку на форме. Сами снимки лежат в папке с базой. Код на эту кнопку с пояснениями выглядит так.
Dim fileName As String
Dim result As Integer
DoCmd.GoToRecord , , acNewRec
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выбор изображения" 'подпись окна
.Filters.Add "Все файлы", "*.*" 'список разрешенных к отображению файлов
.Filters.Add "Рисунки jpg", "*.jpg"
.Filters.Add "Рисунки bmp", "*.bmp"
.FilterIndex = 2 'В данном случае тип файла по умолчанию jpg 2 строка
.AllowMultiSelect = False 'разрешать выделять несколько файлов (через шифт)
.InitialFileName = CurrentProject.path 'имя файла
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1)) 'в строке имя файла отобразить выделенный
'отобразить поле путь, вставить фокус, имя, убрать фокус с поля и убрать поле с видимости
Me![Путь1].Visible = True
Me![Путь1].SetFocus
Me![Путь1].Text = fileName
Me![Код].SetFocus
Me![Путь1].Visible = False
Me![Кнопка267].Visible = True
End If
End With
Рисунки прикрепляются к определенной записи, показываются в подчиненной ленточной форме.