[VB.Net 2005] et Reference pour Access

Version imprimable

Bonjour a tous.

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

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!

22/10/2006, 08h54
kritopal

Bonjour angelevil,

Ce ne serait pas la référence Microsoft Jet and Replication Objects de COM qui te permet cela ? (msjro.dll)
22/10/2006, 12h15
angelevil

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

Merci quand meme :)

AngelEvil!
23/10/2006, 16h32
ekinox17

Intuitif :

Citation:

Projet > ajouter une reference > onglet COM > Microcoft Access 9.0 > OK
23/10/2006, 16h53
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!
23/10/2006, 17h35
ekinox17

-_-
non mais .... :aie:
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
23/10/2006, 19h45
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:

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!
29/05/2009, 23h51
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:

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 :)
30/05/2009, 00h29
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 :)
30/05/2009, 00h44
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!
30/05/2009, 05h08
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
30/05/2009, 18h18
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!

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:

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

31/05/2009, 03h03
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é :aie:

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:

1 2 MesEtats.DoCmd.OpenReport "ETAT_TOUT", 0
Philippe
01/06/2009, 04h23
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 ?
01/06/2009, 04h37
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

Bonjour,

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

Code:

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

Fuseau horaire GMT +2. Il est actuellement 19h21.