Access VBA: Eigene Funkton: Alle Berichte auf einmal schließen

Access VBA: Eigene Funkton – Alle Berichte auf einmal schließen

Lesezeit: < 1 Minute Besonders wenn sich viele Berichte in Ihrer Datenbank befinden und Sie diese ständig nutzen, kann es manchmal ganz ratsam sein, alle Berichte auf einmal zu schließen. Sie können eine eigene Funktion entwickeln und diese dann mit einem Makro aufrufen. Die folgende Syntax erzeugt die entsprechende Funktion:

< 1 min Lesezeit

Lesezeit: < 1 Minute

Public Function CloseAllReports()

Dim I As Long, ReptName As String

For I = Reports.Count – 1 To 0 Step -1

ReptName = Reports(I).Name

DoCmd.Close acReport, ReptName, acSaveYes

Next I

End Function

Die Berichte werden beim Schließen direkt gespeichert. Es gehen also keine Änderungen verloren.

Mit diesem Makro können Sie die Funktion aufrufen und nutzen:
Private Sub MeineSchaltfläche_Click()

CloseAllReports

End Sub

PS: Qualitätsmanagement ist uns wichtig!

Bitte teilen Sie uns mit, wie Ihnen unser Beitrag gefällt. Klicken Sie hierzu auf die unten abgebildeten Sternchen (5 Sternchen = sehr gut):

Bitte warten...

PPS: Ihnen hat der Beitrag besonders gut gefallen?

Unterstützen Sie unser Ratgeberportal:

Access Microsoft Office