Module access : requetesql->query->ouerture report->exportation du report

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 174 fois - Téléchargée 68 fois

Contenu du snippet

bah ...
Tu as une requetes SQL en chaine de caracteres (genre tu la generes dans un formulaire ...)

Tu veux la stocker dans une Query (objet requete d'ACCESS) et ensuite ouvrir un report qui se refaire a la dite query, et exporter ce report

Et bien tu appeles la fonction avec tout les arguments

Source / Exemple :


Function EditReportFromQuery(StrSQL As String, Query_name As String, Report_Name As String, Filename As String, Format As String) As Boolean
' Edit the report named R_name after having repalce the query Q_name by the StrSQL
' if a param is NULL then try to ignore it ... or error
' return false if error

'* Variable :
    Dim Q_select As QueryDef ' the querydef that will contains the "select" query (i.e a string)
    Dim query As String ' the "select" query
    Dim Q_name As String ' name of the query in this database
    Dim R_name As String ' name of the report
    Dim query_def As QueryDef
    Dim ook As Boolean

'*Begin Sub
    
On Error GoTo Erro
     If IsNull(Report_Name) Then
        MsgBox "no report name ...?", vbCritical
     End If
     If IsNull(Query_name) Then
        MsgBox "no query ...?", vbCritical
        EditReportFromQuery = False
        Exit Function
     End If
    R_name = Report_Name
    Q_name = Query_name
    If Not IsNull(StrSQL) Then
        ' create a query with this SQL string
        For Each query_def In CurrentDb.QueryDefs
            If query_def.Name = Q_name Then
                CurrentDb.QueryDefs.Delete (Q_name)
                Exit For
            End If
        Next query_def
        'creation
        Set Q_select = CurrentDb.CreateQueryDef(Q_name, StrSQL)
    Else
        'if this querydef existing ?
        ook = False
        For Each query_def In CurrentDb.QueryDefs
            If query_def.Name = Q_name Then
                ook = True
                Exit For
            End If
        Next query_def
        If ook = False Then
            MsgBox "no query ...?", vbCritical
            EditReportFromQuery = False
            Exit Function
        End If
    End If
    
    'open the query as a table
    DoCmd.OpenQuery Q_name, acViewNormal
    'open the correponding report
    DoCmd.OpenReport R_name, acViewPreview
    'output to a txt file
    If Not IsNull(Filename) And Filename <> "NILL" Then
        Select Case Format
                Case "HTML"
                    DoCmd.OutputTo acOutputReport, R_name, acFormatHTML, Filename, True
                Case "RTF"
                    DoCmd.OutputTo acOutputReport, R_name, acFormatRTF, Filename, True
                Case "TXT"
                    DoCmd.OutputTo acOutputReport, R_name, acFormatTXT, Filename, True
                Case "XLS"
                    DoCmd.OutputTo acOutputReport, R_name, acFormatXLS, Filename, True
                End Select
    End If
    
    EditReportFromQuery = True
    Exit Function

Erro:
        If Err.Number <> 2501 Then
            EditReportFromQuery = False
            MsgBox "EditReportFromQuery : " & Err.Description, vbCritical, Err.Number
            DoCmd.Close
        End If
End Function

Conclusion :


c est hyper long , mais y a des appels de fonctions utiles ...

A voir également

Ajouter un commentaire

Commentaires

cs_jamell
Messages postés
1
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
9 février 2010
-
Bonjour,
j'ai eu un pb en exportant un Etat vers le format TXT.
la ligne dans l'Etat est comme suit entre parenthèses:
(V2 1410610610170013406307866600510553433178xxx rrrrrrr tttttt uuuuuuuuuuuuuu 2009111100010000003 uuuuuuuuuuuuuu 000000000000169365)
cette ligne comporte 234 caractères.En l'exportant vers un fichier texte seulement les 130 caractères de la ligne sont affichés, alors que l'exportation vers RTF se passe sans pb.
aidez-moi et merci d'avance.
batmoun
Messages postés
1
Date d'inscription
mercredi 28 février 2001
Statut
Membre
Dernière intervention
17 septembre 2003
-
Pfff ... j'ai codé ca en 2001 !
j suis pas bilingue d'ailleur y a plein de fautes dans les commentaires.

je travaillais à l'étranger, donc en anglais (tu sais , if , ca veut dire Si en francais ... le code, c'est fait pour être en anglais :p )
cs_Lolux
Messages postés
159
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
15 septembre 2005
-
T'as trouvé ça où ??

T'es bilingue ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.