Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Hyperlink & ../../  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2876
Есть поле, для которого создан тип поля Hyperlink.
При вставке файла, иногда в начале появляются следующие знаки ../../
допустим: ../../new_file.docx
Мне хотелось бы, чтобы был указан конкретный адрес
D/new_file.docx или же С/new_file.docx, в зависимости от того, на D диске находится файл или С диск.
В свойствах, к сожалению ничего интересного не нашла.
Есть ли возможность указать абсолютный адрес местонахождения файла и как это сделать?

К сообщению приложен файл. Размер - 1Kb
7 апр 21, 22:27    [22305713]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
zimkon
Member

Откуда: guest_rusimport
Сообщений: 183
NickBell,

3393184
8 апр 21, 10:37    [22305846]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2876
zimkon,

Эту тему я видела, но нигде не нашла у себя в свойствах, чтобы сделать следующее действие:

1. ПРи редактировании ссылки уберите галку "использовать для гиперссылки относительный путь"
8 апр 21, 12:41    [22305903]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
zimkon
Member

Откуда: guest_rusimport
Сообщений: 183
NickBell,

Вот и спросили бы автора, где это искать :) ... Тогда формируйте гиперссылку программно через альтернативный диалог выбора файла
8 апр 21, 12:54    [22305913]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2876
О каком авторе речь идет? Вызвать с 2006 года?

Что-то другое создавать мне не нужно. Мною уже отработаны некоторые случаи для обработки гиперссылки. Но есть есть возможность поменять абсолютный и относительный адрес местами, как меня устроит, почему бы и не сделать этого, пока что в интернете на нашла об этом информацию.
8 апр 21, 13:11    [22305926]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
zimkon
Member

Откуда: guest_rusimport
Сообщений: 183
NickBell,

Гкхм...

К сообщению приложен файл (db43.zip - 135Kb) cкачать
8 апр 21, 13:36    [22305946]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 900
Application.DefaultWebOptions.UpdateLinksOnSave = False 

Если zimkon в примере не сказал уже... скачивать я поленился... каюсь:))
И - это для Excel....

Сообщение было отредактировано: 8 апр 21, 15:39
8 апр 21, 15:45    [22306029]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
zimkon
Member

Откуда: guest_rusimport
Сообщений: 183
NickBell,
8 апр 21, 17:15    [22306087]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
zimkon
Member

Откуда: guest_rusimport
Сообщений: 183
NickBell,

К сообщению приложен файл. Размер - 142Kb
8 апр 21, 17:16    [22306088]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2876
'Замена символов ..\.. на D:\ или же X:\
Dim doctype As String
Dim fileName As String
Dim t As String
    fileName = Me.pdf_link_bank
    If InStr(fileName, "..\..\Shesyidvebi") > 0 Then
         fileName = Replace(fileName, "..\..\", "X:\")
    End If
    If InStr(fileName, "..\..") > 0 Then
         fileName = Replace(fileName, "..\..\", "D:\")
    End If
    t = Left(fileName, InStr(1, fileName, "#") - 1)
' Получаем название файла
    Dim sFullFileName As String
    Dim objFSO As Object, strFileName$, strFilePath$
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        strFilePath = t
        strFileName = objFSO.GetFileName(strFilePath)
    Set objFSO = Nothing
' Копирование на сервер
    Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
            fso.CopyFile t, doctype
    Set fso = Nothing


Это мой вариант, где я точно знаю откуда могут брать файлы.
CurrentProject.Path - не подойдет, проверено уже. Отсчет от аксцессовского файла не должен идти.
8 апр 21, 17:48    [22306106]     Ответить | Цитировать Сообщить модератору
 Re: Hyperlink & ../../  [new]
zimkon
Member

Откуда: guest_rusimport
Сообщений: 183
NickBell
'Замена символов ..\.. на D:\ или же X:\
Dim doctype As String
Dim fileName As String
Dim t As String
    fileName = Me.pdf_link_bank
    If InStr(fileName, "..\..\Shesyidvebi") > 0 Then
         fileName = Replace(fileName, "..\..\", "X:\")
    End If
    If InStr(fileName, "..\..") > 0 Then
         fileName = Replace(fileName, "..\..\", "D:\")
    End If
    t = Left(fileName, InStr(1, fileName, "#") - 1)
' Получаем название файла
    Dim sFullFileName As String
    Dim objFSO As Object, strFileName$, strFilePath$
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        strFilePath = t
        strFileName = objFSO.GetFileName(strFilePath)
    Set objFSO = Nothing
' Копирование на сервер
    Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
            fso.CopyFile t, doctype
    Set fso = Nothing


Это мой вариант, где я точно знаю откуда могут брать файлы.
CurrentProject.Path - не подойдет, проверено уже. Отсчет от аксцессовского файла не должен идти.

Показан принцип. В моем случае CurrentProject.Path и каталог "Мои документы" совпадают. Относительный путь зависит от настроек каталогов прописанных в настройках аксеса. Вот этим и надо руководствоваться при замене CurrentProject.Path в приведенном мной коде для другого случая.
8 апр 21, 21:21    [22306176]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить