Posteo una funcion para Access 97 que hace lo mismo (aunque no tiene todas
sus funcionalidades) que la funcion InStrRev que viene a partir de Access
2000. A los que les pueda interesar, la funcion InStrRev muestra la posicion
de la primera ocurrencia de una cadena en otra empezando por la derecha. Es
decir:

    InStrRev("12345abc", "abc") 'contendria 6
    InStrRev("abc45678abc", "abc") 'contendria 9
    InStrRev("abcdefg", "") 'contendria 0

Podeis mirar la ayuda de la funcion InStr y es igual en este aspecto, pero
empezando por la izquierda.

De esta manera los que quieran aprovechar la funcion
"ExtraerRutaVinculacion" (u otra similar que utilice InStrRev) en el hilo
"Coger nombre de una carpeta" y esten trabajando con Access 97 ya tienen
algo con que apaņarse.

A no ser que esta funcion este rematadamente mal, claro. La he probado un
poco y parecia ir bien.

Function InStrRev(strBusca As String, strEncuentra As String) As Long
Dim i As Integer, longEncuentra As Long
Dim cad As String

  If strEncuentra = "" Then
    InStrRev = 0
    Exit Function
  Else
    longEncuentra = Len(strEncuentra)
    For i = 1 To Len(strBusca)
      cad = Mid(strBusca, i, longEncuentra)
      If cad = strEncuentra Then
        InStrRev = i
        Exit Function
      End If
    Next
  End If

  InStrRev = 0

End Function


De todas maneras, la funcion InStrRev original es bastante mas completa,
pues permite posicion inicial de comparacion, tipos de comparacion, etc.
(pero eso, creo, se puede implementar tambien - tiempo al tiempo)

Espero que os sirva.

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)