Access - A la atención de VICENTE

Vicente:
Te he puesto un enlace para que descargues un ejemplo en el mensaje que iniciaste hace unos días. Ahora mismo está en la tercera página del Foro.

Saludos
Enrique

Hola Victoria y Vicente:
He probado el método de Victoria y después de hacerle algunos cambios tambien funciona perfectamente, extrae las palabra en mayúsculas con sus espacios y además no depende de letras o números previos a la frase a extraer como mi método. Creo que si esas frases siempre van en mayúsculas, el método de Victoria es el más adecuado y si existiera la posibilidad de que en alguna ocasión las frases pudieran tener alguna letra minúscula, tendrías que usar el mío.

Vicente, en cualquier caso, prueba ambos sistemas y elije el que más te convenga y si tienes alguna dificultad, no tienes más que indicarlo.

Victoria, muy bien, como ya te conozco hace tiempo, ya sabía de lo que eres capaz. Espero que sigas colaborando en el Foro como hasta ahora.

He cambiado el zip del enlace y ahora contiene dos bases, una en Access 97 y otra en Access 2000 (2002-2003), cada una con dos tablas iguales, Tabla1 para el sistema de Victoria y Tabla2 para el mío, así como dos Formularios, uno por cada sistema y tabla.

http://es.geocities.com/ensolva/Descargas/Varios/EjemploExtraerCadena.zip

Saludos a todos y suerte con el tema, Vicente.
Enrique

Hola:
No había leído este hilo hasta ahora. He visto los ejemplos, y aquí os pongo otra forma de hacerlo.

Dim RecortarCadenaFin As String, dame2 As Integer, cadenaFinal As String

'Sabemos que al final hay 8 caracteres que tenemos que eliminar
RecortarCadenaFin = Mid(StrReverse(CampoMemo), 8)
'Buscamos la posición del "2" y le restamos los dos caracteres que nos sobrán
dame2 = InStr(1, RecortarCadenaFin, "2") - 2
''Extraemos la cadena y le damos la vuelta
cadenaFinal = StrReverse(Left(RecortarCadenaFin, dame2))

MsgBox cadenaFinal

No se sí será un poco gualtrapas..., pero bueno.... ahí esta.

Un Saludo