超链接数据未传输到目标表

Question

我正在将包含一个表中的超链接字段的记录插入到另一个包含同名超链接字段的表中。在源表中，超链接行为正确；但是，当插入目标表时，它不会。该字段显示目的地中正确的“超链接”（路径）；但是，它不起作用 - 单击它什么也不做。编辑目标表中的超链接显示链接已被复制，但没有文本和地址（！？）

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