Cita:
Iniciado por jorevale Si, eso estoy haciendo
Tengo un procedimiento que es el que reemplaza en la base de datos a partir de los textbox, donde:
datprimaryRS.recordset!Campo1 = ccur(textbox.text)
y lo que sucede es lo siguiente:
- Si justo antes del reemplazo textbox.text="10,40" me reemplaza el campo en la base por el valor 10,40 y lo muestra en pantalla igual, es decir, bien.
- Si justo antes del reemplazo textbox.text="10.40" me reemplaza el campo en la base por el valor 1040,00 y lo muestra en pantalla igual, es decir, mal.
Grrr
Bueno, pues si cuando se escriba "." lo cambias a "," ¿Qué problema habrá?
Además, el procedimiento que mencionaste está mal
, el de reemplzar Asc(".") con Asc(",")
Te cuento por qué, ¿qué pasará si el usuario ingresa al menú contextual del TextBox y hace click en pegar si en el portapapeles está "10.40"?, el evento KeyPress no se producirá y cuando lo envies a la BD se enviará erróneamente los datos.
Lo que te sugiero es que al pasar los datos a la BD busques todos los "." y los reemplaces con "," como en este procedimiento:
Código:
Function Reemplazar(ByVal Texto As String, ByVal Caracter1 As String, ByVal Caracter2 As String) As String
Dim UlParada As Long
Dim Buscar As Long
UlParada = 1
Do
Buscar = InStr(UlParada, Texto, Caracter1)
If Buscar < 1 Then Exit Do
Mid(Texto, Buscar, 1) = Caracter2
UlParada = Buscar + 1
Loop
Reemplazar = Texto
End Function
Y cuando envíes los datos a la BD lo conviertes así:
Código:
Text1.Text = Reemplazar(Text1, ".", ",")
Y te reemplazará todos los caracteres
ok.....
