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

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