Ouvrir un report access à partir de vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 31 815 fois - Téléchargée 72 fois

Contenu du snippet

Ce code permets d'ouvrir à partir de VB un Report Access. Car bien que Vb Aie maintenant ces propres report si vous les avez testé vous avez surement remarquer qu'il ne sont pas du tout au point ... ;-)

Source / Exemple :


Public Sub Imprimer(NomDoc As String, Optional Preview As Boolean = False)
    Dim AppAccess As Access.Application
    Dim strDB As String
    Dim strReportName As String
    On Error GoTo gerr
    ' Position de la base de donnée
    strDB = "C:\GiteVB\gite.mdb"
    Set AppAccess = New Access.Application
    ' Open database in Microsoft Access.
    AppAccess.OpenCurrentDatabase strDB

    If Preview Then
        AppAccess.Visible = True
        AppAccess.DoCmd.OpenReport NomDoc, acViewPreview, , "Id_Rens =" & GvarIdDemande
    Else
        AppAccess.DoCmd.OpenReport NomDoc, , , "Id_Rens =" & GvarIdDemande
        MouseWait False
        MsgBox "Clickez OK quand l'impression de " & NomDoc & _
            " sera terminée"
        AppAccess.CloseCurrentDatabase
    End If

    Set AppAccess = Nothing
    Exit Sub
gerr:
Select Case Err.Number
    Case 0
    Case 2501
        Resume Next
    Case Else
        MsgBox "Erreur non gérée " & vbCrLf & Err.Number & " " & Err.Description
End Select
End Sub

Conclusion :


Attention il faut Ajouter la reference à Access
(Projet->Reference et cocher "Microsoft Access 9.0 Object Library")

A voir également

Ajouter un commentaire

Commentaires

Bonjour,

Il est certain que l'editeur de reports de VB n'est pas au top.

Outre la solution décrite ici, il existe toujours la possibilité d'utiliser Crystal Reports qui était avec VB5 ou qu'on peut trouver gratuitement avec beaucoup d'outils du marché.
Bonjour,
J'ai utilisé l'assistant feuille de données pour créer une feuille d'accès aux données (VB 6.0). J'ai mis l'option principal/secondaire.
Tout s'est bien généré. Mais, je n'arrive pas à avoir accès aux
formats des champs de ma grille. Comment puis-je faire pour les
modifier ?
Je sais que pour leur attribuer un nom, il faut écrire dans le code :
grdDataGrid.Columns().Caption = ""
Alors , il y a t'il un code spécial pour changer leur format ?
Merci de me répondre au plus vite.

jourdain.marie@caramail.com
Est-ce que le code ci dessus fonctionne même si l'utilisation ne dispose pas d'Access ?
Je suis développeur de vb et j'ai trouvé que votre site est plein d'informations et astuces et aimerai-je participer à l'enrichissement de sa base de connaissances

Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.