I am trying to fix some hyperlinks in a query in an Access '97 database. The database is named "LINK RESTORER.mdb" and the query is named "Q REVISIONS LINK RESTORER". In the query, the 11th column is named "good nhl str-A", and the 12th column is named "NHL-A". The 11th column contains ~3k strings. Each of the strings is a file path to a PDF that I need to be able to link to. The 12th column in the query (formatted as Hyperlinks) is supposed to be the actual link (the 11th column is just a pure string, no hyperlink functionality). When I copy the entire 11th column and paste it into the 12th column, none of the links work. However, when I copy a single string from the 11th column into a single cell in the 12th column, the link works. What I found was that when I right-clicked on a cell in the 12th column and selected the Edit Hyperlink option, the "Link to file or URL:" field is blank when I copy over the whole column at once. However, when I copy a single cell at a time, the "Link to file or URL:" field is populated with the string from the 11th column (this enables the link in the 12th column to work). My question is how can I do this to all the strings in the 11th column without having to manually go through each cell and copy/paste it into the 12th column?

As an example, I tried copying all the strings from the 11th column into an Excel sheet (I'm much more familiar with VBA in Excel than in Access). The code below worked beautifully, all of the links worked just fine and I could open them without any problems. Would some kind individual help me figure out how to translate the below Excel-based VBA into an Access-based version? Thank you very much in advance.

Sub HyperCopy()
    Dim r As Range
    
    For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp))
        r.Hyperlinks(1).Address = r
    Next r
End Sub