Привязка папок к форме

@Павел_2013 · Регистрация: 06.11.2013

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

Добрый день!
Подскажите, пожалуйста, возможно ли в ленточной форме к каждой записи привязать конкретную папку хранящуюся на жестком диске (При нажатии на "Поставщик1" открывается папка данного поставщика на диске и т.д. Поставщик 2, Поставщик n)

@Вячеслав Я · 10.08.2016, 14:31

Павел_2013, В вошу таблицу добавил поле Документы с типом данных Гиперссылка. Вывел это поле в Вашу форму. На форме сделал кнопку для ввода данных в боле из компа, т.е. путь к нужному файлу. Сначало ставите курсор на нужную запись и нажимаете кнопку. На второй записи сделал ссылку (у Вас она не сработает, т.к. этого файла у Вас нет.
Смотрите вложение.

@Вячеслав Я · 10.08.2016, 14:40

Павел_2013, Чтобы создать папку, надо выбрать папку и не выделять в ней файлы.

@Павел_2013 · 10.08.2016, 15:52 **[ТС]**

Что-то не получается (по поводу создания папки, предложенным Вами способом). Можно папки с названиями поставщиков создать и заранее на диске, а потом через гиперссылки привязывать документы. Вообще такие изыскания вызваны тем, что ранее документы сохранялись в самой базе (тип данных "Вложение"), но примерно через годик, файл вырос до 2 Гб и всё, база не работает. Ищу решения.

@Вячеслав Я · 10.08.2016, 18:07

Павел_2013, При распаковке папки в папке рядом с базой будет 4 папки для поставщиков. Все настроил. Может не последовательно делаете? Папка должна быть на рабочем столе. Проверьте.
Опишите Ваши шаги, я свои описал выше.

@effort · 10.08.2016, 19:48

по клику:

Visual Basic

PoleDir = "C:\PoleDirName"
 
'если нет директории , то создаем
If Len(Dir(PoleDir, vbDirectory)) = 0 Then MkDir PoleDir
'затем открываем
Dim dlgOpenFile As Object ' FileDialog
  Set dlgOpenFile = Application.FileDialog(1)
  With dlgOpenFile
    .Filters.Add "*.*"
    .InitialFileName = PoleDir 'открываем директорию поля
    .Title = "Выберите файлы"
    .AllowMultiSelect = True 'позволяем выбрать несколько файлов
    If (.Show = -1) And (.SelectedItems.Count > 0) Then
      FileSelectCountIN = .SelectedItems.Count 'получаем количество выбранных файлов
        For i = 1 To FileSelectCountIN
         FileSelectNameIN(i) = .SelectedItems(i) 'получаем имена файлов
        Next
      End If
  End With
Set dlgOpenFile = Nothing

@Павел_2013 · 11.08.2016, 08:24 **[ТС]**

Вячеслав Я / Все получилось. Спасибо

@Вячеслав Я 2833 / 1375 / 215 Регистрация: 13.05.2011 Сообщений: 4,217
	10.08.2016, 14:40	3
	Павел_2013, Чтобы создать папку, надо выбрать папку и не выделять в ней файлы. 0

@Павел_2013 12 / 12 / 1 Регистрация: 06.11.2013 Сообщений: 113
	10.08.2016, 15:52 [ТС]	4
	Что-то не получается (по поводу создания папки, предложенным Вами способом). Можно папки с названиями поставщиков создать и заранее на диске, а потом через гиперссылки привязывать документы. Вообще такие изыскания вызваны тем, что ранее документы сохранялись в самой базе (тип данных "Вложение"), но примерно через годик, файл вырос до 2 Гб и всё, база не работает. Ищу решения. 0

@Павел_2013 12 / 12 / 1 Регистрация: 06.11.2013 Сообщений: 113
	11.08.2016, 08:24 [ТС]	7
	Вячеслав Я / Все получилось. Спасибо 0