Ouvrir un report access à partir de vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 31 897 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

Messages postés
9
Date d'inscription
lundi 8 janvier 2007
Statut
Membre
Dernière intervention
16 mars 2009

slt
votre code est bien fait mais j ai un petit problème avec moi je veux faire passer plusieurs paramètre pour ouvrir un état le code client et le code de la facture et la date et vraiment je sais pas comment utiliser GvarIdDemande
tout marche mais une fois l'access est ouvert je dois saisir les paramètre pour afficher mon état
voila la ce que je dois saisir
(sql = "[Code vFactures]='" & numfac & "' And vFactures.Date = '" & f & "' And [Code Client] ='" & numclient & "'")
et faire passer mais je sais pas comment procédés merci d'avance pour votre aide
veuillez m'envoyer la réponse dans cette adresse tifawine@gmail.com
et merci
Messages postés
34
Date d'inscription
jeudi 29 juin 2000
Statut
Membre
Dernière intervention
27 octobre 2003

Marancce >
Essaye peut-être d'utilisé "Outils -> Démarrage"(dans les menus Access) de ta DB ...
Messages postés
3
Date d'inscription
vendredi 29 septembre 2006
Statut
Membre
Dernière intervention
5 octobre 2006

le code marche mais a un petit défaut c'est qu'il affiche la base de donnée lors de l'affichage de l'état.j'aimerais savoir s'il n'y a pas un moyen d'empècher l'apparition de la base de donnée.c'est urgernt merci.marancce
Messages postés
2
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
25 juillet 2006

c'est bon
Messages postés
2
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
25 juillet 2006

c'est bon
Afficher les 17 commentaires

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.