Urgenete!!!
Publicado por Jesus Lopez (11 intervenciones) el 13/02/2004 12:26:05
He modificado la base de datos Neptuno y parace que hasta ahora bien,
ahora van saliendo algunos problemillas. Cuando voy al formulario de pedidos y realizo alguno, si quiero utilizar el boton de comando Imprimir factura me imprime todos los pedidos.Yo sólo quiero que imprima el que acabo de hacer y además quiero generar un informa de pedidos por fecha, como lo puedo hacer, adjunto el código de imprimir facturas que viene en Neptuno y que las imprime todas a la vez.
Muchísimas gracias
Jesus
Sub ImprimirFactura_Click()
' Este código está creado por el Asistente para botones de comando.
On Error GoTo Err_ImprimirFactura_Click
Dim cadNombreDocumento As String
cadNombreDocumento = "Factura"
' Informe Imprimir Factura, usa la consulta Fitro Facturas para imprimir la
' factura del pedido actual.
DoCmd.OpenReport cadNombreDocumento, acViewNormal, "Filtro facturas"
Salir_ImprimirFactura_Click:
Exit Sub
Err_ImprimirFactura_Click:
' Si el usuario cancela la acción, no mostrar un mensaje de error.
Const conErrDoCmdCancelado = 2501
If (Err = conErrDoCmdCancelado) Then
Resume Salir_ImprimirFactura_Click
Else
MsgBox Err.Description
Resume Salir_ImprimirFactura_Click
End If
End Sub
ahora van saliendo algunos problemillas. Cuando voy al formulario de pedidos y realizo alguno, si quiero utilizar el boton de comando Imprimir factura me imprime todos los pedidos.Yo sólo quiero que imprima el que acabo de hacer y además quiero generar un informa de pedidos por fecha, como lo puedo hacer, adjunto el código de imprimir facturas que viene en Neptuno y que las imprime todas a la vez.
Muchísimas gracias
Jesus
Sub ImprimirFactura_Click()
' Este código está creado por el Asistente para botones de comando.
On Error GoTo Err_ImprimirFactura_Click
Dim cadNombreDocumento As String
cadNombreDocumento = "Factura"
' Informe Imprimir Factura, usa la consulta Fitro Facturas para imprimir la
' factura del pedido actual.
DoCmd.OpenReport cadNombreDocumento, acViewNormal, "Filtro facturas"
Salir_ImprimirFactura_Click:
Exit Sub
Err_ImprimirFactura_Click:
' Si el usuario cancela la acción, no mostrar un mensaje de error.
Const conErrDoCmdCancelado = 2501
If (Err = conErrDoCmdCancelado) Then
Resume Salir_ImprimirFactura_Click
Else
MsgBox Err.Description
Resume Salir_ImprimirFactura_Click
End If
End Sub
Valora esta pregunta
0