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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)