[Toutes versions] Fermer tous les Etats charges en une fois [Résolu]

[Aladin_23]

Bonjour le forum
Je suis en train de créer une fonction pour fermer tous les Etats chargés de la base. J' ai commencé à créer cette fonction mais oil me manque des parametres

Code :

1
2
3
4
5
6
Function FermerAllReports 
Dim R as report
on error resume next
 'Verifie siu des Etats sont chargés. 
  Si trouvé on les ferme 
End function

Merci d' avance pour toute aide me permettant de la finalisé
Aladin

[GAYOT]

Bonjour
Essaies ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
Function FermerAllReports()
 Dim IntI As Integer
On Error GoTo Err 
 
For IntI = 0 To Reports.COUNT - 1
    DoCmd.Close acReport, Reports(0).Name
Next
 
Err:
MsgBox "Erreur" & Err.Number & "   " & Err.Description
End Function

[keita]

bonjour
Essayons comme ceci également:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Function FermerToutEtatOuvert()
    Dim Obj As AccessObject, dbs As Object, strNomEtat
    Set dbs = Application.CurrentProject
    For Each Obj In dbs.AllReports
        If Obj.IsLoaded = True Then
            strNomEtat = Obj.Name
            With DoCmd
                .Echo False
                .Close , strNomEtat
            End With
        End If
    Next Obj
End Function

@+

[pgz]

Bonjour.

Ou comme avec une fonction, et la collection Reports qui ne contient que les états ouverts :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function fctFermerEtats() As Boolean
Dim oRep As Access.Report
 
On Error GoTo SortieEnErreur
 
For Each oRep In Application.Reports
    DoCmd.Close acReport, oRep.Name, acSaveNo
    DoEvents
Next oRep
 
fctFermerEtats = True
 
Sortie:
    Set oRep = Nothing
    Exit Function
 
SortieEnErreur:
    fctFermerEtats = False
    GoTo Sortie
 
End Function

Cordialement,

PGZ

[Aladin_23]

Re Bonjour GAYOT et le forum
J' ai testé ta fonction et elle fonctionne correctement.
Un grand merci à toi de m' avoir aidé pour cette fonction
Aladin