OUVRIR UN REPORT ACCESS À PARTIR DE VB ouvrir, access, etat, openreport, Source N°308

Information sur la source

Catégorie :Base de Donnees Classé sous : ouvrir, access, etat, openreport Niveau : Initié Date de création : 29/06/2000 Vu : 19 290

Auteur : Icem@n

Site perso

Ecrire un message privé

Note :

7,79 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

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

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

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")

Sources du même auteur

Toutes les sources de Icem@n

Sources de la même categorie

Toutes les sources de la catégorie Base de Donnees

Sources en rapport avec celle ci

Commentaires

Commentaire de PatriceVB le 26/03/2002 17:41:36 administrateur CS

En réponse à Fred, Crystal Reports est toujours présent avec VB6, mais il est caché il faut le chercher au fin fond du cédé !
Ah la politique Microsoft... ;-)
Commentaire de LuTo le 01/05/2003 22:27:34

J'ai jamais vu un code qui genere des commentaires aussi longs !!! En tous cas, ton code est impeccable. Simple, efficace, comme on les aime. Et en plus, j'en avais justement besoin aujourd'hui.
Merci, bonne prog.
Commentaire de tbbuim1 le 14/02/2006 14:26:09

'PECCABLE! 10 pr avoir trouvé ce ptit code bien sympa. Venant d'ACCESS, je constate que VB est vraiment pourrit lorsqu'on veut manipuler des données comparé à ACCESS et je commençais à prendre peur pour ce qui est du crystal report (arg!) Tandis qu'avec ça, à la limite, je peux créer une requête de VB sous Access et lier un état dessus, ainsi récupérer les champs d'un formulaire etc. C'est trop d'la bouloche!
Commentaire de godchris le 24/07/2006 20:20:39

c'est bon
Commentaire de godchris le 25/07/2006 16:53:49

c'est bon
Commentaire de marancce le 05/10/2006 12:05:50

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
Commentaire de Icem@n le 05/10/2006 12:30:43

Marancce >
Essaye peut-être d'utilisé "Outils -> Démarrage"(dans les menus Access) de ta DB ...
Commentaire de tifawine le 03/07/2007 14:02:26

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