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 FunctionDove 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. |