Comment manipuler Report Access à partir de VB Express 2008 ?

Version imprimable

17/04/2009, 10h41
Chris@Xerox

Comment manipuler Report Access à partir de VB Express 2008 ?

Bonjour à Tous,

Est-il possible de modifier le champ Filtre d'un Report en Access à partir de VB.NET ? Si oui, comment ?
Est-t-il également possible d'imprimer ce Report sans ouvrir la base de donnée Access dans laquelle il se trouve ?
Je sais qu'il existe Crystal Report pour faire des rapports en VB.NET mais j'utilise VB Express et je ne peux utiliser aucun logiciel payant (et donc pas Crystal Report). Si quelqu'un à une autre idée qu'Access pour pouvoir créer et imprimer facilement des rapports liés au données, je suis preneur.

Merci d'avance.

Voici ce que j'ai réussi à faire pour le moment:
Code:

1 2 3 4 5 6 7 8 9 10 Imports Microsoft.Office.Interop '... Dim AppAccess As Access.Application AppAccess = New Access.Application AppAccess.OpenCurrentDatabase(NameDB) AppAccess.Visible = False AppAccess.DoCmd.OpenReport("Report1") AppAccess.CloseCurrentDatabase() AppAccess = Nothing
J'ai mis le temps à comprendre que Imports Microsoft.Office.Interop.Access n'était pas suffisant. Il fallait Imports Microsoft.Office.Interop

Par contre:

- Je ne sais toujours pas toujours pas comment modifier la propriété Filtre de mon Report (Etat).

- J'aimerais aussi pouvoir empêcher l'affichage du message Security Warning à l'ouverture d'Access. J'aurais besoin d'une version code et non d'une solution qui consiste à modifier les paramètres d'Access.

Une idée ?

20/04/2009, 15h59
Chris@Xerox

Je progresse. J'ai trouvé comment diminuer la sécurité d'Access via le code:

Code:

AppAccess.AutomationSecurity = Microsoft.Office.Core.MsoAutomationSecurity.msoAutomationSecurityLow

Mais je patauge toujours pour ce qui est de modifier les filtres des Reports. En fait, j'ai un Report principal (Access 2003) qui contient 3 subforms, contenant chacun un Report. Ce que je cherche à faire c'est modifier les filtres de mes Reports sous-jacents sans les ouvrir. Help!
21/04/2009, 15h26
Chris@Xerox

Ok. J'ai trouvé.
21/04/2009, 21h13
ddaime

Citation:

Envoyé par Chris@Xerox

Ok. J'ai trouvé.

Salut.

Et comment as tu fait ? Ta solution pourrait surement intérresser d'autres personnes.

Bonjour,

Citation:

Envoyé par ddaime

Salut.

Et comment as tu fait ? Ta solution pourrait surement intérresser d'autres personnes.

Oups! Désolé pour le délais. Une fois que je tag "résolu" je retourne rarement voir mes posts.

Pour ceux que ça intéresse, voici mon code permettant de mettre un filtre sur un report Access:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        Dim AppAccess As Access.Application
        Dim Filter, NameReport As String
        Dim FilterValue As String
 
        FilterValue = "1"
 
        Cursor.Current = Cursors.WaitCursor
 
        Filter = "[IDContract]=" & FilterValue
        NameReport = "C:\Report1_" & FilterValue & "_" & Now.ToString("yyyyMMdd_hhmmss") & ".snp"
 
        AppAccess = New Access.Application
 
        AppAccess.AutomationSecurity = Microsoft.Office.Core.MsoAutomationSecurity.msoAutomationSecurityLow
        AppAccess.OpenCurrentDatabase(MyDB)
        AppAccess.Visible = False
        AppAccess.DoCmd.OpenReport("Report1", Microsoft.Office.Interop.Access.AcView.acViewNormal, , Filter, Microsoft.Office.Interop.Access.AcWindowMode.acHidden)
        AppAccess.DoCmd.OutputTo(Microsoft.Office.Interop.Access.AcOutputObjectType.acOutputReport, "Report1", "SnapshotFormat(*.snp)", NameReport)
        AppAccess.CloseCurrentDatabase()
        AppAccess = Nothing
        Cursor.Current = Cursors.Default
        MsgBox(NameReport & " was created AND printed!", MsgBoxStyle.Information)

Bye.