Afficher un rapport Access dans un contrôle VB

Question

J'ai une application VB qui dialogue avec une base de donnée. Je voudrai pouvoir créer des rapports qui s'affichent dans un contrôle.

Il y a déjà des messages concernant ce sujet, mais les réponses sont assez floues (Ou alors j'y comprend rien...).

Si qqun a une solution claire et détaillée, il est le bienvenue !

Merci d'avance.

cs_chenda · Answer

Salut,

Copie ce code
ou 
dbname : chemin de ta base de donnee
rptname: nom de ton rapport
preview: mode d'affichage
fitre : si il y a un filtre que tu veux appliquer dans ton rapport

Public Sub DisplayAccessReport(dbname As String, rptname As String, preview As Boolean, filtre As String)
On Error GoTo ErrMsg
  
    Dim AccApp As Object
    Set AccApp = CreateObject("Access.Application") ' Une nouvelle essance de l'application ms access
    
    With AccApp
        .OpenCurrentDatabase dbname, False  'ouvre la bd
        
        If preview Then 'Preview
            .docmd.Maximize 'Maximise le rapport dans la fenêtre de l'application
            .Visible = True
            If (filtre = "") Then
               
                .docmd.openreport rptname, 2
          
            Else
                .docmd.openreport rptname, 2, , filtre 'acViewPreview
            End If
        Else 'Print
            .docmd.openreport rptname, 0  'acViewNormal, imprimer
            AccApp.Quit 2 'acExit
        End If
    End With
    Set AccApp = Nothing
  
Exit_DisplayAccessReport:
    Exit Sub
ErrMsg:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " - " & Err.Description
    End If
    Resume Exit_DisplayAccessReport
End Sub

chenda

Afficher un rapport Access dans un contrôle VB

1 réponse

Discussions similaires