Discussion :

[angelevil]

Bonjour a tous.

En fouillant dans les archives du site j'ai trouvé comment faire imprimer des etats d'Access en VB.NET.

Code :

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

1
2
3
4
5
6
7
 
        Dim MaDbMat As String
        Dim MesEtats As New Access.Application
        MaDbMat = "C:\\Test.mdb"
        MesEtats.OpenCurrentDatabase(MaDbMat, False)
 
        MesEtats.DoCmd.OpenReport("T1", Access.AcView.acViewNormal)

Je vais dans reference et que je choisis Microsoft Access 9.0 dans COM.

Dans le haut de la page du form j'ecris la commande Imports mais je ne trouve aucune reference pour Access....

J'ai Access 2003 sur mon poste et la BD est faite par Access 2000.

Quelqu'un pourrait me dire quoi ecrire dans la commande du Imports ? A moins que ca soit une autre reference .NET que je dois loader ????

Merci de m'aider

AngelEvil!

[kritopal]

Bonjour angelevil,

Ce ne serait pas la référence Microsoft Jet and Replication Objects de COM qui te permet cela ? (msjro.dll)

[angelevil]

Non ce n'est pas cette reference. J'avais essayé avant.

Merci quand meme

AngelEvil!

[ekinox17]

Intuitif :

Projet > ajouter une reference > onglet COM > Microcoft Access 9.0 > OK

[angelevil]

J'ai encore Projet > ajouter une reference > onglet COM > Microcoft Access 9.0 dans ma liste des references loadé dans mon projet présentement.

mais ca ne me donne pas plus acces là 'objet Access lorsque je veux creer l'objet pour pouvoir imprimer les etats....


Dim MesEtats As New Access.Application --> ligne ou je ne peux pas avoir acces a l'objet ACCESS.

AngelEvil!

[ekinox17]

-_-
non mais ....
bon on va faire simple la liste que tu vois dans la fenetre ajouter une reference est en fait les reference que tu peut ajouter et non celle qui sont déjà ajoutées donc il faut cliquer sur OK après l'avoir selectionnée ensuite tu aura accès à Access, je le sais j'ai testé chez moi : ça marche !

(Si la coloration syntaxique marche pour Access alors c'est que Access est bien referencé)

PS: Access n'est pas un objet mais un namespace

[angelevil]

Salut.

C'est ce que j'ai fait.

je suis allé dans Projet, Ajouter une reference.

Je suis allé dans COM, chez choisi Microsoft Access 11.0 Object Library (version 9.0)

J'ai pesé sur OK.

Dans la fenetre a droite de mon code j'ai une fenetre qui affiche les references qui sont dans mon projet.

Je vois une reference qui se nomme Access.

Donc, logiquement et si ce que vous me dites est correct, je peux coder ceci

Code :

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

1
2
 
MesEtats as new Access.Application

Le probleme est que lorsque j'ecris new et je fais un espace je n'ai pas ACCESS dans la liste qui apparait.

Ou est l'Erreur alors ? Devrais-je reinstaller Office 2003 ? Ou c'est autre chose qui est en cause ?

AngelEvil!

[angelevil]

Rebonjour,

Je suis encore pris avec le même problème!

Je rajoute l'instance d'Access dans les références.

Et lorsque je tappe

Code :

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

dim toto as new Access

le mot Access n'apparait pas. J'ai le choix AccessViolationException qui apparait. Faut pas avoir un bacc pour voir que ça n'a pas rapport avec MS Access.

Pouvez-vous me dire ce qui se passe ? Parce que la je m'arrache les cheveux. Il faut absolument que j'utilise deux états dans la BD Access pour les rapports. La compagnie ne veut pas que je crée d'autre rapports avec un autre outil.

Help S.V.P.

Merci!

AngelEvil

[angelevil]

Je veux préciser que dans le passé lorsque j'avais posté cette discussion le client avait décidé d'oublier les états dans Access. Quelqu'un d'autre avait fait les états dans Crystal Report.

Je n'ai pas essayé Crystal Report pour le programme que je travaille présentement. Et je suis le seul programmeur à travailler sur ce projet. De plus le client veut tout dans Access. Rien à faire avec Crystal Report.

J'attends vos conseils et idées.

Merci!

AngelEvil

[angelevil]

J'ai office 2007 Pro.

En rajoutant la référence de Access j'ai ceci comme info...

Dans .NEt j'ai Microsoft.Office.Interop.Access. (fichier Access.dll) version 11 et 12. J'ai ce choix dans la liste des références du projet à droite de l'écran.

Dans COM j'ai Microsoft Access 12.0 Object Library .... MSACC.OLB... J'ai fait OK. Je ne le vois pas dans la fenêtre des propriétés du projet à droite de l'écran.

C'est ce que j'ai comme projet et références dans ce projet....

AngelEvil!

[Invité]

Bonjour

Je ne suis pas du tout encore habitué au VB.net, mais sous Office lorsque l'on fait de l'automation, on travail différement.

Au lieu de cocher une référence, on fait une création d'objet

un exemple ici avec Excel
http://www.developpez.net/forums/d31...ion-reference/

On fait donc un CreateObject, tu perds l'intellisense, mais tu n'as plus de problème de référence, sachant que ton code valable dans les versions Access que tu cites.

Donc à tester

Philippe

[angelevil]

Bonjour,

merci de votre aide.

Je vais regarder ça aujourd'hui même.

Je n'ai jamais codé de cette manière avec Access. Surement que si j'ai des problèmes je pourrai avoir d'autres réponses à partir de ce sujet....

AngelEvil!

[angelevil]

Bonjour,

J'ai essayé le code que vous m'avez montré. Le code était pour Excel. J'ai essayé de le transformer pour Access... Voici ce que ça donne....

Code :

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

1
2
3
4
5
6
7
8
9
 
 
        Dim MaDbMat As String
        Dim MesEtats As Object 
        MesEtats = CreateObject("Access.Application")
        MaDbMat = Application.StartupPath & "\inventairef.mdb"
        MesEtats.OpenCurrentDatabase(MaDbMat, False)
 
        MesEtats.DoCmd.OpenReport("ETAT_TOUT", MesEtats.AcView.acViewNormal)

Ou ça bloque c'est à la dernière ligne avec le AcView qui n'est pas reconnu....

Je fais quoi ? Car dans le forum VB.NET les seuls exemples que je vois pour afficher un état dans Access c'est avec la référence....

Merci!

AngelEvil

[Invité]

Re

C'est normal que ce ne soit pas reconnu, en effet il s'agit de constantes Access, et comme la référence n'est pas coché

Soit tu fais une déclaration des constantes en prenant les valeurs ci-dessous ou tu les remplaces dans la ligne par leurs valeurs:

acViewNormal = 0

Cependant, à mon avis ce serait plutôt

Code :

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

1
2
 
MesEtats.DoCmd.OpenReport "ETAT_TOUT", 0

Philippe

[angelevil]

Bonjour !

Merci de votre réponse.

Mais sans farce je suis perdu lol désolé!

Si je veux que l'état sort à l'écran comme preview je devrai changer le 0 par un autre chiffre si je comprends bien ?

[Invité]

Exact

Il faut regarder dans l'explorateur d'objet d'Access pour avoir la valeur des constantes :

Voici les valeurs des constantes (aide Access 2007) pour la vue


acDesign - 1 - Le formulaire s'ouvre en mode Création.
acFormDS -3 - Le formulaire s'ouvre en mode Feuille de données.
acFormPivotChart - 5 - Le formulaire s'ouvre en mode Graphique croisé dynamique.
acFormPivotTable - 4 -Le formulaire s'ouvre en mode Tableau croisé dynamique.
acLayout - 6 - Le formulaire s'ouvre en mode Page.
acNormal - 0 - (Valeur par défaut) Le formulaire s'ouvre en mode Formulaire.
acPreview - 2 -Le formulaire s'ouvre en mode Aperçu avant impression.

Philippe

[angelevil]

Bonjour,

je viens tester ceci et ça envoie encore le résultat de l'État d'access vers l'imprimate...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12

        Dim MaDbMat As String = Application.StartupPath & "\inventairef.mdb"
        Dim MesEtats As Object
        MesEtats = CreateObject("Access.Application")
        MesEtats.OpenCurrentDatabase(MaDbMat, False)

        Try
            MesEtats.DoCmd.OpenReport("ETAT-TOUT", 2)
        Catch ex As Exception
            MsgBox("Problème avec l'État dans la BD Access " & ex.Message, MsgBoxStyle.Critical)
        End Try