Access - Insert a tabla en access

   
Vista:

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

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.MoveFirst
     lblTotal.Caption = Format(rst!total, " $ #,###")
 
   btnGuardarVenta.Enabled = True
   btnElimina1.Enabled = True
   btnElimina2.Enabled = True
   btnElimina3.Enabled = True
   btnElimina4.Enabled = True
 
 Form_FRM_VENTAS.Recalc
 
Exit Sub
error:
    MsgBox "No se han ingresado todos los datos"
 
End Sub
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