Ouvrir un report access à partir de vb

5/5 (17 avis)

Snippet vu 32 305 fois - Téléchargée 74 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
cs_tifawine Messages postés 9 Date d'inscription lundi 8 janvier 2007 Statut Membre Dernière intervention 16 mars 2009
3 juil. 2007 à 14:02
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
Icem@n Messages postés 34 Date d'inscription jeudi 29 juin 2000 Statut Membre Dernière intervention 27 octobre 2003
5 oct. 2006 à 12:30
Marancce >
Essaye peut-être d'utilisé "Outils -> Démarrage"(dans les menus Access) de ta DB ...
marancce Messages postés 3 Date d'inscription vendredi 29 septembre 2006 Statut Membre Dernière intervention 5 octobre 2006
5 oct. 2006 à 12:05
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
godchris Messages postés 2 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 25 juillet 2006
25 juil. 2006 à 16:53
c'est bon
godchris Messages postés 2 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 25 juillet 2006
24 juil. 2006 à 20:20
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.