Tablas Access
Hola, ¿cómo podría incluir un salto de linea en un campo Memo, tras encontrar una cadena concreta en este?
1 Respuesta
Respuesta de madern
1
Function ModificarTexto(strTexto As String, strTextoABuscar As String) As String
Dim nPos As Long
nPos = InStr(1, strTexto, strTextoABuscar)
If nPos Then
'Agregar un salto de línea en la cadena después del final de la palabra pasada..
ModificarTexto = Left(strTexto, nPos + Len(strTextoABuscar) - 1) & vbCrLf & Mid(strTexto, nPos + Len(strTextoABuscar))
End If
End Function
Saludos.
Jordi Pérez i Madern
Mataró (Barcelona)
Dim nPos As Long
nPos = InStr(1, strTexto, strTextoABuscar)
If nPos Then
'Agregar un salto de línea en la cadena después del final de la palabra pasada..
ModificarTexto = Left(strTexto, nPos + Len(strTextoABuscar) - 1) & vbCrLf & Mid(strTexto, nPos + Len(strTextoABuscar))
End If
End Function
Saludos.
Jordi Pérez i Madern
Mataró (Barcelona)
