Puntos y comas ¿Como arreglar?

Hola JK,

¿Has probado a mirar qué configuración tienes establecida en "Configuración
Regional y de idioma"?. Te anoto los pasos por si acaso, para Windows XP son
los siguientes.

Inicio --> Panel de Control --> Configuración Regional y de idioma -->
Opciones Regionales --> Personalizar --> Símbolo decimal. (Cambiarlo por el
que quieres que te aparezca).

Un saludo! :))

"JK" escribió en el mensaje
news:bdroge$ju9$

Hola a
Tengo este problemilla
Capturo un numero con decimales a traves de un Inputbox y el resultado se

lo

pego a un txtBox.
La coma se la pongo a traves del punto del teclado numérico pero el
resultado en el txtBox no es correcto, me ignora la coma.
O sea, si pongo 2 .45 a traves del Inputbox, me muestra 245 en el txtBox.
Si le pongo la coma "," entonces si funciona.
¿Se puede arreglar esto?
Hasta luego
JK

:-o

repitamos que igual con los dos códigos he liado el asunto.

Función Replace.

txtBox= Replace(ResultadoInputBox, "." , "," )

ResultadoInputBox = nombre de la variable donde almacena el resultado del
InputBox
txtBox = Nombre del control a alojar el resultado.

mmmmmmmmmmm esta función no está en el 97, ¿¿que versión utilizas??






Filosofía compartida: "regalamos conocimientos, no tiempo."


Un Saludo,

Rafael Andrada C.
McPegasus
Valencia (es)

[MVP - Access MS]

www.mcpegasus.com

"JK" escribió en el mensaje
news:bds97m$dop$

Como dicen Café Quijano NADA DE NA
Contesto a Rosa:
Lo de la configuracion regional lo tengo ok.
Es de las primeras cosas que comprobé
Gracias por recordarmelo.
Contesto a McPegasus:
He probado el codigo para capturar el dato desde el Inputbox y no me
funciona. :-(
Seguiré mirando.
Hasta luego
JK




"McPegasus" escribió en el mensaje
news:
> Hola JK,
>
> es un "problemilla" que tenemos con el . del teclado numérico y es que

en

> Access pone una ,
>
> Para solucionarlo en los controles que no en el InputBox tengo el
siguiente
> código,
>
> 'Al bajar una tecla
> On Error GoTo Err_CapturarError
>
> If KeyCode = vbKeyDecimal Then
> KeyCode = 0
> SendKeys "."
> End If
>
> Salida:
> Exit Sub
> Err_CapturarError:
> Select Case Err.Number
> Case Else
> 'Cazar todos aquellos errores inesperados.
> MsgBox Err.Number & " " & Err.Description
> End Select
> Resume Salida
>
>
> Para solucionarlo desde el InputBox puede que te sirva la función

Replace,

>
> txtBox= Replace(ResultadoInputBox, "." , "," )
>
>
>
>
>
>
>
> Filosofía compartida: "regalamos conocimientos, no tiempo."
>
>
> Un Saludo,
>
> Rafael Andrada C.
> McPegasus
> Valencia (es)
>
> [MVP - Access MS]
>
> www.mcpegasus.com
>
> "JK" escribió en el mensaje
> news:bdroge$ju9$
> > Hola a
> > Tengo este problemilla
> > Capturo un numero con decimales a traves de un Inputbox y el resultado
se
> lo
> > pego a un txtBox.
> > La coma se la pongo a traves del punto del teclado numérico pero el
> > resultado en el txtBox no es correcto, me ignora la coma.
> > O sea, si pongo 2 .45 a traves del Inputbox, me muestra 245 en el
txtBox.
> > Si le pongo la coma "," entonces si funciona.
> > ¿Se puede arreglar esto?
> > Hasta luego
> > JK
> >
> >
>
>

Hola Rafa.
El gran Happy en su día simuló una Replace para A97
http://personal.telefonica.terra.es...972000.txt


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/






Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Hola Paco,

creo que este enlace esta mejor:


http://personal.telefonica.terra.es...ones97.txt

Saludos,
happy

"Búho" escribió en el mensaje
news:ef57#
Hola Rafa.
El gran Happy en su día simuló una Replace para A97
http://personal.telefonica.terra.es...972000.txt


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/






Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Estoy utilizando Access 2000
He probado el Replace y sigue sin funcionar :-(
(Será alguna referencia??? )
Pues yo, cabezon, a seguir.
Hasta luego
JK






"Juan M. Afan de Ribera" escribió en el mensaje
news:

Hola Paco,

creo que este enlace esta mejor:

http://personal.telefonica.terra.es...ones97.txt

Saludos,
happy

"Búho" escribió en el mensaje
news:ef57#
Hola Rafa.
El gran Happy en su día simuló una Replace para A97
http://personal.telefonica.terra.es...972000.txt


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/






Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003