Visual Basic - Reporte en ACCESS

Life is soft - evento anual de software empresarial
   
Vista:

Reporte en ACCESS

Publicado por Ricardo (68 intervenciones) el 22/07/2010 22:21:44
Hola a todos, necesito ayuda..... Tengo una serie de reportes de clientes hechos en ACCESS los cuales resultan de varias consultas... pude lograr imprimir los reportes desde mi aplicación en VB con este código....

Private Sub Command1_Click()
Dim strArchivo, _
acApp
strArchivo = "D:\Base de Datos.mdb" 'ubico la base de datos
' creo un objeto Access
Set acApp = CreateObject("Access.Application")
' puedo mostrarlo o no
acApp.Visible = True
' abro la base de datos
acApp.OpenCurrentDatabase strArchivo
' Imprimo el informe
acApp.DoCmd.OpenReport "reporte" 'tabla, reporte o informe a imprimir
' cierro y salgo
acApp.Quit
Set acApp = Nothing
End Sub

Ahora bien el problema radica que este codigo me manda a imprimir todos mis clientes y yo quiero individualizar a uno solo POR EJEMPLO POR DNI... no quiero que me mande a la impresora los 1000 clientes que pueda llegar a tener solo quiero uno solo... este reporte tiene como origen de dato una consulta e intente levantar un recordset a esa consulta y no me salio.....

Alguien puede decirme como diablos filtro un individuo de un universo de tantos tipossss en tiempo de ejecución obviamente...

Saludos a todos y muchas gracias desde ya...
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

RE:Reporte en ACCESS

Publicado por apacheco (63 intervenciones) el 05/08/2010 18:38:46
Hace bastantes años trabaje con este tipode informes desde access, y creo recordar que al final de ese comando existe un parametro que equivale al WHILE del query. Le envias p.e "cliente = 1000" y solo te saca el informe del cliente que cumple dicha condicion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Reporte en ACCESS

Publicado por Ricardo (68 intervenciones) el 09/08/2010 04:36:04
ya lo resolvi y muchas gracias por el dato pero lo resolvi de esta forma:::::::

Dim ret As Long
With oAccess
.OpenCurrentDatabase "direccion y nombre de BD", False
.Visible = False ' ocultar el access

Debug.Print .Name

'con acViewNormal imprime inmediatamente
'La ultima parte es un WHERE, pero sin poner la palabra WHERE
.DoCmd.OpenReport "Informe", acViewNormal, , "dni = " & nro de DNI a buscar
.CloseCurrentDatabase
End With
End Select
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar