Alle geöffneten Berichte schliessen

Nachfolgend eine Funktion zum Schließen aller geöffneten Berichte.

Code:

Function AlleBerichteSchliessen()   '---------------------------------------------------------- ' Funktion zum Schließen aller geöffneten Berichte. Steht ' "SetWarnings=False" werden alle Berichte gespeichert ' und geschlossen, steht "SetWarnings=True" wird vor dem ' Speichern gefragt. '----------------------------------------------------------   Dim r As Report Dim n As Integer Dim i As Integer   i = 0 While Reports.Count > 0 i = i + 1 Set r = Reports(n) DoCmd.Close acReport, r.Name Wend If i = 1 Then MsgBox "Es wurde ein Bericht geschlossen!", 64 Else MsgBox "Es wurden " & i & " Berichte geschlossen!", 64 End If   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!