begin process at 2010 03 21 06:03:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > OUVRIR UN REPORT ACCESS À PARTIR DE VB

OUVRIR UN REPORT ACCESS À PARTIR DE VB


 Information sur la source

Note :
7,79 / 10 - par 19 personnes
7,79 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Classé sous :ouvrir, access, etat, openreport Niveau :Initié Date de création :29/06/2000 Vu :23 581

Auteur : Icem@n

Ecrire un message privé
Site perso
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")


 Sources du même auteur

Source .NET (Dotnet) GETSPECIALFOLDER : RETOUVER LES RÉPERTOIRES SPÉCIAUX DE WIND...
Source .NET (Dotnet) SAVE & RECUPERATION DES SETTINGS DANS UN FICHIER XML
Source avec Zip Source avec une capture REND TRANSPARENT N'IMPORTE QU'ELLE FENÊTRE DANS WINDOWS 2000...
Source avec Zip Source avec une capture CRÉER UNE APPLICATION MULTILANGUE (.INI) V 1.1.5
Source avec Zip Source avec une capture GESTION PILE FILE (LIFO FIFO) PAR RECORDSET OU COLLECTION

 Sources de la même categorie

Source avec Zip CHARGER DES DONNÉES DEPUIS UN FICHIER TXT DANS UNE BASE DE D... par ig3
Source avec Zip Source avec une capture GESTIONPMPT par mark100
Source avec Zip Source .NET (Dotnet) DATA ACCESS COMPONENT par zaimfaycal
Source avec Zip GESTION ENSEIGNANTS par Elmarzougui
Source avec Zip GESTION D'UNE BIBLIOTHÈQUE par Elmarzougui

 Sources en rapport avec celle ci

Source avec Zip OUTIL DE FORMATION par l0r3nz1
Source avec Zip GESTION ENSEIGNANTS par Elmarzougui
Source avec Zip OUVRIR TOUS LES FICHIERS EXCEL D'UN DOSSIER ET DE SES SOUS-D... par Unforgiven3303
Source avec Zip VISUALISATION BASE ACCESS par claude440
Source avec Zip Source avec une capture Source .NET (Dotnet) OUVRIR ET MODIFIER UNE BASE ACCESS AVEC ADO.NET [ COCKTAIL E... par sLaYeR31DevCpp

Commentaires et avis

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... ;-)

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.

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!

Commentaire de godchris le 24/07/2006 20:20:39

c'est bon

Commentaire de godchris le 25/07/2006 16:53:49

c'est bon

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

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 ...

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...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,593 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales