General

6.202 Funzione InstrRev per Access 97
  Roberto

Come è noto in Access 97 non è disponibile la funzione intrinseca InStrRev, che è invece disponibile dalla versione Access 2000 e successive.
Chi volesse avere tale funzionalità con Access 97 può registrare in un modulo del database la seguente funzione:
Public Function InstrRev(ByVal buf As String, ByVal strToFind As String) As Integer
    Dim i As Integer
    Dim j As Integer
    Dim l As Integer
    If Len(strToFind) = 0 Or Len(buf) = 0 Then
        InstrRev = 0
        Exit Function
    End If
    i = 1
    j = 1
    l = Len(strToFind)
    While i > 0
        i = InStr(j, buf, strToFind)
        If i > 0 Then j = i + l
    Wend
    If j > 1 Then
        InstrRev = j - l
    Else
        InstrRev = 0
    End If
End Function
Dove buf è la stringa dove effettuare la ricerca a partire dal fondo e strToFind è la stringa da ricercare.
La funzione restituisce un valore Variant (Long) che specifica la posizione dell'ultima occorrenza di una stringa all'interno di un'altra, ovvero la prima occorrenza partendo dal fondo.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.