Discussion :

[Chris@Xerox]

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.

[Chris@Xerox]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Chris@Xerox]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Chris@Xerox]

Ok. J'ai trouvé.

[ddaime]

Ok. J'ai trouvé.

Salut.

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

[Chris@Xerox]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.