Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OUVRIR UN REPORT ACCESS À PARTIR DE VB


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 : 22 059

Note :
7,79 / 10 - par 19 personnes
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")

 

Commentaires et avis

signaler à un administrateur
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... ;-)

signaler à un administrateur
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.

signaler à un administrateur
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!

signaler à un administrateur
Commentaire de godchris le 24/07/2006 20:20:39

c'est bon

signaler à un administrateur
Commentaire de godchris le 25/07/2006 16:53:49

c'est bon

signaler à un administrateur
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

signaler à un administrateur
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 ...

signaler à un administrateur
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
          

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

bug ouvrir etat access 2000 [ par yaya31 ] Bonjour J aimerais savoir si c un bug ou pas mais quans je dis d ouvrir un etat par une macro ou par les boutons pre creer, il m imprime tous les eta Ouvrir un Etat Access [ par tedparker ] BjrJ'aimerais simplement avoir un exemple d'ouverture d'un état ACCESS à partir de VB sachant que mon appli est déjà connectée à la base.Moi j'ai un m imprime un etat access sans l'ouvrir [ par NDuf ] je debute dans la prog mais j'utilise des tables access dans un programme réalisé sous VB6je souhaiterai imprimer un etat access sans avoir de viusali MS ACCESS : ouvrir un formulaire à partir d'un autre formulaire [ par Safireo ] Salut ! J'ai crée ma petite base de donnée sous access et je dois faire une interface utilisateur de qualité. J'ai donc pensé à créer un formulaire c Ouvrire Access avec des paramètres [ par kipich ] Bonjour,J'aurai voulu savoir si il était possible d'ouvrir un .mdb de Access avec des paramètre.Ex : toto.mdb -f mon_formulaire ... (ouvrir un formula Ouverture fichiers word sous access [ par aaliyan ] Bonjour, je voudrais ouvrir des fichiers word avec une macro sous access. Je connais le chemin, mais pas les fichiers, je veux ouvrir tous les fichier Ouvrir une pages htm genere par access [ par muaythai ] Bonjour à tous Je recherche comment faire pour donner à un boutton sur VB 6 d'ouvrir une page HTM generée par access J'espere etre assez clairMerci po Ouvrir un formulaire Access depuis le logiciel VB ? [ par cyber_attila ] Bonjour,J'ai une base Access avec un formulaire complet. Je voudrai savoir si depuis VB.net il est possible de faire un bouton qui permet l'ouverture [Access et Visual Basic]Generation automatique de pdf a partir d'un etat [ par Regnak ] Bonjour a tous,Je travaille actuellement sur une base de donnee access utilisant neanmoins beaucoup de code en visual basic,J'ai une forme avec un bou Etat Access [ par hustler ] Bonjour,J'ai une base access avec un etat avec trois parametre dans ma requetecomment dois je faire avec visual basic 6 pour envoyer les parametre lor


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,655 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.