les données de lien hypertexte ne sont pas transférées à la table de destination

Question

J'insère des enregistrements qui incluent un champ de lien hypertexte de 1 table dans un autre qui incluent un champ de lien hypertexte du même nom. Dans la table source, le lien hypertexte se comporte correctement; Cependant, lorsqu'il est inséré dans la table de destination, ce n'est pas le cas. Le champ affiche le "lien hypertexte" correct (chemin) dans la destination; cependant, il n'est pas fonctionnel - cliquer dessus ne fait rien. Modification du lien hypertexte dans la table de destination montre que le lien a été copié, mais sans texte et aucune adresse

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 

Je l'ai fait des recherches et a changé le code pour lire (!?):

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

Le résultat était: maintenant le champ de destination a du texte, mais toujours pas d'adresse. Je l'ai ensuite revu à:

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

ce qui a entraîné une erreur.

toute pensée serait que ce soit grandement appréciée, marque

Answer 1

Vous mettez à jour à partir d'une adresse de lien hypertexte de travail, si simplement:

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

Si vous souhaitez modifier la description, vous devez obtenir le sous-chaîne, comme si:

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