Visual Basic - valores decimales de campos en access

Life is soft - evento anual de software empresarial
 
Vista:

valores decimales de campos en access

Publicado por Eugenia (2 intervenciones) el 18/02/2006 13:21:28
Hola, quisiera saber si alguien me puede ayudar: tengo valores en textbox del tipo 1200,00 o 141,24 y ese valor lo quiero actualizar en mi campo de una tabla en access que es del tipo moneda formato numero general y tiene dos decimales. El tema es que cuando hago el UPDATE no me graba estos valores, pero si los numeros son enteros los actualiza sin problema.
saludos y gracias por la ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:valores decimales de campos en access

Publicado por Cecilia Colalongo (3116 intervenciones) el 18/02/2006 13:46:05
Revisa la configuración regional e intenta enviar el punto como separador decimal, lo puedes reemplazar con:

"UPDATE MiTabla SET MiValor=" & Replace(Text1.Text,GetLocaleDecimalSep,".")

Public Const LOCALE_SDECIMAL = &HE

Public Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Public Function GetLocaleDecimalSep() As String
Dim strBuffer As String

strBuffer = String(255, " ")

GetLocaleInfo GetUserDefaultLCID, LOCALE_SDECIMAL, strBuffer, 255

GetLocaleDecimalSep = Trim(Replace(strBuffer, Chr(0), ""))

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar