Programación General > Visual Basic 6.0 e inferiores

 Re: Utilizar los Informes de Acces

(1/3) > >>

Gerard:
Hola amigos, hace unos dias estoy buscando un buen manual para utilizar los reportes de acces, pero no encontrado ninguno que sea interesante. ¿ Alguien tiene un buen manual para crear informes en acces ?, también he buscado sobre crystal, pero prefiero acces.


Gracias! :beer::adios:

Gerard:
:hola:He encontrado uno de interesante:
http://www.aulaclic.com/access2002/t_12_1.htm

Pero, ese manual no cubre del todo mis necesidades. Como puedo mostrar desde vb el informe? Como le puedo conectar a un informe mas de una tabla, como puedo realizar filtros en un informe?

Espero que me ayuden,:):adios:

Brroz:
Para imprimir el informe desde vb fíjate en este ejemplo:

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Function Imprimir(ByVal Formato As String, ByVal Filtro As String _
, Optional ByVal VistaPrevia As Boolean) As Boolean
   
    On Error GoTo Error_Imprimir
   
    Dim sngMouseP As Single
    sngMouseP = Screen.MousePointer
    Screen.MousePointer = 11
    DoEvents
   
    Dim dbW As Object
    Set dbW = GetObject("BaseDeDatos.mdb")
   If VistaPrevia Then ShowWindow dbW.hWndAccessApp, 3
    On Error Resume Next
    dbW.UserControl = False
    On Error GoTo Error_Imprimir
    Dim int1 As Integer
    If VistaPrevia Then int1 = 2 '2 = acViewPreview , 0 = acViewNormal
    If dbW.Reports.Count = 0 Then
        dbW.DoCmd.OpenReport Formato, int1, , Filtro
    Else
        Dim lng1 As Long
        For lng1 = 0 To dbW.Reports.Count - 1
            If dbW.Reports(lng1).Name = Formato Then
                dbW.Reports(Formato).Filter = Filtro
                GoTo Exit_Fn
            End If
        Next lng1
        dbW.DoCmd.OpenReport Formato, int1, , Filtro
    End If
   
Exit_Fn:
    Imprimir = True
   
Salir_Imprimir:
    On Error Resume Next
    If Not VistaPrevia Then
        dbW.Quit
    Else
        dbW.DoCmd.Maximize
        dbW.UserControl = True
    End If
    Set dbW = Nothing
    Screen.MousePointer = sngMouseP
    Exit Function
   
Error_Imprimir:
    MsgBox "Fallo al imprimir informe '" & Formato & "'" & String(2, vbCrLf) _
    & "(" & Err.Number & ") " & Err.Description, vbCritical, "Imprimir"
    VistaPrevia = False
    Resume Salir_Imprimir

End Function

Con respecto a lo de tener varias tablas como origen de registro para tu informe, utiliza como origen de registro para el informe (propiedad RowSource) una consulta de access o instrucción SQL.

Espero que esto te vaya bien.
Sort.

Jordi_BCN:
Gracias por el manual Gerard:) Es justo lo que estaba buscando:gracias:

Gerard:
Gracias Brroz, voy a provar tu codigo, en cuanto lo haga te informare si funciona;)

Salu2 y gracias :adios:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente