Access - problemas con campo hipervinculo

Sub CambiarHipervínculos()

    'Definimos las constantes correspondientes a las carpetas antiguas y nuevas

    Const RutaDoc1 = "T:\documentos\periodo\", NuevaRutaDoc1 = "Z:\documentos\anteriores\"

    Const RutaDoc2 = "T:\documentos\gestoria\", NuevaRutaDoc2 = "Z:\documentos\nuevagestoria\"

    '

    Const RutaDoc3 = "T:\documentos\otros\", NuevaRutaDoc3 = "Z:\documentos\nuevolugar\"

    'No indicas cuáles. Pon tú las que correspondan

    '

    'Defininos la variable para el recordset

    Dim Rst As DAO.Recordset

    'Abrimos la tabla a la variable Rst

    Set Rst = CurrentDb.OpenRecordset("Documentos") 'Pon tú el nombre que corresponda

    Do While Not Rst.EOF 'Mientras no se llegue al final del recordset

        Rst.Edit         'Activamos la edición

        If Not IsNull(Rst!Doc1) Then 'Si hay valor en Doc1

            'Reemplazamos la ruta antigua por la nueva

            Rst!Doc1 = Replace(Rst!Doc1, RutaDoc1, NuevaRutaDoc1)

        End If

        If Not IsNull(Rst!Doc2) Then 'Id

            Rst!Doc2 = Replace(Rst!Doc2, RutaDoc2, NuevaRutaDoc2)

        End If

        If Not IsNull(Rst!Doc3) Then 'Id

            Rst!Doc3 = Replace(Rst!Doc3, RutaDoc3, NuevaRutaDoc3)

        End If

        Rst.Update 'Actualizamos el registro con los cambios

        Rst.MoveNext 'Pasamos al siguiente registro

        DoEvents

    Loop

    Rst.Close   'Cerramos el recordset

    Set Rst = Nothing 'Vaciamos la variable

End Sub