Insert a tabla en access
Publicado por Felipe (2 intervenciones) el 09/09/2015 23:40:38
Amigos
Favor su ayuda en el siguiente codigo. Realice un formulario en access 2010 para agregar registros en una tabla, sin embargo no me inserta nada y me pasa directo al error
Atento a sus comentarios
Favor su ayuda en el siguiente codigo. Realice un formulario en access 2010 para agregar registros en una tabla, sin embargo no me inserta nada y me pasa directo al error
Atento a sus comentarios
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub AGREGAR_REGISTRO_Click()
On Error GoTo error
'CurrentDb.Execute "INSERT INTO DETALLE_VENTA_actual(COD_VENTA, COD_PRODUCTO, CANTIDAD, VALOR_VENTA) VALUES(" & rstForm!codVenta & " , " & Form_FrmCaja.cboProducto.Column(0) & " , " & Form_FrmCaja.cboCantidadProd.Column(0) & " , " & Form_FrmCaja.cboProducto.Column(2) * Form_FrmCaja.cboCantidadProd.Column(0) & ")"
CurrentDb.Execute "INSERT INTO TA_INGRESO_VENTAS(COD_VENTA, PERIODO, FECHA_VENTA, COD_CLIENTE, COD_DOCUMENTO, ENTREGADO, PERIODO_FACTURA, FECHA_FACTURA, NUM_DOCUMENTO,FOLIO, COD_PRODUCTO, CANTIDAD, PRECIO) VALUES(" & rstForm!COD_VENTA & " , " & Me.PERIODO & " , " & Form_FRM_VENTA.FECHA_VENTAS.Column(2) & " , " & Form_FRM_VENTA.COD_CLIENTE.Column(3) & " , " & Form_FRM_VENTA.COD_DOCUMENTO.Column(4) & " , " & Form_FRM_VENTA.ENTREGADO.Column(5) & " , " & Me.PERIODO_FACTURA & " ," & Form_FRM_VENTA.FECHA_FACTURA.Column(7) & " , " & Form_FRM_VENTA.NUM_DOCUMENTO.Column(8) & ", " & Form_FRM_VENTA.FOLIO.Column(9) & " ," & Form_FRM_VENTA.COD_PRODUCTO.Column(10) & " , " & Me.CANTIDAD & " , " & Me.PRECIO & " )"
Set rst = CurrentDb.OpenRecordset("select SUM(SUB_TOTAL) AS total from CO_VISTA_VENTAS")
rst.MoveFirstlblTotal.Caption = Format(rst!total, " $ #,###")
btnGuardarVenta.Enabled = True
btnElimina1.Enabled = True
btnElimina2.Enabled = True
btnElimina3.Enabled = True
btnElimina4.Enabled = True
Form_FRM_VENTAS.RecalcExit Sub
error: MsgBox "No se han ingresado todos los datos"End Sub
Valora esta pregunta
0