Dice 1.54-9 que diga 1549

Buenas noches:
Si los signos a reemplazar son el punto y el guión, esto te servirá:
Cadena = Replace(Replace(Cadena, ".", ""), "-", "")
donde Cadena es del tipo de expresiones que indicas:156.56-98

Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/

Gracias por no enviarme preguntas a mi correo.
"JuanCa" escribió en el mensaje
news:06a101c3936b$3a38f1a0$
De nuevo, gracias de antemano por sus ayudas. Otro favor;
cómo podría lograr lo siguiente: ha sido digitado en un
campo para datos tipo texto algo así como 156.56-98 y se
requiere tomar sólo los caracteres numéricos para llenar
un campo asi: 1565698.
Gracis por sus ideas!!!

usando la funcion mid(cadena, pos, largo) junto con Asc(caracter) puedes
crear una funcion que remueva todo lo que no es digitos 0-9

Public Function RemoverOtros(Campo as String) As String
dim intX as Integer
dim strT as String

For intX = 1 to Len(Campo)
If Asc(Mid(Campo, intX, 1)) >= "0" Then
If Asc(Mid(Campo, intX, 1)) <= "9" Then
strT = strT & Mid(Campo, intX, 1)
End If
End If
Next intX
RemoverOtros = strT
End Function

Pones la funcion arriba en cualquier modulo de Visual Basic y luego la
llamas desde una consulta para convertir el numero mezclado a puros numeros.
Si deseas que regrese un valor numerico (Integro Largo, por ejemplo), cambia
la linea de la funcion a:
Public Function RemoverOtros(Campo as String) As Long
y la ultima linea:
RemoverOtros = Val(strT)
lo cual regresara un integro largo.

Victor Delgadillo MS-MVP Access
Miami, Florida

Mensajes a los grupos de noticia, asi todos nos beneficiamos!



"JuanCa" wrote in message
news:06a101c3936b$3a38f1a0$
De nuevo, gracias de antemano por sus ayudas. Otro favor;
cómo podría lograr lo siguiente: ha sido digitado en un
campo para datos tipo texto algo así como 156.56-98 y se
requiere tomar sólo los caracteres numéricos para llenar
un campo asi: 1565698.
Gracis por sus ideas!!!