@Raul_7

Уважаемые форумчане возникла проблема с гиперссылками!
В базе данных по клиентам возникла необходимость указать папку где будут находиться документы по конкретному клиенту, формат документов (doc.,pdf.,excel). Поле в БД имеет формат гиперссылка. Очень хотелось бы чтобы по двум кликам открывалось диалоговое окно (как в проводнике) где можно указать папку с файлами и этот путь прописывался бы в поле и затем можно было бы кликнув по образовавшейся гиперссылке один раз открыть папку с файлами, которые можно запустить.
Поискам решения данной задачи посвятил много часов (на форуме нашел решения по рисункам, по pdf файлам, но применить под свои требования так и не сумел) То появляется гиперссылка, но она не запускается, то вместо пути прописывается путь к конкретному файлу, а не к папке, то представлены коды макросов, которые отказывались работать.

0

@ltv_1953

Здесь смотрели Написание статей. Там есть отдельный пункт по работе с папками.

0

@Raul_7

Да, я это смотрел и как говорил выше смотрел многое другое. По клику у меня появляется диалоговое окно, а как путь к папке прописать в БД я не знаю. Если есть какие-нибудь ссылки, выложите буду очень признателен.

Добавлено через 26 минут
Чтобы не быть голословным вот немногое то, что пытался использовать (извиняюсь но ссылки на авторов не укажу потому что потерял что откуда брал)
'Диалог открытия файла
'strTitle - заголовок окна диалога
'strFolder - полный путь к каталогу по умолчанию
'strFilter - фильтр расширений файлов
'GetDbPath = funOpenFileDialog("Выберите файл с таблицами базы данных", "", "Access (*.mdb)")
'Dim strFile As String

'On Error GoTo Err_
' WizHook.Key = 51488399
' WizHook.GetFileName 0, "AppName", strTitle, "", strFile, strPathFolder, strFilter, 0, 0, 0, True
' funOpenFileDialog = strFile
'Exit Function

'Err_:
' MsgBox Err.Description
' Err.Clear
'End Function



'1
'strTitle - заголовок окна диалога
'strFolder - полный путь к каталогу по умолчанию
'strFilter - фильтр расширений файлов
'Function funOpenFileDialog(ByVal strTitle As String, ByVal strPathFolder As String, ByVal strFilter As String) As String
'Dim strFile As String

'On Error GoTo Err_
' WizHook.Key = 51488399
' WizHook.GetFileName 0, "AppName", strTitle, "", strFile, strPathFolder, strFilter, 0, 0, 0, True
' funOpenFileDialog = strFile
'Exit Function

'Err_:
' MsgBox Err.Description
' Err.Clear
'End Function
'End Function


'2
'GetDbPath = funOpenFileDialog("Выберите файл с таблицами базы данных", "", "Access (*.mdb)")



'3
'Dim FName As String
'Dim result As Integer
'Dim n
'With Application.FileDialog(1)
' .Title = "Выберите pdf файл"
' .InitialFileName = "C:\"
' .AllowMultiSelect = False
' .Filters.Clear
' .Filters.Add "PDF files", "*.pdf", 1
'result = .Show

'If result = 0 Then Exit Sub
'FName = Trim(.SelectedItems.Item(1))
'End With
'n = InStrRev(FName, "\")
'Me.[Поле30] = Mid(FName, n + 1)
'End Sub

0

@ltv_1953

Т.е о FSO по ссылке Вы прочитать не захотели. А зря. Там все есть ... .

Добавлено через 1 час 33 минуты
Хорошо, вот пример (измененный) с mrexcel.com

0