Docmd.runsql" insert into (tabla[transaciones_detalle])
Dim UV1 As String
Dim prod As String
Dim cod As String
Dim codb As String
Dim tran As String
Dim costo As String
Dim precio As String
Dim hor As String
Dim ur As String
'valores a cargar
UV1 = "1" (Valor 1)
cod = Me.Codigo.Value (Valor numerico tomado del campo)
Hora = Me.Hora.Value (Hora actual guardada en el campo hora)
tra = Me.Transacion.Value (Valor numerico tomado del campo)
codb = Me.Codigo_Barra.Value (Valor numerico tomado del campo)
precio = Me.Precio_Publico_2.Value (Valor numerico tomado del campo)
costo = Me.Costo_Unitario.Value (Valor numerico tomado del campo)
prod = Me.Producto.Value (Valor Texto tomado del campo)
ur = "0" (Valor =0)
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into [Transaciones_Detalle]([Hora],[TRansacion],[Codigo],[Codigo_barra],[Productos],[Un_Vend],[Precio_Final],[Costo_Unitario],[Un_Re])values(hor, tran, cod, codb, prod, UV1,precio,costo,ur)"
Me. Requery
No se donde esta el error porque no la ejecuta. Todavia