Сохранение путей внешних файлов в базе через ВБА

@AxOn · Регистрация: 28.04.2014

Студворк — интернет-сервис помощи студентам

Всем доброго дня!

Есть такая задача: создать базу данных документов предприятия. В базе должна храниться ссылка на документ (скан-копию). Решил завести в таблице поле и в нем хранить ссылку. Вопрос:
1. Как организовать добавление пути документа?
нашел такое решение:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      .AllowMultiSelect = False
      .Title = "Select One File"
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
 
      If .Show = True Then
         For Each varFile In .SelectedItems
             Me.Link.SetFocus
             Me.Link.Value = varFile
         Next
      Else
         MsgBox "Bla-bla."
      End If
   End With

Но упорно выдается сообщение типа "Не возможно обратиться к свойству, пока фокус не установлен на элемент".
Подскажите, как получить путь выбранного в окне документа и добавить его в базу?

2. Может есть еще какие-то идеи по добавлению вложений в базу?

ПС: Access 2003

Заранее благодарю

@BasicMan · 14.05.2009, 19:04

здесь есть решение подобной задачи (пост 3)

@AxOn · 15.05.2009, 17:44

Сообщение от Бурундук

здесь есть решение подобной задачи (пост 3)

Прочитал, но там нет решения моего вопроса. Мне не нужна инфа о подкаталогах и т.д. Моя задача получить путь одного (MultiSelect=False) выбранного в диалогом окне файла и добавить этот путь в соотв. поле после закрытия окна диалога. Собственно, что я и пытаюсь сделать тут:

Visual Basic
1
2
3
4
5
6
7
8
      If .Show = True Then
         For Each varFile In .SelectedItems
             Me.Link.SetFocus
             Me.Link.Value = varFile
         Next
      Else
         MsgBox "Bla-bla."
      End If

Link - поле на форме, в котором храниться нужный мне путь. При выполении не могу получить доступ к Link, так как на тот момент активно диалоговое окно FileDialog. Пожалуйста, помогите разобраться.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	14.05.2009, 19:04
	здесь есть решение подобной задачи (пост 3) 0