Insertar datos de formato, fecha y moneda desde formulario en celdas
Tengo una base de datos con 6 columnas como: fecha, nombre, préstamo, abono, saldo y comentarios, 1, 2, 3, 4, 5 y 6 respectivamente. Mi problema es que los conceptos de fecha y moneda al pasarlos a las celdas, se insertan mal, tanto la fecha como importes (moneda) y no logro corregirlo.
Me prodrian ayudar .
Gracias...
*Este es el código que estoy usando.
Private Sub CmB_guardar_Click()
Text_fecha = Format(Text_fecha, "dd/mmm/yy")
Dim fila As Integer
fila = 1
While Cells(fila, 1) <> ""
fila = fila + 1
Wend
Cells(fila, 1) = Txt_fecha
Cells(fila, 2) = Txt_nombre
Cells(fila, 3) = Txt_prestamo
Cells(fila, 6) = Txt_comentario
1 respuesta
H o l a
prueba esto
Private Sub CmB_guardar_Click() Text_fecha = Format(Text_fecha, "dd/mm/yyyy") Dim fila As Integer fila = 1 While Cells(fila, 1) <> "" fila = fila + 1 Wend Cells(fila, 1) = CDate(Text_fecha) Cells(fila, 2) = Txt_nombre Cells(fila, 3) = Txt_prestamo Cells(fila, 6) = Txt_comentario End Sub
valora la respuesta para finalizar saludos!
Código actualizado
Private Sub CmB_guardar_Click() fecha = Format(Txt_fecha, "dd/mm/yyyy") Dim fila As Integer fila = 1 While Cells(fila, 1) <> "" fila = fila + 1 Wend Cells(fila, 1) = CDate(fecha) Cells(fila, 2) = Txt_nombre Cells(fila, 3) = Txt_prestamo Cells(fila, 6) = Txt_comentario End Sub
me comentas
Ya quedo el formato de fecha, solo me falta el formato de moneda:
Cells(fila, 3) = Txt_prestamo
Me puedes apoyar.
Gracias....
Prueba esto
Private Sub CmB_guardar_Click() Dim fila As Integer fecha = Format(Txt_fecha, "dd/mm/yyyy") moneda = Format(Txt_prestamo, "##0.00") fila = 1 While Cells(fila, 1) <> "" fila = fila + 1 Wend Cells(fila, 1) = CDate(fecha) Cells(fila, 2) = Txt_nombre Cells(fila, 3) = CDbl(moneda) Cells(fila, 6) = Txt_comentario End Sub
valora la respuesta para finalizar Excelente o bueno saludos!
¡Gracias!
Funciono muy bien.
Saludos...
H o l a, te faltó valorar como excelente que está en la parte inferior
