Suscríbete a Aprende-Viendo 5.0
Content
ayuda con este codigo por favor
resulta que tengo una sección de actualización de precios, en los cuales utilizo puntos decimales los cuales aumentan cada cierto tiempo, el problema es que al momento de guardar los datos, es decir si quiero guardar por ejemplo el precio 190.35, no me lo guarda como debe ser, me lo guarda de esta forma 19035 y esto es lo que no quiero.
alguien que me pueda ayudar por favor adjunto código de antemano muchas gracias, espero prontas soluciones.
Private Sub cmdactual_Click()
Set bd = OpenDatabase(App.Path + "\verifik.MDB")
Set tabla1 = bd.OpenRecordset("precio", dbOpenDynaset)
If Not tabla1.NoMatch Then
With tabla1
.Edit
.Fields("ACTUAL") = Text1.Text
.Fields("VENCIDA") = Text2.Text
.Fields("REGULA") = Text3.Text
.Update
End With
End If
MsgBox "Precios actualizados", vbInformation, "aviso"
SendKeys "{home}+{end}"
Text1.SetFocus
End Sub
alguien que me pueda ayudar por favor adjunto código de antemano muchas gracias, espero prontas soluciones.
Private Sub cmdactual_Click()
Set bd = OpenDatabase(App.Path + "\verifik.MDB")
Set tabla1 = bd.OpenRecordset("precio", dbOpenDynaset)
If Not tabla1.NoMatch Then
With tabla1
.Edit
.Fields("ACTUAL") = Text1.Text
.Fields("VENCIDA") = Text2.Text
.Fields("REGULA") = Text3.Text
.Update
End With
End If
MsgBox "Precios actualizados", vbInformation, "aviso"
SendKeys "{home}+{end}"
Text1.SetFocus
End Sub
2 respuestas Agrear Respuesta
-
yo tenia un ploblema parecido verifique que el campo de mi tabla estubiera como tipo moneda y mi caja de texto tenia el formato de decimales aqui un ejemplo de una multiplicacion para el subtotal de una factura. no se si te ayude en algo.
Subtotal = Subtotal + (Val(Text1.Text) * CDbl(Text2.Text))
Text3 = Format(Subtotal, "#0.00")
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso