URGENTE - Informe alimentado por una consulta
Publicado por Calderon (20 intervenciones) el 28/02/2008 15:37:53
Buenos días compañeros,
Tengo un pequeño inconveniente tratando de alimentar algunos campos de un informe con los datos retornados por una consulta, este es el procedimiento involucrado:
Private Sub Report_Open(Cancel As Integer)
Dim consulta As DAO.Recordset
Dim cantidad As Integer
Dim Descripcion As String
Dim PVP As String
Dim SubTotal As Double
Set base = CurrentDB
Set consulta = base.OpenRecordset("ConsultaImpresionFactura", dbOpenDynaset)
consulta.MoveFirst
Do While Not consulta.EOF
cantidad = Cstr(consulta.Fields("cantidad").Value)
* Forms!ImpresionFactura.txtCantidad1 = cantidad
* Reports!ImpresionFactura.txtCantidad1 = cantidad
* Me.txtCantidad1 = cantidad
Descripcion = Cstr(consulta.Fields("Descripcion").Value)
* Reports!ImpresionFactura.txtDescripcion1 = Descripcion
* Me.txtDescripcion1 = Descripcion
PVP = Cstr(consulta.Fields("PVP").Value)
* Reports!ImpresionFactura.txtVlrUnitario1 = PVP
* Me.txtVlrUnitario1 = PVP
SubTotal = Clng(consulta.Fields("Subtotal").Value)
* Reports!ImpresionFactura.txtSubTotal1 = SubTotal
* Me.txtSubTotal1 = SubTotal
consulta.MoveNext
Loop
End Sub
Lo que pretendo acá es cargar los resultados obtenidos con la consulta "ConsultaImpresionFactura" en un informe "ImpresionFactura", el problema
se muestra en las lineas que tienen un asterisco (*); Mi pregunta es:
cómo hago para referirme correctamente a los campos del informe
(txtCantidad1, txtDescripcion1, txtVlrUnitario1 y txtSubTotal1) para
alimentarlos con los valores obtenidos con la consulta
(cantidad, Descripcion,PVP y SubTotal)?, al pasar por dichas lineas se genera
un error que no he podido corregir, qué será lo que tengo mal?, he intentado dar solucion al error de las maneras mostradas pero todavia persiste el error.
Espero puedan ayudarme pronto a solucionar este error pues es urgente corregirlo
Gracias a todos por sus sugerencias, que tengan un buen día!!!
Saludos!!
Tengo un pequeño inconveniente tratando de alimentar algunos campos de un informe con los datos retornados por una consulta, este es el procedimiento involucrado:
Private Sub Report_Open(Cancel As Integer)
Dim consulta As DAO.Recordset
Dim cantidad As Integer
Dim Descripcion As String
Dim PVP As String
Dim SubTotal As Double
Set base = CurrentDB
Set consulta = base.OpenRecordset("ConsultaImpresionFactura", dbOpenDynaset)
consulta.MoveFirst
Do While Not consulta.EOF
cantidad = Cstr(consulta.Fields("cantidad").Value)
* Forms!ImpresionFactura.txtCantidad1 = cantidad
* Reports!ImpresionFactura.txtCantidad1 = cantidad
* Me.txtCantidad1 = cantidad
Descripcion = Cstr(consulta.Fields("Descripcion").Value)
* Reports!ImpresionFactura.txtDescripcion1 = Descripcion
* Me.txtDescripcion1 = Descripcion
PVP = Cstr(consulta.Fields("PVP").Value)
* Reports!ImpresionFactura.txtVlrUnitario1 = PVP
* Me.txtVlrUnitario1 = PVP
SubTotal = Clng(consulta.Fields("Subtotal").Value)
* Reports!ImpresionFactura.txtSubTotal1 = SubTotal
* Me.txtSubTotal1 = SubTotal
consulta.MoveNext
Loop
End Sub
Lo que pretendo acá es cargar los resultados obtenidos con la consulta "ConsultaImpresionFactura" en un informe "ImpresionFactura", el problema
se muestra en las lineas que tienen un asterisco (*); Mi pregunta es:
cómo hago para referirme correctamente a los campos del informe
(txtCantidad1, txtDescripcion1, txtVlrUnitario1 y txtSubTotal1) para
alimentarlos con los valores obtenidos con la consulta
(cantidad, Descripcion,PVP y SubTotal)?, al pasar por dichas lineas se genera
un error que no he podido corregir, qué será lo que tengo mal?, he intentado dar solucion al error de las maneras mostradas pero todavia persiste el error.
Espero puedan ayudarme pronto a solucionar este error pues es urgente corregirlo
Gracias a todos por sus sugerencias, que tengan un buen día!!!
Saludos!!
Valora esta pregunta
0