данные гиперссылки, не передающие в таблицу адресата

Question

Я вставляю записи, которые включают в себя поле гиперссылки из 1 таблицы в другую, которые содержат поле гиперссылки с тем же именем. В исходной таблице гиперссылка ведет себя правильно; однако при вставке в таблицу назначения это не так. Поле отображает правильную «гиперссылку» (путь) в пункте назначения; однако он не работает - щелчок ничего не делает. Редактирование гиперссылки в таблице назначения показывает, что ссылка скопирована, но без текста и без адреса

Dim sSQL As String 
sSQL = "INSERT INTO tbeAdditionalPages (type, printCatalogSheet, BaseCatalogSheet, CatalogSheetLink, PrintOrder, IsMountingDetail) " & _ 
"SELECT '" & Forms![frmSpec].[Type] & "', true, true, '#' & CatalogSheetLink, printOrder, false " & _ 
"FROM FixtureCatalogsPages " & _ 
"WHERE Manufacturer = '" & Forms![frmSpec].Manufacturer.Value & _ 
"' and CatalogNumber = '" & Forms![frmSpec].CatalogNo.Value & "';" 
CurrentDb().Execute sSQL, dbFailOnError 

Я сделал некоторые исследования и изменил код для чтения (!?):

sSQL = "INSERT INTO ... 'text#' & CatalogSheetLink & '#' ... 
CurrentDb().Execute sSQL, dbFailOnError 

Результатом было следующее: теперь в поле назначения есть текст, но по-прежнему нет адреса. Затем я изменил его на:

'text#' & CatalogSheetLink.address & '#' 

это привело к ошибке.

какие-либо мысли вообще было бы весьма признателен, знак

Answer 1

Вы обновляете с рабочего адреса гиперссылок, так просто:

"SELECT '" & Forms![frmSpec].[Type] & "', true, true, CatalogSheetLink, <...> 

Если вы хотите изменить описание, вам нужно, чтобы получить подстрока, например:

INSERT INTO MyTable (MyHyperlink) 
SELECT 'New Description' & Mid(MyHyperlink, InStr(MyHyperlink, '#')) 
FROM SomeTable