Hola me llamo José Enrique. Yo he usado la función FORMAT$ dentro de una SQL
para darle un formato específico a un campo. ¿existe una función que
reemplaze unos caracteres por otros (del estilo de Replace de VB)?


RESPONDE HAPPY
==============

Os mando una funcion que hace lo mismo que Replace (aunque más limitada,
claro) que puede servir para Access 97.

Tiene 3 argumentos:

- Expresion - cadena donde se buscará
- Encontrar - cadena que se va a buscar en "Expresion"
- reemplazarCon - cadena con que se sustituirá "Encontrar", en caso de ser
hallada

La función reemplaza devuelve los valores siguientes:

Si Expresion es de longitud cero -> Una cadena de longitud cero ("").
Si Expresion es Null -> Un error.
Si Encontrar es de longitud cero -> Una copia de expresión.
Si reemplazarCon es de longitud cero -> Una copia de Expresion con la
primera aparición de Encontrar quitada.


Function reemplaza(Expresion As String, Encontrar As String, reemplazarCon
As String)
Dim posEncontrado As Long
Dim cadtmp As String

  posEncontrado = InStr(Expresion, Encontrar) - 1
  If posEncontrado = -1 Then
    cadtmp = Expresion
  Else
    cadtmp = Left(Expresion, posEncontrado)
    cadtmp = cadtmp & reemplazarCon
    cadtmp = cadtmp & Right(Expresion, Len(Expresion) - (posEncontrado +Len(Encontrar)))
  End If

  reemplaza = cadtmp

End Function