Access VBA: Eigene Funkton – Alle Berichte auf einmal schließen
Lesezeit: < 1 MinutePublic 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):
PPS: Ihnen hat der Beitrag besonders gut gefallen?
Unterstützen Sie unser Ratgeberportal: